UC知道vb 记事本 调保存框后 如果不保存 取消 就会出现错误
来源：百度知道 编辑：UC知道 时间：2024/09/22 16:47:49
Private Sub save_Click()
If cd1.FileName = "" Then
cd1.ShowSave
End If
fn = cd1.FileName
Open fn For Output As #1
Print #1, Text1.Text
Close #1
End Sub
If cd1.FileName = "" Then
cd1.ShowSave
End If
fn = cd1.FileName
Open fn For Output As #1
Print #1, Text1.Text
Close #1
End Sub
这个问题应该是这样解决：
commondialog1.cancelerror=true
on errror goto errhandler
…………
………………
exit sub
errhandler：
end sub
加写错误处理,一句代码OK
On Error Resume Next
cd1.cancelerror=false