想過自己設計圖形瀏覽器嗎？其實，這一點也不難，我們可以輕鬆利用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
儲存檔案並運行,你自己的圖形瀏覽器就設計好了。 ->