通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。
在运行时，当用户选择一个文件“关闭”对话框时，FileName 属性既为选定的文件名。
可以设置 Filter 属性，这样对话就只显示某种文件类型，如文本文件。Flags 属性可用来改变对话的元素，当诸如覆盖文件之类的动作发生时，还可用来提示用户。
CommonDialog 控件（“打开”、“另存为”对话框）示例
下例显示“打开”对话框然后在信息框中显示所选的文件名：
Private Sub Command1_Click() ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置过滤器 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" ' 指定缺省的过滤器 CommonDialog1.FilterIndex = 2 ' 显示“打开”对话框 CommonDialog1.ShowOpen ' 显示选定文件的名字 MsgBox CommonDialog1.FileName Exit Sub ErrHandler: ' 用户按了“取消”按钮 Exit SubEnd Sub
匿名回答于2023-09-17 16:52:27
