昱得資訊工作室
麻辣學園
 歡迎光臨, 訪客. 請先 登入 或 註冊一個帳號.
您忘了 啟用您的帳號嗎?
2008-05-13, 17:33:26
首頁 說明 登入 註冊 贊助論壇 想當作者?
新聞: 會員注意!!麻辣家族討論區[通用版規]，請詳閱!!


+  麻辣家族討論區
|-+  程式設計
| |-+  VB 與 VB.Net
| | |-+  ERROR時 可以知道是那行的ERROR		 0 會員 以及 1 訪客 正在閱讀本篇主題. « 上一篇主題 下一篇主題 »
頁: [1] 向下 列印
作者 主題: ERROR時 可以知道是那行的ERROR  (閱讀 809 次)
閔
*
離線 離線

會員性別: 男
文章: 606


作業系統 Windows XP Professional
CPU CPU:P4 2.8G RAM:3G
網路連線 ADSL 10M/640K
OFFICE版本 Microsoft Office 2000/2003
ERROR時 可以知道是那行的ERROR
« 於: 2007-07-15, 21:32:25 »
請問各位大大
是否有語法 可以知道是那行出現的ERROR

例如
ON ERROR GO
那在第三行出現錯誤跳開時 後面的MSGBOX可以提示是在哪行跳開的!
已記錄
思考一下喔! 其實沒有那麼難啦~
　　　過程中的學習，才是自己的財寶!
　　　　　　努力的找尋，凡事都有解!

認真的想一下 我要的是什麼? 答案 幫助 還是學會這學問...
fox3000
*
離線 離線

會員性別: 男
文章: 21


作業系統 Windows XP
CPU NB 1.7G
網路連線 ADSL 256K/64K
OFFICE版本 Office XP
Re: ERROR時 可以知道是那行的ERROR
« 回覆文章 #1 於: 2007-07-30, 23:14:12 »
提供一個簡單的範例給您參考

Private Sub xyz()
　　On Error GoTo ErrorHandle
　　Dim uFunction As String
　　Dim uStep As String

　　uFunction = "xyz"
　　
　　uStep = "說明1"
　　'程式碼......
　　
　　uStep = "說明2"
　　'程式碼......
　　
　　uStep = "說明3"
　　'程式碼......
　　
　　uStep = "說明4"
　　'程式碼......
　　
　　Exit Sub
　　
ErrorHandle:
　　MsgBox "程式發生錯誤：" & vbCrLf & vbCrLf & "Function:" & uFunction & vbCrLf & "Step:" & uStep & vbCrLf & "錯誤代碼:" & Err.Number & vbCrLf & "錯誤訊息:" & Err.Description, vbCritical + vbOKOnly, "錯誤訊息"
End Sub


uStep 可以當成是一般的註解，當程式有錯誤時，可以很容易知道錯在哪裡，
寫的越詳細，以後除錯或是要了解這段程式碼的用途都很方便
已記錄
頁: [1] 向上 列印 
« 上一篇主題 下一篇主題 »
跳到: