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