訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

下面是引用 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" 並未出現

是否還有哪些設定呢????

Private Sub Command1_Click()
On Error GoTo err
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Exit Sub
err:
    MsgBox "ERR"
 
End Sub