显示“打开”和“另存为”对话框

有了“打开”对话框就可指定驱动器、目录、文件扩展名和文件名。

“另存为”对话框在外观上与“打开”对话框相同，只是对话框的标题和文件名是暗淡的。运行时选定文件并关闭对话框后，可用 FileName 属性获取选定的文件名。

图 7.12 “打开”对话框

要显示“打开”对话框

1. 指定在“文件类型”列表框中显示的文件过滤器列表。

   可用下列格式设置 Filter 属性：

   description1 | filter1 | description2 | filter2...

   Description 是列表框中显示的字符串─ 例如，"Text Files (*.txt)"。Filter 是实际的文件过滤器─ 例如，"*.txt"。每个
   description | filter 设置间必须用管道符号分隔 (|)。

2. 用 ShowOpen 方法显示对话框。

选定文件后可用 FileName 属性获取选定文件的名称。

对所有公共对话框，当 CancelError 属性为 True，而且用户单击了对话框的“取消”按钮时将生成一个错误。在显示对话框时捕获错误，以此检测是否按了“取消”按钮。

下列代码显示“打开“对话框并以选定的文件名为打开文件过程的参数：

Private Sub mnuFileOpen_Click ()
   'CancelError 为 True。
   On Error GoTo ErrHandler
   '设置过滤器。
   CommonDialog1.Filter = "All Files (*.*)|*.*|Text _
   Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
   '指定缺省过滤器。
   CommonDialog1.FilterIndex = 2

   '显示“打开”对话框。
   CommonDialog1.ShowOpen 
   '调用打开文件的过程。
   OpenFile (CommonDialog1.FileName)
   Exit Sub

ErrHandler:
'用户按“取消”按钮。
   Exit Sub
End Sub