关于CommonDialog控件 另存为 如果选择了 取消 怎么判断？文件名提前赋值，

Question

请问我在程序中，是用了commdialog控件需要判断 另存为 ，用户是否按了取消，
我如何判断，打开另存为之前的我已经commdialog.filename=文件名,
我用错误判断on error goto err1 
也不能转到那个语句，
我应该如何做？
请给我一个明确的做法！

Answer 1

On Error GoTo ErrorHandler
commdialog.CancelError = True
commdialog.ShowOpenexit subErrorHandler:
    If Err.Number = 32755 Then
        MsgBox "用户按‘取消按钮"
    Else
        MsgBox Err.Description
    End If

Answer 2

将文本框的cancelerror=true，当单击cancel时，会导致一个错误代码：32755
private sub command1_click()
 on error goto cancel
 commondialog1.showcolor
 .....
 cancel:
end sub