معال دستور goto a

[seyed_27 170]

بسمه تعالی1-برای خروج از یک sub چه دستوری باید بدمبا دستور if شرطی گذاشتم که اگر برقرار شد از sub مربوطه خارج بشه و بقیه فرامین آن sub رو اجرا نکنه2- معادل دستور پرش به یه لیبل یا همون goto a در b4a چیه؟

[مجید آرتا 5,875]

سلام

سوال اولتون میتونید از Return استفاده کنید :

[/b][b]Sub TestFunc(str As String)[/b]
[b] Select str[/b]
[b]  Case "Majid"[/b]
[b]  	Msgbox("Yes","")[/b]
[b]  Case Else[/b]
[b] 	Return[/b]
[b] End Select[/b]
[b] ToastMessageShow("Hoooora",False)[/b]
[b]End Sub[/b][b]

هر وقت آرگومان تابع Majid باشه کدهای دیگه رو اجرا میکنه اما هیچ کدی رو دیگه اجرا نمیکنه و از ساب خارج میشه.

سوال دومتون رو بگم که B4A در حال حاضر همچین قابلیتی نداره.

[رضا جابرپور 179]

سلام همانطور که دوستمون گفتند در تکمیل فرمایشاتشون اضافه می کنم goto خط فلان رو نداریم ولی می تونیم از sub فرمان استفاده کنیم مثلا

Private Sub tarikh()
.....
.....
.......
Dim Polling as Boolean = true
Do While Polling
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 1
ValRX = MSComm1.Input
If ValRX = Chr$(173) Then
time ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< به این دستور توجه کنید در صورت داشتن شرط پرش انجام می شود
....
End If
Loop
end sub

Private Sub time()
... ...
end sub