在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt
CommonDialog1.Filterlndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
A．All Files(*.*)
B．Text Files(*.txt)
C．*.txt
D．All Files(*.*)|Text Files(*.*)
参考答案：A
解析： 通用对话框控件的CommonDialogl的Filter属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。Fiher的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符和文件扩展名，称为“过滤器”。如“*.txt”等，各对字符串之间也用管道符隔开。其格式如下：
[窗体.]对话框名.Filter="描述符1|过滤器1|描述符2|过滤器2……"
如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择所要显示的文件类型，而最初默认显示的文件类型(过滤器)可以由FilterIndex属性来指定，该属性是一个整数。用Filter属性设置多个过滤器后，每个过滤器都有一个值，第1个过滤器的值为1，第2个过滤器的值为2……用FilterIndex属性可以指定作为默认显示的过滤器，本题中的值是1，所以显示All Files(*.*)。