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