2 回答
TA貢獻2021條經(jīng)驗 獲得超8個贊
On Error 語句
啟用或禁用錯誤處理程序。
On Error Resume Next
On Error GoTo 0
說明
如果在您的代碼中未使用 On Error Resume Next 語句, 所發(fā)生的運行時錯誤 將顯示錯誤信息,同時,代碼的執(zhí)行也隨之終止。但是具體操作由運行代碼的主機決定。主機有時可有選擇地處理各類錯誤。在有些情況下,它可以在出錯的地方激活腳本調(diào)試器。而在另一些情況下, 由于主機無法通知用戶,因此對所發(fā)生的錯誤沒有明確說明。至于如何處理錯誤則完全取決于主機的功能。
在任意一個特殊過程中,只要在調(diào)用堆棧的地方啟用錯誤處理程序,所發(fā)生的錯誤一般不會是致命性的。如果在一個過程中沒有啟用局部錯誤處理程序,當發(fā)生錯誤時,控制可通過堆棧調(diào)用轉(zhuǎn)移,直到找到一個具有錯誤處理程序的過程,并在出錯的地方處理錯誤。如果在調(diào)用堆棧的過程中沒有找到錯誤處理程序,則在出錯的地方顯示錯誤信息,同時終止代碼執(zhí)行,或者通過主機來正確處理錯誤。
On Error Resume Next 會使程序按照產(chǎn)生錯誤的語句之后的語句繼續(xù)執(zhí)行,或是按照最近一次所調(diào)用的過程(該過程含有 On Error Resume Next 語句)中的語句繼續(xù)運行。這個語句可以不顧運行時錯誤,繼續(xù)執(zhí)行程序,之后您可以在過程內(nèi)部建立錯誤處理例程。在調(diào)用另一個過程時,On Error Resume Next 語句變?yōu)榉腔顒拥摹K?,如果希望在例程中進行內(nèi)部錯誤處理,則應(yīng)在每一個調(diào)用的例程中執(zhí)行 On Error Resume Next 語句。
當調(diào)用另一過程時,禁止使用On Error Resume Next 語句,因此如果您想在例程中嵌入錯誤處理程序,則需要在每次調(diào)用例程時都應(yīng)執(zhí)行 On Error Resume Next 語句。當退出一個過程時,錯誤處理程序可恢復到它在進入所退出過程之前的狀態(tài)。
如果您已啟用 On Error Resume Next 錯誤處理程序,則可使用 On Error GoTo 0禁用錯誤處理程序。
下面例子舉例說明如何使用 On Error Resume Next 語句:
On Error Resume Next
Err.Raise 6 '產(chǎn)生溢出錯誤。
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear '清除錯誤。
TA貢獻1801條經(jīng)驗 獲得超16個贊
在同一個窗體你可以條到過程里去啊
例:
private sub command1_click()
command2_click '跳到同窗體的command2_click事件
end sub
如果不同窗體的話
例:
在form1窗體
private sub command1_click()
form2.show
form2.command2_click '調(diào)用form2.command2_click事件,不過要把form2窗體的private sub
command1_click()改為pulbic sub command1_click()
pulbic是公有事件的聲名
end sub
- 2 回答
- 0 關(guān)注
- 232 瀏覽
添加回答
舉報
