访客只能看到部份内容，免费 加入会员 或由脸书 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