![](https://cos-cdn.shuashuati.com/pipixue-web/2020-1231-2005-12/ti_inject-812ce.png)
( 31 )在窗体上画一个通用对话框,其名称为 CommonDialog1 ,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Filter = 'All Files (*.*)|*.*|Text Files' & _ '(*.txt)|*.txt| Executable Files(*.exe)|*.exe' CommonDialog1.FilterIndex = 3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后,单击命令按钮,将显示一个 “ 打开 ” 对话框,此时在 “ 文件类型 ” 框中显示的是