在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:
Private Su)o Command1_Click()
CommonDialog1.Flags-vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*)|*.*|Text Files(*fxt)1*.txt
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是( )。
A) All Files(*.*)
B) Text Files(*.txt)
C) k.txt
D) All Files(**)|Text Files(*.*)