منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] سؤال في الدالة الشرطية if - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] سؤال في الدالة الشرطية if (/showthread.php?tid=36660)



سؤال في الدالة الشرطية if - ismaeel - 10-10-20

كيف اضبط الكود التالي في التكس 
PHP كود :
Private Sub TextBox1_TextChanged(sender As ObjectAs EventArgsHandles TextBox1.TextChanged
        If TextBox1
.Text 20 Then
            MsgBox
("تم")
 
       End If
 
   End Sub 



المشكلة انه بمجرد كتابة رقم يتم تنفيذ الكود يعني عند كتابة رقم 1 تظهر الرسالة 
ولو اريد ادخل رقمين ما بقدر يعني مثلا 18 او 19 او 12 ينفذ الكود بمجرد كتابة بداية الرقم 
كيف حل هذا الاشكال


RE: سؤال في الدالة الشرطية if - اسامه الهرماوي - 10-10-20

السلام عليكم...
يمكنك إستخدام زر Enter من لوحة المفاتيح لتنفيذ الأمر وهو كالتالي.
تفضل:
كود :
 Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Enter Then
           If TextBox1.Text < 20 Then
               MsgBox("تم")
           End If
       End If
   End Sub



RE: سؤال في الدالة الشرطية if - ismaeel - 10-10-20

حفظك الله
اريد تنفيذ الكود بدون الضغط على انتر
يعني ينفذ الكود بعد كتابة رقمين


RE: سؤال في الدالة الشرطية if - 1234 - 10-10-20

(10-10-20, 03:51 PM)ismaeel كتب : كيف اضبط الكود التالي في التكس 
PHP كود :
Private Sub TextBox1_TextChanged(sender As ObjectAs EventArgsHandles TextBox1.TextChanged
        If TextBox1
.Text 20 Then
            MsgBox
("تم")
 
       End If
 
   End Sub 



المشكلة انه بمجرد كتابة رقم يتم تنفيذ الكود يعني عند كتابة رقم 1 تظهر الرسالة 
ولو اريد ادخل رقمين ما بقدر يعني مثلا 18 او 19 او 12 ينفذ الكود بمجرد كتابة بداية الرقم 
كيف حل هذا الاشكال

PHP كود :
Private Sub TextBox1_TextChanged(sender As ObjectAs EventArgsHandles TextBox1.TextChanged
        If Val
(TextBox1.Text) >= 10 And Val(TextBox1.Text) < 20 Then
            MsgBox
("تم")
 
       End If
 
   End Sub 



RE: سؤال في الدالة الشرطية if - ismaeel - 10-10-20

هذا هو المطلوب