在窗體上畫一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕，并編寫如下事件過(guò)程：

Private Sub Command1_Click()

CommonDialog1.Flags=vbOFNHideReadOnly

CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt

CommonDialog1.FiherIndex=1

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”框中顯示的是

A．All Files(*.*)

B．Text Files(*.*)

C．*.txt

D．All Files(*.*)|Text Files(*.*)

A解析：通用對(duì)話框控件的CommonDialog1的Filter屬性用來(lái)指定在對(duì)話框中顯示的文件類型。利用該屬性可以設(shè)置多個(gè)文件類型，供用戶在對(duì)話框的“文件類型”的下拉列表中選擇。Filter的屬性值由一對(duì)或多對(duì)文本字符串組成，每對(duì)字符串用管道符“1”隔開，在管道符“|”前面的部分稱為描述，后面的部分一般為通配符和文件擴(kuò)展名，稱為“過(guò)濾器”。如“*.txt”等，各對(duì)字符串之間也用管道符隔開。其格式如下：[窗體.]對(duì)話框名.Filter="描述符1|過(guò)濾器1|描述符2|過(guò)濾器2……"如果省略窗體，則為當(dāng)