کمک فوری فوری

سلام.
لطفا روش استفاده از دستور go to رو با یک مثال برام بنویسید.
لطفا زود زود کمکم کنید.
ممنون

سلام دوست عزیزم. منظورتو on error goto هست ؟

نقل قول:

---

on error goto errlabel
کد
errlabel:
کد هنگام رخ دادن خطا

---

یا اگه منظورتون یه goto دیگست ... goto line number
که line number شماره خط برنامست
یا علی.
کمی بیشتر توضیح میدادی خوب بود. اخه کمی خنگم

من استفاده های دیگش رو نمی دونم ولی می دونم برای خطا گیزی وی بی هم استفاده می شه
یعنی با استفاده از این دستور می تونی کاری کنی توی برنامت دیگه خطایی رخ نده
کد زیر روی توی ویژوال بیسیک بنویس:(اول دو تا تکست باکس و سک کامند روی فرم بزار)

کد:

---

Private Sub Command1_Click()
Me.Caption = Text1 * Text2
End Sub

---

حالا اگر در یکی از تکست ها به جای عدد از کاراکتر دیگری استفاده کنی ویژوال بیسیک پیغام خطا می ده و از برنامه می پره بیرون:41:
ولی اگر کد رو به این روش اصلاح کنی:

کد:

---

Private Sub Command1_Click()
On Error GoTo jigar
Me.Caption = Text1 * Text2
jigar:
Select Case Err.Number
Case 13
MsgBox "لطفا فقط اعداد را وارد نمایید"
Resume Next
End Select
End Sub

---

حالا می تونی برای هر شماره خطا یک متن فارسی بنویسی و اون resume next هم برای اینه که برنامه به خط بعد از خزی که خطا درش رخ داده بره در اینجا می تونی هر چیزی به غیر از این بنویسی مثل:
resume:برای اینکه برنامه دوباره همون خط رو ادامه بده
exit sub:برای خروج کامل از ساب
و یا هر کد دیگری
استفاده از resume فقط برای موارد خاص است یعنی اگر در کد بالا از ریزوم استفاده کنید برنامه قفل می کنه
چون هی می خواد ادامه بده ولی نمی تونه ولی توی برنامه زیر می توین از resume استفاده کنید:
این برنامه فقط یک کامند می خواد:

کد:

---

Private Sub Command1_Click()
On Error GoTo jigar
Dim a As Integer
Dim b As Integer
a = InputBox("لطفا عدد اول را وارد کنید", "عدد اول")
b = InputBox("لطفا عدد دوم را وارد کنید", "عدد دوم")
MsgBox a * b

jigar:
Select Case Err.Number
Case 13
MsgBox "لطفا فقط عدد وارد کنید"
Resume
End Select
End Sub

---

امیدوارم فهمیده باشی:21: