---- 以下有關用VB實現的一個瀏覽*.bmp的程序。而且由于Image控件的特性我們還同時可以瀏覽 .jpg .gif .ioc .cur .wmf 加上BMP一共6種格式的圖形文件我們決定用Image控件因為他比PictureBox更適合我們，可是我們怎樣實現任意目錄下的Loadpicture呢？
---- 下面的這個程序非常簡單，有VB的朋友花10分鐘即可完成.
---- 開始；
---- 在File菜單上單擊“New Project”對話框，然后單擊OK按鈕創建新的標準可執行文件。出現一個空白的窗體 飛快地從工具箱中抓出DriveListBox（驅動器列表框）控件；DirListBox（目錄列表框）控件，FileListBox（文件列表框）控件，Image(圖象）控件。放在Form1上調整好大小。當程序運行后VB把選中的文件名放置到文件列表框對象的Filename屬性中。驅動器列表框對象的Drive屬性和目錄列表框對象的Path屬性分別保存用戶在驅動器和目錄列表框中選擇的驅動器和目錄。我們就使用這三個屬性來打開用戶選擇的圖像文件名。然后在Tools（工具）菜單中單擊Options（選項）菜單項，然后單擊Editor（編輯器）選項卡。如果quire Variable Declaration（要求變量聲明）復選框被選中，那么單擊該復選框去掉選中符號。
按F4設置窗口屬性
將File1的 Pattern屬性設為
（*.bmp;*.jpg;*.ico;*.cur)分號不可少，
將Image1的Stretch屬性設為 True
將Image1的BorderStyle屬性設為 1 Fixed Single
按F7寫代碼
---- 在Drive1_Change中PrivateSub和End Sub語句之間鍵入：
dir1.path = Drive1.Drive
在Dir1_Change事件過程中增加：
File1.Path = Dir1.Path
在File1_Click事件過程中增加：
SelectedFile = File1.Path &
"\" & File1.Filename
Image1.Picture = LoadPicture(SelectedFile )
文章來源于領測軟件測試網 http://www.kjueaiud.com/
