在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。 Priv

在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。

Private Sub Command1_Click()

CommonDialog1.Flags=vbOFNHideReadOnly

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

CommonDialog1.FilterIndex=1

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是

A．All Files(*.*)

B．Text Files(*.txt)

C．Batch Files(*.bat)

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

A解析：通用对话框控件CommonDialog1的Filter属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型,供用户在对话框"文件类型"的下拉列表中选择。Filter的属性值由一对或多对文本字符串组成,每对字符串用管道符"|"隔开,在管道符"|"前面的部分称为描述,后面的部分一般为通配符文件扩展名,称为"过滤器"。如"*.txt"等,各对字符串间也用管道符隔开。其格式如下:[窗体.]对话框名.Filter="描述符1|过滤器1|描述符2|过滤器2厖"如果省略窗