View Full Version : افزودن چند مقدار
mohamad_torabi
پنج شنبه 04 مهر 1392, 21:54 عصر
چه جوری میتونم به برنامه بگم تو دستور شرطی مقدار تکست باکس 1 چند مقداری باشه مثلا اگر متن تکست باکس 1 برابر .... و یا .... و یا بود این کارو بکن
mohamad_torabi
جمعه 05 مهر 1392, 00:15 صبح
از دوستان کسی بلد نیست؟
aliagamon
جمعه 05 مهر 1392, 00:51 صبح
....................:لبخند:
If textBox1.Text = "salam" OrElse textBox1.Text = "khobi?" OrElse textBox1.Text = "bye-bye" Then
MessageBox.Show("Good")
End If
mohamad_torabi
جمعه 05 مهر 1392, 02:45 صبح
....................:لبخند:
If textBox1.Text = "salam" OrElse textBox1.Text = "khobi?" OrElse textBox1.Text = "bye-bye" Then
MessageBox.Show("Good")
End If
این برای کد های طولانی که چند تا دستئ ایف هستند جواب نمیده
amin32
جمعه 05 مهر 1392, 08:43 صبح
یک راه این هست که مقادیر احتمالی رو در یک آرایه رشته ای قرار بدید:
Dim test() AsString = {"yek", "do", "se", "char"}
سپس با شرط زیر در برنامه میتونید مقدار تکست باکس رو با مقادیر آرایه مطابقت بدید:
If test.Contains(TextBox1.Text) Then
MsgBox("Yes")
EndIf
در ضمن با کد زیر میتونید به آرایه مقادیر جدید و در واقع شرطهای جدیدی اضافه کنید:
ReDim Preserve test(UBound(test) + 1)
test(UBound(test)) = "panj"
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.