在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt
CommonDialog1FilterIndex=1
CommonDialog1ShowOpen
MsgBox CommonDialog1FileName
End Sub
程序运行后，单击命令按钮，将显示—个“打开”对话框，此时在“文件类型”框中显示的是
A．All Files(*.*)
B．Text Files(*.txt)
C．Batch Files(*.bat)
D．All Files(*.*)|Text Files(*.txt)
