在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt_|Batch Files (*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是 (13) 。
如果在对话框中选择d盘temp目录下的tel.txt文件,然后单击“确定”按钮,则在MsgBox信息框中显示的提示信息是 (14) 。
参考答案:(13)All Files(*.*) (14)D:\temp\tel.txt
解析: 打开文件对话框时,“文件类型”列表框中显示的是对话框默认的过滤文字。本题中共设置了3种过滤文字:All Files(*.*)、Text Files(*.txt)、Batch Files(*.bat),由于打开对话框前执行CommonDialog1.FilterIndex=1语句设置了第一种过滤方式为默认过滤方式,所以显示的过滤文字为“All Files(*.*)”。选好文件并单击“确定”按钮后,对话框的FileName属性表示当前选中的带路径的文件名,所以对话框中显示的文字为:D:\temp\tel.txt。