如何使用VB控件Commom Dialog

　　Visual Basic是一種非常有效的Windows編程工具，是目前Windows編程工具中使用最廣泛的語言。在所有資料中，大多都沒有介紹Visual Basic中一個非常有用的控件——通用對話框Commom Dialog。 


　　在一般的程序設(shè)計中，文件操作對話框都是必不可少的。而這種對話框的設(shè)計也比較繁瑣。首先，要設(shè)計一個新格式Form并設(shè)置好邊框，再在上面設(shè)計一個文本框TextBox用以顯示和輸入文件名，一個文件列表框FileListBox，一個目錄列表框DirListBox，一個驅(qū)動器列表框Drivelist， 一個小型組合框ComboBox用以顯示和選擇類型。而且還要編寫好幾個過程程序來完成總體功能。雖然整個實現(xiàn)過程難度并不算太大，但較為煩瑣。 


　　現(xiàn)在，有了通用對話框Commom Dialog以后，事情就簡單多了。Commom Dialog共有七種用法，調(diào)用語法為：[Form.]CmDialog.Action[=Setting] 


　　其中： 


　　Setting Dialog Displayed 


　　0 No action 不運行 


　　1 Open 打開文件 


　　2 Save as 換名存盤 


　　3 Color 色彩 


　　4 Font 字型 


　　5 Printer 打印 


　　6 Invokes WINHELP.EXE 調(diào)用幫助文件 


　　現(xiàn)在，我們以打開文件對話框Open為例予以具體說明。首先，在格式上建立一個通用對話框控件CMDialog1，設(shè)置其屬性如下： 


　　DialogTitle=<對話框標(biāo)題> ：次項空缺時，對話框標(biāo)題等于 


　　激活方式Setting。 


　　Filename=＊.txt ：缺省文件名 


　　Filter=<文本文件[＊.txt]>|＊.txt|<所有文件 [＊.＊]>|＊.＊| ：文件 


　　選擇類型為文本文件[＊.txt]——通配符＊.txt，或 


　　所有文件[＊.＊]——通配符＊.＊。注意，以上各項均 


　　以豎杠符“|”結(jié)束。 


　　LnitDiv=C:\ ：文件缺省路徑。 


　　通用對話框Commom Dialog控件被調(diào)用后，屬性Filename返回用戶所選文件名。如果調(diào)用失敗，Commom Dialog返回VB的錯誤代碼為Err=32755.下面為調(diào)用程序： 


　　Sub Command1_Click () 


　　CmDialog1.action = 1 


　　If Err <> 32755 Then 


　　fname＄ = CmDialog1.Filename 


　　Caption = fname＄ ：將窗口標(biāo)題改為文件名 


　　End If 


　　End Sub 


　　現(xiàn)在，您已經(jīng)可以調(diào)用通用對話框Commom Dialog了。