|
作者：李滿園
---- 以下有關(guān)用VB實(shí)現(xiàn)的一個瀏覽*.bmp的程序。而且由于Image控件的特性我們還同時可以瀏覽 .jpg .gif .ioc .cur .wmf 加上BMP一共6種格式的圖形文件我們決定用Image控件因?yàn)樗萈ictureBox更適合我們，可是我們怎樣實(shí)現(xiàn)任意目錄下的Loadpicture呢？
---- 下面的這個程序非常簡單，有VB的朋友花10分鐘即可完成.
---- 開始；
---- 在File菜單上單擊“New Project”對話框，然后單擊OK按鈕創(chuàng)建新的標(biāo)準(zhǔn)可執(zhí)行文件。出現(xiàn)一個空白的窗體 飛快地從工具箱中抓出DriveListBox（驅(qū)動器列表框）控件；DirListBox（目錄列表框）控件，F(xiàn)ileListBox（文件列表框）控件，Image(圖象）控件。放在Form1上調(diào)整好大小。當(dāng)程序運(yùn)行后VB把選中的文件名放置到文件列表框?qū)ο蟮腇ilename屬性中。驅(qū)動器列表框?qū)ο蟮腄rive屬性和目錄列表框?qū)ο蟮腜ath屬性分別保存用戶在驅(qū)動器和目錄列表框中選擇的驅(qū)動器和目錄。我們就使用這三個屬性來打開用戶選擇的圖像文件名。然后在Tools（工具）菜單中單擊Options（選項(xiàng)）菜單項(xiàng)，然后單擊Editor（編輯器）選項(xiàng)卡。如果quire Variable Declaration（要求變量聲明）復(fù)選框被選中，那么單擊該復(fù)選框去掉選中符號。
按F4設(shè)置窗口屬性
將File1的 Pattern屬性設(shè)為
（*.bmp;*.jpg;*.ico;*.cur)分號不可少，
將Image1的Stretch屬性設(shè)為 True
將Image1的BorderStyle屬性設(shè)為 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 )
| 
