[Mtaktak]

السلام عليكم
عندما اقوم بعمل اداة TextBox ك مصفوفة تتكون من عدد معين ولنفرض 10 وذلك عن طريق الكود

ما هي طريقة التحقق من ان كل TextBox  يحتوي على ما اريد

وفي  حال عدم التحقق يتم الاشعار ب مسج بوكس

انا عملت التالي ولكن الكود طويل    اريد اختصاره

كود :

If TextBox(0).Text = "1" And TextBox(1).Text = "2" And TextBox(2).Text = "3" _
           And TextBox(3).Text = "4" And TextBox(4).Text = "5" And TextBox(5).Text = "6" _
           And TextBox(6).Text = "7" And TextBox(7).Text = "8" And TextBox(8).Text = "9" _
           And TextBox(9).Text = "10" Then
MsgBox("لقد فزت", MsgBoxStyle.Information, "تهانينا")
End If

[معاند الحظ]

استخدم حلقة تكرار فهي تختصر الكود الذي كتبته بشكل كبير

كود :

for a as integer =0 to 10
if textbox(a).text="something" then
msgbox("correct")
else
msgbox("wrong")
end if
next

[Mtaktak]

شكرا اخي على مرورك
بالنسبة للكود الذي وضعته انت جزاك الله خيرا صحيح اذا كنت تريد التحقق من نتيجة واحدة فقط  وانا اعرف ذلك
ولكن هل ينطبق هذا الكود في حال كان التحقق من نتائج مختلفة مثل المثال الذي انا وضعته

بمعنى ان Textbox(1) يتضمن رقم ٧
بينما  Textbox(2)  يحتوي على رقم ١٠ فرضا

وهكذاا


وشكرا لك

[Mtaktak]

يبدو اني وجد الحل

كود :

Dim win As Integer
       Dim i As Integer
       Do While i <= 15
           i = i + 1
           If Val(Btns(i - 1).Text) = i Then
               win += 1
           End If
       Loop
       If win = 15 Then
           MsgBox("لقد فزت  " & "عدد المحاولات   " & count, MsgBoxStyle.Information, "تهانينا")
           win = 0
           i = 0
       End If
       count += 1

شكرا لتفاعلكم  ومروركم