UC知道vb6.0问题，取消不管用
来源：百度知道 编辑：UC知道 时间：2024/06/01 04:47:31
我做了个数据库备份功能，怎么点“取消”按钮也进行备份了？？
If MsgBox("确定备份数据库吗？", vbYesNo + 32, "确认") = vbYes Then
On Error GoTo ErrHandler
Dim X, Y As String
CommonDialog1.Filter = "mdb Files (*.mdb)|*.mdb"
CommonDialog1.ShowSave
X = App.Path & "\zixun.mdb"
Y = CommonDialog1.FileName
conn.Close
FileCopy X, Y & ".mdb"
MsgBox "备份完成", 64, "成功"
conn.Open
Exit Sub
ErrHandler:
'用户按“取消”按钮。
Exit Sub
End If
用CommonDialog1控件选择的位置。
我没说明白，是CommonDialog1里的取消按钮不起作用。
If MsgBox("确定备份数据库吗？", vbYesNo + 32, "确认") = vbYes Then
On Error GoTo ErrHandler
Dim X, Y As String
CommonDialog1.Filter = "mdb Files (*.mdb)|*.mdb"
CommonDialog1.ShowSave
X = App.Path & "\zixun.mdb"
Y = CommonDialog1.FileName
conn.Close
FileCopy X, Y & ".mdb"
MsgBox "备份完成", 64, "成功"
conn.Open
Exit Sub
ErrHandler:
'用户按“取消”按钮。
Exit Sub
End If
用CommonDialog1控件选择的位置。
我没说明白，是CommonDialog1里的取消按钮不起作用。
把Commondialog的CancelError属性设置为True。
If MsgBox("确定备份数据库吗？", vbYesNo + 32, "确认") = vbYes Then
On Error GoTo ErrHandler
Dim X, Y As String
CommonDialog1.Filter = "mdb Files (*.mdb)|*.mdb"
CommonDialog1.CancelError = False
CommonDialog1.ShowSave
if CommonDialog1.filename<>"" then
X = App.Path & "\zixun.mdb"
Y = CommonDialog1.FileName
conn.Close
FileCopy X, Y & ".mdb"
MsgBox "备份完成", 64, "成功"
conn.Open
end if
End If
可以试一下这种处理
If MsgBox("确定备份数据库吗？", vbYesNo + 32, "确认") = vbYes Then
MsgBox "您选择了YES"
Else
MsgBox "您选择了NO"
End If
用一个变量来接收MsgBox("确定备份数据库吗？", vbYesNo + 32, "确认")
如下：
Dim s As String
s = MsgBox("确定备份数据库吗？", vbYesNo + 32, "确认")
if