본문 바로가기

Program

파일로딩 및 파일내용 검색 및 판별하기 1. 폼디자인 2. 실행화면 3. 코드 - 소스 (복사 & 붙여넣기) Option Explicit Const MAX = 40 ' 파일내용에 들어있는 문자의 줄수(파일내용이 많을경우 라인수를 세서 이곳의 숫자를 변경하시면 정상적으로 작동됩니다. Dim Buff(MAX) As String Private Sub Command1_Click() ' 버튼 - 내용찾기 Dim i As Integer, Chk As Boolean Chk = False ' 파일안에 입력한 내용이 있다면 출력 For i = 0 To MAX - 1 If Buff(i) = "" Then Exit For If Buff(i) = Text1.Text Then Text2.Text = Buff(i): Chk = True Next i ' 파일안에 내용이.. 더보기
올웨이즈 온 탑 - 폼을 항상 최상위에 두기 Option Explicit Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Sub Form_Load() Call SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_N.. 더보기
비주얼베이직으로 주차관리프로그램... 1. 폼 디자인 1-1 메인 폼 1-2 입고관리 폼 (텍스트2를 배열로 만드세요 !!) 1-3 출고관리 폼 2. 실행 화면 2-1. 실행화면_메인 2-1. 실행화면_입고관리 2-2.실행화면_출고관리 3. 속성창과 프로젝트 보기창 (폼로드부분에 지정한 컨트롤 개체 이름,속성을 이곳에 저장하시면 코드를 좀더 간결하게 줄일수 있습니다.) 4. 소스 4-1 폼_메인 (아래 소스를 폼 1에다가 드레그) Option Explicit Private Sub Command1_Click() Form2.Show ' 입고관리 폼 불러오기 End Sub Private Sub Command2_Click() Form3.Show ' 출고관리 폼 불러오기 End Sub Private Sub Command3_Click() Unload .. 더보기
수직,수평 스크롤바에 따른 이미지 변환하기 1. 폼 디자인(픽처박스1,수평스크롤바1,수직스크롤바1) 2. 실행화면(수평,수직 스크롤바 클릭시 변환되는 과정) 3. 코드 -소스(복사 & 붙여넣기) Option Explicit Dim 그림목록(3) As String ' 그림목록을 저장할 배열변수 선언 Private Sub Form_Load() ' ---------------------------------------------------- 그림목록(0) = "1.jpg" ' 1번 그림이름을 배열에 저장 그림목록(1) = "2.jpg" ' 2번 그림이름을 배열에 저장 그림목록(2) = "3.jpg" ' 3번 그림이름을 배열에 저장 ' ---------------------------------------------------- ' 픽처박스에 1번째 그.. 더보기
73가지 포토샵 팁 1. 현재 선택된 상태에서 CTRL+포인터의 모양이 가위로 바뀌면 잘라낸 후 이동한다. 2. 선택 영역의 복사 : CTRL+ALT를 누른채 이동 3. 선택 영역을 잘못 지정: 선택영역의 바깥쪽을 클릭 4. 잘라낸 부위이외의 영역을 부드럽게 하려면 ? anti-aliasied를 사용 5. 잘라낸 부위를 부드럽게 feather를 사용 6. 복사된 이미지를 가지런히 정열하려면 ? shift를 누른채 이동 7. 포토 샵에서의 모니터 사용이 가능 하다면 17인치의 모니터를 권장하지만 가격대 성능비가 우수한 15인치들도 많이 사용한다. 8. 선택영역의 이동: move툴사용 9. 마술봉으로 선택한 영역이 맘에 들지 않을때 select/none 10. 실수를 하였을 경우 undo 11. 연필툴에서 CTRL키를 누르면 .. 더보기

티스토리툴바