想過自己設計圖形浏覽器嗎？其實，這一點也不難，我們可以輕松利用VB編程實現。
圖形浏覽器的設計過程如下：
1.啟動VB，新建一標准工程文件，在窗體Form1上，更改Form1的Caption=“圖形浏覽器”。
2.從工具箱中把驅動器、文件夾和文件控件添加到表單中，驅動器的Name為Diver1，文件夾的Name為Dir1，文件的Name為File1，並調整適當的位置。
3.從工具箱中把PictureBox控件添加到表單中，PictureBox的Name為Picture1,並調整適當的位置、高寬度。
4.從工具箱中，把CommandButton控件添加到表單中，CommandButton的Name為Command1,並調整適當的位置、高寬度。
5.在表單的空白處雙擊鼠標，彈出代碼編輯窗口，輸入下列代碼:
PrivateSubForm_Load()
′設置應用程序所在驅動器和目錄為當前驅動器和目錄
′App是當前的應用程序對象
Drive1.Drive=App.Path
Dir1.Path=App.Path
File1.Pattern="*.bmp;*.ico;*.wmf"
EndSub
6.在表單的驅動器控件上雙擊鼠標，彈出代碼編輯窗口，輸入下列代碼:
PrivateSubDrive1_Change()
′選中的驅動器改變時，更新目錄列表框中的內容;目錄改變時，觸發目錄列表框的Change事件
Dir1.Path=Drive1.Drive
EndSub
7.在表單的文件夾控件上雙擊鼠標，彈出代碼編輯窗口，輸入下列代碼:
PrivateSubDir1_Change()
′目錄改變時，更新文件列表框中的內容
File1.Path=Dir1.Path
EndSub
8.在表單的文件控件上雙擊鼠標，彈出代碼編輯窗口，輸入下列代碼:
PrivateSubFile1_Click()
′根目錄時，路徑中的最後一個字符是反斜槓""，如：C:
′非根目錄時，路徑中的最後一個字符不是反斜槓""
′得到完整的文件名，應在路徑的最後加上反斜槓""
IfRight(File1.Path,1)〈〉""Then
′非根目錄時，路徑中的最後加上一個反斜槓""
tempstring=File1.Path&&""&&File1.FileName
Else
tempstring=File1.Path&&""&&File1.FileName
EndIf
′裝入選定的文件
Form1.Picture1.Picture=LoadPicture(tempstring)
EndSub
9.在表單的"關閉"控件上雙擊鼠標，彈出代碼編輯窗口，輸入下列代碼:
PrivateSubCommand1_Click()
UnloadMe
End
EndSub
保存文件並運行,你自己的圖形浏覽器就設計好了。->
