又是新的一天，又是新的一个问题。不是难题 50送人

Question

Private Sub Command1_Click()
On Error GoTo ErrTo  ' 少了下面一句
  CommonDialog1.cancelerror=true '   CommonDialog1.DialogTitle = "选择文件名"
  CommonDialog1.ShowOpen  MsgBox "点击了确定"Exit Sub
  ErrTo:  If Err.Number = 32755 Then MsgBox "点击了取消"Exit Sub
End Sub

Answer 1

拷贝了你的代码，可以出现“点击了取消”的msgbox

Answer 2

if CommonDialog1.filenmame ="" then
  '也许是取消吧
endif

Answer 3

我这里CommonDialog1.CancelError = False／True是一样的结果都可以出现“点击了取消”的msgbox（我没来得及sp5）