1樓：匿名使用者
vb6使用on error 語句來捕獲程式執行中的可預見錯誤或不可預見的錯誤。
on error 語句，啟動一個錯誤處理程式並指定該子程式在一個過程中的位置；也可用來禁止一個錯誤處理程式。
說明如果不使用 on error
語句，則任何執行時錯誤都是致命的；也就是說，結果會導致顯示錯誤資訊並中止執行。
on error 語句示例
本示例先使用 on error goto
語句在一個過程中指定錯誤處理的**所在。本示例中，試圖刪除一已經開啟的檔案從而生成的錯誤碼為
55。這個錯誤將由示例中的錯誤處理程式碼來處理，處理完後，控制會回到發生錯誤的語句處。on error goto 0 語句關閉錯誤陷阱。然後
on error resume next 語句用來改變錯誤陷阱，以便發覺下一個語句產生的錯誤的範圍。請注意示例中使用
err.clear 在錯誤處理完後，清除 err 物件的屬性。
sub onerrorstatementdemo()
on error goto errorhandler ' 開啟錯誤處理程式。
open "testfile" for output as #1 ' 開啟輸出檔案。
kill "testfile" ' 試圖刪除已開啟的檔案。
on error goto 0 ' 關閉錯誤陷阱。
on error resume next ' 改變錯誤陷阱。
objectref = getobject("myword.basic") ' 試圖啟動不存在
' 的物件
'檢查可能發生的 automation 錯誤。
if err.number = 440 or err.number = 432 then
' 告訴使用者出了什麼事。然後清除 err 物件。
msg = "there was an error attempting to open the automation object!"
msgbox msg, , "deferred error test"
err.clear ' 清除 err 物件欄位。
end if
exit sub ' 退出程式，以避免進入錯誤處理程式。
errorhandler: ' 錯誤處理程式。
select case err.number ' 檢查錯誤代號。
case 55 ' 發生「檔案已開啟」的錯誤。
close #1 ' 關閉已開啟的檔案。
case else
' 處理其他錯誤狀態 . . .
end select
resume ' 將控制返回到產生錯誤的語句。
end sub
2樓：匿名使用者
on error goto err1'轉到錯誤處理*****
err:
錯誤處理語句
處理完別忘了err.clear
和on error resume next '忽略錯誤
3樓：匿名使用者
private sub form_load()on error goto errorhandlers = 1 / 0
a = new collection
exit sub
errorhandler:
select case err.numbercase 11
msgbox err.descriptioncase 450
msgbox err.descriptionend select
err.clear
resume next
end sub
4樓：
給你舉個例子吧
on error to to err1:
……exit sub
err1:
msgbox ""
5樓：匿名使用者
用on error 語句
sub onerrordemo()
on error goto errorhandler ' 開啟錯誤處理程式。
．．．．
exit sub ' 退出程式，以避免進入錯誤處理程式。
errorhandler: ' 錯誤處理程式。
．．．．
resume ' 將控制返回到產生錯誤的語句。
end sub
vb中程式錯誤的捕獲以及處理方法
6樓：匿名使用者
捕捉錯誤資訊主要用on error語句，如下例子： 此例子使用 on error goto 語句在一個過程中指定錯誤處理的**所在。本示例中，試圖刪除一已經開啟的檔案從而生成的錯誤碼為 55。
這個錯誤將由示例中的錯誤處理程式碼來處理，處理完後，控制會回到發生錯誤的語句處。on error goto 0 語句關閉錯誤陷阱。然後 on error resume next 語句用來改變錯誤陷阱，以便發覺下一個語句產生的錯誤的範圍。
請注意示例中使用 err.clear 在錯誤處理完後，清除 err 物件的屬性sub onerrorstatementdemo() on error goto errorhandler ' 開啟錯誤處理程式。 open "testfile" for output as #1 ' 開啟輸出檔案。
kill "testfile" ' 試圖刪除已開啟的檔案。 on error goto 0 ' 關閉錯誤陷阱。 on error resume next ' 改變錯誤陷阱。
objectref = getobject("myword.basic") ' 試圖啟動不存在 ' 的物件'檢查可能發生的 automation 錯誤。 if err.
number = 440 or err.number = 432 then ' 告訴使用者出了什麼事。然後清除 err 物件。
msg = "there was an error attempting to open the automation object!" msgbox msg, , "deferred error test" err.clear ' 清除 err 物件欄位。
end if exit sub ' 退出程式，以避免進入錯誤處理程式。errorhandler: ' 錯誤處理程式。
select case err.number ' 檢查錯誤代號。 case 55 ' 發生「檔案已開啟」的錯誤。
close #1 ' 關閉已開啟的檔案。 case else ' 處理其他錯誤狀態 . .
. end select resume ' 將控制返回到產生錯誤的語句。end sub
vb6中怎麼修改字型顏色,VB中如何改變文字顏色
可以直接在bai 屬性面板裡設定對 象的du zhiforecolor 如果有 屬性。用 設定dao,其內格式 容物件.forecolor 設定值其中設定值可以為四種 1 例如 物件.forecolor vbred 紅色,或vbblue等,vbgreen綠色等 2 rgb 正如樓上 爛掉 蘿蔔 所言...
vb6連線遠端資料庫，VB6連線遠端資料庫SQL
分析了一下你的問題，有幾點問題你需要排查 1 既然是動態域名，那麼你的資料庫伺服器應該面對的是公網。如果是公網，區域網ip連線是否成功就毫無意義。2 你有否嘗試過使用公網ip連線，如果使用公網ip連線成功，那就有可能是域名解析的問題。3 你是否設定好了路由器的埠對映，分析你的題目，我估計你網路狀態可...
vb6中，當程式執行後，隨機產生數，並且判斷奇數偶數。程式怎麼寫
新增窗體form1,文字框text1,按鈕command1,command2,然後新增如下 private sub form load command1.caption 產生隨機數 command2.caption 判斷 text1.locked false a false end sub priv...