چند شرط در یک شرط

[shoush_m 0]

سلام
چطور چندتا شرط رو باهم بنویسم. بجای اینکه تک تک شروط رو بنویسم یه دونه کلی بنویسم.
If text1.text="1" then 
Msgbox "1"
End if

If text1.text="2" then 
Msgbox "2"
End if

If text1.text="3" then 
Msgbox "3"
End if

میخوام همه رو توی یک شرط بزارم و بگم غیر اینا بود یه msgbox نشون بده بگو ورودی تعریف نشده است.

[MR.B4A 124]

سلام.

از دستور else if استفاده کن.

If text1.text="1" then 
Msgbox "1"

else If text1.text="2" then 
Msgbox "2"

else If text1.text="3" then 
Msgbox "3"
End if 

 

[Mthzf1384 123]

در 18 ساعت قبل، shoush_m گفته است :

سلام
چطور چندتا شرط رو باهم بنویسم. بجای اینکه تک تک شروط رو بنویسم یه دونه کلی بنویسم.
If text1.text="1" then 
Msgbox "1"
End if

If text1.text="2" then 
Msgbox "2"
End if

If text1.text="3" then 
Msgbox "3"
End if

میخوام همه رو توی یک شرط بزارم و بگم غیر اینا بود یه msgbox نشون بده بگو ورودی تعریف نشده است.

سلام هم میتونی از دستور else if استفاده کنی هم استفاده از or و And :

If text1.text="1" Or text1.text="2" Or text1.text="3" then 
	'کاری که میخواین
Else
	'کاری که میخواین
End If