VB超級大蝦幫幫迷你新秀

建立乙個新窗體，並分別新增 DriveListBox、DirlistBox、FileListBox 和 PictureBox，其中 PictureBox 的 AutoSize 屬性設定為 true

** 如下： private sub dir1 change（）=

end sub

private sub drive1_change()=

end sub

private sub file1_dblclick()= loadpicture( +"\" +end sub

這個想法已經存在了！ 還寫不出來**！！ 頭暈！

如果盒子名稱為pic1，則驅動器列表框名稱為dr1，目錄列表框名稱為di1，檔案列表框名稱為f1，如下所示：

private sub dr1_change() '當在驅動器列表框中選擇的驅動器更改時。

on error resume next '防止驅動器未就緒（就好像光碟不在驅動器號中一樣）。

使目錄列表框中的當前目錄成為所選驅動器的根目錄。

end sub

private sub di1_change() '當在目錄列表框中選擇的目錄發生更改時（雙擊目錄名稱）...

使檔案列表框中的當前目錄成為 di1 選擇的目錄。

end sub

private sub f1_click() '選擇檔案時。

on error resume next '防止由於 ** 檔案的問題而引發錯誤。

loadpicture( &"\" & '使用 loadpicture 載入。

REM 一般來說，VB 支援以下型別。

位 bmp dib

gif ** gif

jpeg ** jpg jpeg

圖元檔案 wmf emf

圖示 ICO 游標詛咒

因此，可以使用 f1 的 pattern 屬性來指定僅顯示檔案 （*） （對於任意數量的字元，例如 *.）。表示字元，如 a??.db） 萬用字元）。

例如：*bmp;*.dib;*.jpg;*.jpeg;*.wmf;*.emf;*.ico;*.cur

end sub

private sub form_load() '載入表單時。

dr1_change '呼叫 dr1 change 以使三個控制項顯示的路徑一致。

end sub