PDA

View Full Version : دستور On Error GoTo چگونه کار می کنه؟



mhq1368
دوشنبه 25 دی 1391, 17:09 عصر
دوستان عزیز سلام

من هر چی با دستور On Error GoTo در ویژوال بیسیک که برای مدیریت خطا هست استفاده می کنم با خطا رو میده یعنی انگاری On Error GoTo هیچکاره است .

خواستم از دوستان لطف کنم یک نمونه سورس بزارنم تا من متوجه بشم

SlowCode
دوشنبه 25 دی 1391, 17:15 عصر
سلام
خب لابد اشتباهی می نویسی. یه مثال میزنم.

On error goto E
d=text1.text / text2.text
msgbox d
Exit sub
E: msgbox "Error in operation"

اینجا تو تا عدد رو تقسیم میکنیم اگه خطا رخ بده اون پیغام رو میده. فقط یادت نره اون Exit sub رو همیشه بنویس وگرنه پیغام رو همیشه نشون میده.
نکته: یه جای E از عدد هم میتونی استفاده کنی.

mhq1368
دوشنبه 25 دی 1391, 17:17 عصر
انجام دادم باز خطا گرفت . محسن می تونی واسم آپلود کنی؟

M.T.P
دوشنبه 25 دی 1391, 18:00 عصر
برو تو مسیر زیر:



Tools\Options\General(Tab) \Error Traping

وسطی رو انتخاب کنید: Break in Class Module

دستور رو هم بهتره اینطوری بنویسید:


Private Sub Form_Load()
On Error GoTo ErrLine
Dim i As Integer

i = 5 / 0

ErrLine:
If Err.Number Then MsgBox Err.Description
End Sub