VB的OPEN對話框控件圖示功能擴充

作者：天涯風鈴

Visual Basic For Windows（VB）提供了豐富的控件，但其提供的公用對話框控件在打開文件時（例如＊．Bmp和＊．Pcx等）不能顯示文件內容即圖像，本文給出了一個實例，可以模擬一些圖形軟件包在打開文件的同時顯示圖像，模擬和擴充OPEN控件功能。
　　為模擬的擴充OPEN功能，下面給出了一個完整的VB程序，實現方法如下：


一、建立窗體
　　首先建立一個窗體（窗體名為OPNFILE），窗體上包含驅動器列表、目錄列表、文件列表、兩個命令按鈕（確認、取消）和顯示影像的控件（picture或image），下面是這6個控件的建立方法和有關屬性的改變。
1、DirvelistBox驅動器列表控件
雙擊驅動器列表控件，在窗體上調準控件的位置，控件名稱為“Drive1”。
2、DirlistBox目錄列表控件
雙擊目錄列表控件，在窗體上調準控件的位置，控件名稱為“Dirl”
3、FilelistBox文件列表控件
雙擊文件列表控件，在窗體上調準控件的位置和尺寸，控件名稱為“Filel”，修改“Pattern”屬性為“*.bmp, *.pcx”。
4、Command Buttom命令按鈕控件
雙擊命令按鈕控件，建立命令按鈕，第一個取名為Command1，修改Caption屬性為“確認”，第二個取名為Command2，修改Caption屬性為“取消”。
5、顯示影像的控件
既可以選picture控件，也可選image控件顯示圖像，以image控件為例。雙擊image控件，調準矩形框的大小和位置，取名為imagel，設置strtch屬性。strech＝false時，圖形以原尺寸顯示。


二、事件過程的建立
1、驅動器更改事件過程
Sub Drive－change（）
①Dirl．Path＝Drivel．Drive
②ChDrive Drivel．Drive
End Sub
其中①當驅動器發生更改時，改變目錄路徑；②更改路徑。
2、目錄更改事件過程
Sub Dirl change（）
Filel．Path＝Dirl．path
End Sub
該事件過程是對目錄發生更改時，作出文件路徑更改的響應。
3、文件列表單擊事件
Sub Filel－click（）
Imagel．picture＝loadpicture（Filel.path＋”＼”＋Filel.FileName）
End Sub
單擊任一圖形文件名時，在image控件框上顯示圖像。
4、命令按鈕控件
Sub Command1－click（）
F1＄＝Filel．path＋”＼”＋FileName
End
End Sub
Sub Com？mand2－click（）
F1＄＝” ”
End Sub
F1＄為選擇文件名稱? 軟件使用，若用戶單擊“取消”按鈕，F1＄為空串。
　　單擊驅動器名可以改變驅動器，單擊目錄列表中某一目錄可以更改目錄，單擊某一圖形文件可以顯示圖形，在文件列表中按“↑”或“↓”鍵，可以隨著文件名的變化，圖像框中的圖形也隨之發生更改。
F1＄可以供應用程序調用，其中包含驅動器名、目錄和文件名。

原文轉自：http://www.anti-gravitydesign.com