很多用ACCEE97開發過數據庫的用戶都有這種體會:要想在窗體中添加一個命令按鈕實現打開通用對話框的功能真是很困難。因為ACCESS97本身並未提供這類控件,所以必須通過編寫有關的宏才能實現該功能,但是編寫出的宏限制很多,比如:在選擇文件類型時不能同時存在多種文件格式,必須預定義好某一種格式等等。
最近筆者在開發INTRANET信息采集系統時偶得一控件,恰恰能完成打開通用對話框的功能,並且效果極佳,不敢獨享,拿來與諸君共享之。
因為該控件存放於VB6中,所以具體使用方法和在VB中類似。
其他控件 Microsoft Common Dialog Control,Version 6.0
在窗體上形成對話框控件
修改控件的名稱如:Dialog1
設置其屬性:在對話框上單擊右鍵 CommonDialog 對象的屬性彈出屬性對話框(如下圖)。可以看到,屬性頁的內容包括“打開/另存為”、“顏色”、“字體”、“打印”和“幫助”五組選項。可以根據提示在屬性頁中直接進行屬性設置,也可通過編程來設置這些屬性。
下面分別對各組選項加以說明:
A、“打開/另存為”:
對話框標題是“打開/另存為”窗體的標題,如打開文件時可輸入“打開文件”,另存文件時可輸入“保存文件”。文件名稱是要打開/另存文件的默認值,一般打開/另存時此處為空。初始化路徑是打開/另存文件的默認路徑,一般為空。過濾器是用來在“打開/另存為”處理中,通過對該屬性的設置來控制文件的類型。其設置方法為ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*
B、顏色
C、字體
D、打印
E、幫助
過濾器屬性的設置方法:
Dialog1.filter = “ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*”
通過FileName屬性獲取選定的文件名。
常用對話框控件屬性及方法表
屬性 說明
Copies 要打印的份數
FromPage 打印的起始頁
ToPage 打印的結束頁
Hdc 選定打印機的設備上下文
方法 說明
ShowOpen 打開
ShowSave 另存為
ShowColor 顏色
ShowFont 字體
ShowPrinter 打印
ShowHelp 調用Windows “幫助”
例:打開文件對話框的命令如下:
dim filename1 As String
Dialog1.showopen 顯示打開文件對話框
Filename1= Dialog1.filename 獲取所選擇的文件名
例:打開保存文件對話框的命令如下:
dim filename1 As String
Dialog1.showsave 顯示保存文件對話框
Filename1=Dialog1.filename 獲取所選擇的文件名
其它幾種對話框的打開方式與上面的方法相同,值得一提的是可以通過該控件控制打印機的使用,非常方便。以上就是Microsoft Common Dialog Control,Version 6.0控件的具體使用方法,希望對讀者有一定幫助。