2013年计算机二级考试VB基础教程：通用对话框控件

　　Windows应用程序里的Open对话框，Save As对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。

　　1.Open对话框及Save As对话框

　　打开Open对话框使用ShowOpen方法，打开Save As对话框使用ShowSave方法。

　　Private Sub mnuOpen_Click ()

　　On Error GoTo ErrorHandler

　　CommonDialog1.CancelError = True

　　CommonDialog1.Filter = "Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*"

　　CommonDialog1.ShowOpen ' 显示打开对话框

　　Call OpenFile(CommonDialog1.FileName)

　　ErrorHandler:

　　Exit Sub

　　End Sub

　　其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的过程，这个过程需要的参数就是通用对话框返回的文件名。通用对话框的CancelError属性设为True的话，用户单击Cancel按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户的放弃操作。