VB6 On Error goto line 語法

Home Home

登入註冊發表列印載入圖片

引用 | 編輯 shmiya
2009-12-02 09:30

樓主
▼

請教各位大大,我參考了小瓜瓜網站的範例如下

已設定 cancelError = true

Private Sub Command1_Cli ..

訪客只能看到部份內容，免費加入會員

引用 | 編輯 Lenki
2009-12-02 21:41

1樓
▲ ▼

你貼的程式碼無論是否錯誤都會執行 err: 區段……所以不明白你的問題……
VB6 的 err 是一個儲存錯誤訊息的物件，建議你使用的名稱做個修改，例如將err 改成 ErrHandler 或其它名稱依你個人喜好……

Private Sub Command1_Click()
On Error GoTo ErrHandler

Exit Sub <---你沒有這一行，所以程式一定會執行 MsgBox "ERR"，你說不會出現，應該不可能……
ErrHandler:
MsgBox "ERR"
End Sub

引用 | 編輯三仙
2009-12-02 22:17

2樓
▲ ▼

下面是引用 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

引用 \| 編輯 A2737612 2013-01-02 10:49	3樓 ▲
拿去看看 x0