下面是引用 shmiya 於 2009-12-02 09:30 發表的 VB6 On Error goto line 語法: 
請教各位大大,我參考了小瓜瓜網站的範例如下
已設定 cancelError = true
Private Sub Command1_Click()
On Error GoTo err
CommonDialog1.ShowOpen
err:
MsgBox "ERR"
End Sub
可是為何 On Error GoTo err 好像沒有產生作用
按取消後 MsgBox "ERR" 並未出現
是否還有哪些設定呢????
依照你的程式
不管有沒有Error
都會執行到err的
除非你在err前加上Exit Sub
如果你在 CommonDialog1 有設定 cancelError = true
應該是可執行的
我寫給你參考
複製程式
Private Sub Command1_Click()
On Error GoTo err
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Exit Sub
err:
MsgBox "ERR"
End Sub
