Private Sub Command1_Click()
C.ommonDialog1.Flags=vbOFNHideReadOnly
C.ommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txt
C.ommonDialog1.FilterIndex=1
C.ommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
E.nd Sub
程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是
A.All Files(*.*)
B.Text Files(*.txt)
C.Batch Files(*.bat)
D.All Files(*.*) |Text Files(*.txt)