تعريف متغير يحمل قيم نصية عديدة

سيكون الكود هذا

        MsgBox(txt(Rnd))

:blush:

نعم تستطيع هكذا

أولاً التعريف سيكون :

    Dim txt(2) As String

وتستبدل الرقم 2 بأي عدد تريد حسب عدد مكونات المصفوفة

ملاحظة : 0 يعد رقماَ

ثانياُ : تعريف مكونات المصفوفة هكذا :

        txt(0) = "mmg"
        txt(1) = "ali"
        txt(2) = "mohamedf"

ثالثاً بإستخراج القيم عشوائياً إستخدم هذا الكود :

MsgBox(txt(Rnd))

للآسف بيطلع لي اول 2 فقط !!

يعني في مثالك السابق :

MMG

ali

mmg

ali

+ ..

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

Dim txt() As String = {"mmg", "muhamed", "mysyria"}
    	Randomize()
    	MessageBox.Show(txt(New Random().Next(0, txt.Length)))

شكرا لك , ظبط

مرحبا شباب ..

شباب طلبي :

الحدث : Textbox1_changed

الذي اريد : اذا كان النص في Textbox = "مجموعة من الاحرف انا اعرفها " عندها اظهر "خطأ"

مجموعة الاحرف :

Dim Chars(2) as string = {"A","b","C"}

حسب ما فهمت أنك تريد إذا كان الحرف المدخل في TextBox يساوي إحدى قيم مصفوفة النص سيظهر خطأ ..

إذا كان هذا طلبك فتفضل :

  For Each value As String In Chars
            If value = Trim(TextBox2.Text) Then
                MsgBox("Err")
            End If
        Next