افزودن چند مقدار [بایگانی]

mohamad_torabi

پنج شنبه 04 مهر 1392, 20:54 عصر

چه جوری میتونم به برنامه بگم تو دستور شرطی مقدار تکست باکس 1 چند مقداری باشه مثلا اگر متن تکست باکس 1 برابر .... و یا .... و یا بود این کارو بکن

mohamad_torabi

پنج شنبه 04 مهر 1392, 23:15 عصر

از دوستان کسی بلد نیست؟

aliagamon

پنج شنبه 04 مهر 1392, 23:51 عصر

....................:لبخند:

If textBox1.Text = "salam" OrElse textBox1.Text = "khobi?" OrElse textBox1.Text = "bye-bye" Then
MessageBox.Show("Good")
End If

mohamad_torabi

جمعه 05 مهر 1392, 01:45 صبح

....................:لبخند:

If textBox1.Text = "salam" OrElse textBox1.Text = "khobi?" OrElse textBox1.Text = "bye-bye" Then
MessageBox.Show("Good")
End If

این برای کد های طولانی که چند تا دستئ ایف هستند جواب نمیده

amin32

جمعه 05 مهر 1392, 07: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"