作者:李滿園
---- 以下有關用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 )
|