在窗体上画一个通用对话框,其名称为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)