자신만의 그래픽 브라우저를 디자인하는 것에 대해 생각해 본 적이 있나요? 사실 이것은 전혀 어렵지 않으며 VB 프로그래밍을 사용하여 쉽게 달성할 수 있습니다.
그래픽 브라우저의 설계 과정은 다음과 같습니다.
1. VB를 시작하고 새로운 표준 프로젝트 파일을 생성한 후 Form1 양식에서 Form1 = "Graphic Browser"의 캡션을 변경합니다.
2. 도구 상자에서 드라이브, 폴더 및 파일 컨트롤을 양식에 추가합니다. 드라이브 이름은 Diver1, 폴더 이름은 Dir1, 파일 이름은 File1이며 적절한 위치를 조정합니다.
3. 도구 상자에서 PictureBox 컨트롤을 폼에 추가합니다. PictureBox의 이름은 Picture1이고 적절한 위치, 높이 및 너비를 조정합니다.
4. 도구 상자에서 CommandButton 컨트롤을 폼에 추가하고 CommandButton의 이름은 Command1이며 적절한 위치, 높이 및 너비를 조정합니다.
5. 폼의 빈 공간에 마우스를 더블클릭하여 코드 편집창을 띄우고 다음 코드를 입력합니다.
PRivateSubForm_Load()
'애플리케이션이 위치한 드라이브와 디렉터리를 현재 드라이브와 디렉터리로 설정
'앱은 현재 애플리케이션 개체입니다.
Drive1.Drive=App.Path
Dir1.Path=App.Path
File1.Pattern="*.bmp;*.ico;*.wmf"
EndSub
6. 양식의 드라이버 컨트롤을 두 번 클릭하여 코드 편집 창을 불러오고 다음 코드를 입력합니다.
PrivateSubDrive1_Change()
'선택한 드라이브가 변경되면 디렉터리 목록 상자의 내용을 업데이트하고 디렉터리 목록 상자의 변경 이벤트를 트리거합니다.
Dir1.Path=Drive1.Drive
EndSub
7. 폼의 폴더 컨트롤에 마우스를 더블클릭하여 코드 편집창을 띄우고, 다음 코드를 입력합니다.
PrivateSubDir1_Change()
'디렉토리가 변경되면 파일 목록 상자의 내용을 업데이트합니다.
파일1.경로=Dir1.경로
EndSub
8. 폼의 파일 컨트롤에 마우스를 더블클릭하여 코드 편집창을 띄우고, 다음 코드를 입력합니다.
PrivateSubFile1_Click()
'루트 디렉터리, 경로의 마지막 문자는 백슬래시 "/"입니다. 예: C:/
'루트가 아닌 디렉터리인 경우 경로의 마지막 문자는 백슬래시("/")가 아닙니다.
'전체 파일 이름을 얻으려면 경로 끝에 백슬래시 "/"를 추가해야 합니다.
IfRight(File1.Path,1)〈>"/"Then
'루트 디렉터리가 아닌 경우 경로 끝에 백슬래시 "/"를 추가합니다.
tempstring=File1.Path&&"/"&&File1.FileName
또 다른
tempstring=File1.Path&&"/"&&File1.FileName
종료
'선택한 파일 불러오기
Form1.Picture1.Picture=LoadPicture(임시문자열)
EndSub
9. 양식의 "닫기" 컨트롤을 두 번 클릭하여 코드 편집 창을 열고 다음 코드를 입력합니다.
PrivateSubCommand1_Click()
언로드미
끝
EndSub
파일을 저장하고 실행하면 자신만의 그래픽 브라우저가 준비됩니다. ->