关于VB中通用对话框的问题

来源：百度知道 编辑：UC知道 时间：2024/05/18 16:43:32
使用通用对话框在打开和另存文件时候，点取消或关闭都会提示程序错误。当是打开的时候可以用
If Len(CommonDialog1.FileTitle) < 1 Then
Exit Sub
来避免提示错误，

可当另存的时候，点击取消或关闭。用什么方法可以避免提示错误呢。是高手就说清楚一点，

另外，我在打开通用对话框时，只想对话框内只显示某一类文件，比如只显示mdb文件，又该如何表示
问题改一下哈，在通用对话框另存的时候，如果在点击取消或点右上方的那个“X”（即关闭）。在不自动提示错误的情况下，使用什么语句可以便工程马上结束。
比如：if ....... then exit sub

看你用了几个通用对话框控件，如果是几个命令按钮控制一个通用对话框控件。第一次使用之后。CommonDialog1.FileName 属性就会记录下来。然后在你按另存的时候。点取消或是关闭，就会提示出错。所以在你打开另存窗口前一定要把 CommonDialog1.FileName 清空。即：
CommonDialog1.FileName ＝“”
格式如下：
Private Sub Command1_Click()

CommonDialog1.FileName ＝“”
CommonDialog1.Filter = "数据库文件mdb (*.mdb)|*.mdb"
CommonDialog1.ShowOpen
if CommonDialog1.FileName ＝“”then exit sub
end sub

保存的时候没有任何接收，不会有错误产生啊

CommonDialog1.Filter = "mdb (*.mdb)|*.mdb"
CommonDialog1.ShowOpen

Private Sub Command1_Click()
On Error GoTo e
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
e: Exit Sub
End Sub

如果是VB那个通过对话框控件，要得到路径可以通过将FileName里的FileTitle分离出去得到
Private Sub Command1_Click()
CommonDialog1.ShowSave
MsgBox CommonDialog1.FileName
'这个CommonDialog1.FileName是包含文件名的全路径，CommonDialog1.FileTitle是文件名，二都用字符串运算可以得到路径
End Sub
我认为只要路径的情况，更好的作法是用系统的路径选择对话框
Private Sub