由於Access本身沒有提供在窗體中添加一個命令按鈕實現打開通用對話框的控件,所以大家必須通過編寫相關的宏才能實現此功能,但是編寫出的宏限制很多,比如:在選擇文件類型時不能同時存在多種文件格式,必須預定義好某一種格式等等。
下面我們來介紹一種控件,可以完成打開通用對話框的功能,並且效果極佳,不敢獨享,拿來與諸君共享之。
因為該控件存放於VB6中,所以具體使用方法和在VB中類似。
其他控件 Microsoft Common Dialog Control,Version 6.0
在窗體上形成對話框控件
修改控件的名稱如:Dialog1
設置其屬性:在對話框上單擊右鍵 CommonDialog 對象的屬性彈出屬性對話框。可以看到,屬性頁的內容包括“打開/另存為”、“顏色”、“字體”、“打印”和“幫助”五組選項。可以根據提示在屬性頁中直接進行屬性設置,也可通過編程來設置這些屬性。
下面分別對各組選項加以說明:
(1)、“打開/另存為”:
對話框標題是“打開/另存為”窗體的標題,如打開文件時可輸入“打開文件”,另存文件時可輸入“保存文件”。文件名稱是要打開/另存文件的默認值,一般打開/另存時此處為空。初始化路徑是打開/另存文件的默認路徑,一般為空。過濾器是用來在“打開/另存為”處理中,通過對該屬性的設置來控制文件的類型。其設置方法為Access文件|*.mdb|文本文件|*.txt|所有文件|*.*
(2)、顏色
(3)、字體
(4)、打印
(5)、幫助
有關過濾器屬性的設置方法:
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 獲取所選擇的文件名
其它幾種對話框的打開方式與上面的方法相同,另外我們還可以通過該控件控制打印機的使用。