Visual Basic是一種非常有效的Windows編程工具，是目前Windows編程工具中使用最廣泛的語言。在所有資料中，大多都沒有介紹Visual Basic中一個(gè)非常有用的控件——通用對(duì)話框Commom Dialog。
在一般的程序設(shè)計(jì)中，文件操作對(duì)話框都是必不可少的。而這種對(duì)話框的設(shè)計(jì)也比較繁瑣。首先，要設(shè)計(jì)一個(gè)新格式Form并設(shè)置好邊框，再在上面設(shè)計(jì)一個(gè)文本框TextBox用以顯示和輸入文件名，一個(gè)文件列表框FileListBox，一個(gè)目錄列表框DirListBox，一個(gè)驅(qū)動(dòng)器列表框Drivelist， 一個(gè)小型組合框ComboBox用以顯示和選擇類型。而且還要編寫好幾個(gè)過程程序來完成總體功能。雖然整個(gè)實(shí)現(xiàn)過程難度并不算太大，但較為煩瑣。
現(xiàn)在，有了通用對(duì)話框Commom Dialog以后，事情就簡(jiǎn)單多了。Commom Dialog共有七種用法，調(diào)用語法為：[Form.]CmDialog.Action[=Setting]
其中：
Setting Dialog Displayed
0 No action 不運(yùn)行
1 Open 打開文件
2 Save as 換名存盤
3 Color 色彩
4 Font 字型
5 Printer 打印
6 Invokes WINHELP.EXE 調(diào)用幫助文件
現(xiàn)在，我們以打開文件對(duì)話框Open為例予以具體說明。首先，在格式上建立一個(gè)通用對(duì)話框控件CMDialog1，設(shè)置其屬性如下：
DialogTitle=<對(duì)話框標(biāo)題> ：次項(xiàng)空缺時(shí)，對(duì)話框標(biāo)題等于
激活方式Setting。
Filename=*.txt ：缺省文件名
Filter=<文本文件[*.txt]>|*.txt|<所有文件 [*.*]>|*.*| ：文件
選擇類型為文本文件[*.txt]——通配符*.txt，或
所有文件[*.*]——通配符*.*。注意，以上各項(xiàng)均
以豎杠符“|”結(jié)束。
LnitDiv=C:\ ：文件缺省路徑。
通用對(duì)話框Commom Dialog控件被調(diào)用后，屬性Filename返回用戶所選文件名。如果調(diào)用失敗，Commom Dialog返回VB的錯(cuò)誤代碼為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)用通用對(duì)話框Commom Dialog了。
在一般的程序設(shè)計(jì)中，文件操作對(duì)話框都是必不可少的。而這種對(duì)話框的設(shè)計(jì)也比較繁瑣。首先，要設(shè)計(jì)一個(gè)新格式Form并設(shè)置好邊框，再在上面設(shè)計(jì)一個(gè)文本框TextBox用以顯示和輸入文件名，一個(gè)文件列表框FileListBox，一個(gè)目錄列表框DirListBox，一個(gè)驅(qū)動(dòng)器列表框Drivelist， 一個(gè)小型組合框ComboBox用以顯示和選擇類型。而且還要編寫好幾個(gè)過程程序來完成總體功能。雖然整個(gè)實(shí)現(xiàn)過程難度并不算太大，但較為煩瑣。
現(xiàn)在，有了通用對(duì)話框Commom Dialog以后，事情就簡(jiǎn)單多了。Commom Dialog共有七種用法，調(diào)用語法為：[Form.]CmDialog.Action[=Setting]
其中：
Setting Dialog Displayed
0 No action 不運(yùn)行
1 Open 打開文件
2 Save as 換名存盤
3 Color 色彩
4 Font 字型
5 Printer 打印
6 Invokes WINHELP.EXE 調(diào)用幫助文件
現(xiàn)在，我們以打開文件對(duì)話框Open為例予以具體說明。首先，在格式上建立一個(gè)通用對(duì)話框控件CMDialog1，設(shè)置其屬性如下：
DialogTitle=<對(duì)話框標(biāo)題> ：次項(xiàng)空缺時(shí)，對(duì)話框標(biāo)題等于
激活方式Setting。
Filename=*.txt ：缺省文件名
Filter=<文本文件[*.txt]>|*.txt|<所有文件 [*.*]>|*.*| ：文件
選擇類型為文本文件[*.txt]——通配符*.txt，或
所有文件[*.*]——通配符*.*。注意，以上各項(xiàng)均
以豎杠符“|”結(jié)束。
LnitDiv=C:\ ：文件缺省路徑。
通用對(duì)話框Commom Dialog控件被調(diào)用后，屬性Filename返回用戶所選文件名。如果調(diào)用失敗，Commom Dialog返回VB的錯(cuò)誤代碼為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)用通用對(duì)話框Commom Dialog了。