منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف جعل اذا كان العدد اصغر من 100 فى textbox يرجع 100 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف جعل اذا كان العدد اصغر من 100 فى textbox يرجع 100 (/showthread.php?tid=7710)



كيف جعل اذا كان العدد اصغر من 100 فى textbox يرجع 100 - مبتدئ - 22-02-13

كيف جعل اذا كان العدد اصغر من 100 فى textbox يرجع 100


كيف جعل اذا كان العدد اصغر من 100 فى textbox يرجع 100 - Easy4ever - 22-02-13

الكود كتالي

كود :
[align=left]If Val(TextBox1.Text) < 100 Then TextBox1.Text = 100[/align]

أفضل ان تضع هذا الكود في حدث الخروج من TextBox1 بحيث مجرد ما تذهب لحقل آخر يتم تنفيذ الأمر ، اسم الحدث LostFocus في TextBox1


كيف جعل اذا كان العدد اصغر من 100 فى textbox يرجع 100 - مبتدئ - 22-02-13

Easy 4ever كتب :الكود كتالي

كود :
[align=left]If Val(TextBox1.Text) < 100 Then TextBox1.Text = 100[/align]

أفضل ان تضع هذا الكود في حدث الخروج من TextBox1 بحيث مجرد ما تذهب لحقل آخر يتم تنفيذ الأمر ، اسم الحدث LostFocus في TextBox1
جزاك الله خير اخى


كيف جعل اذا كان العدد اصغر من 100 فى textbox يرجع 100 - elmobde3 - 25-02-13

طريقه اخرى
كود :
Dim S As String = TextBox1.Text
        If IsNumeric(S) And S < 100 Then
            TextBox1.Text = "100"
        End If
ومن الافضل ان تضعها فى الحدث lost focus بحيث عند الانتقال الى اى اداه اخرى غير التيكست بوكس يتم بحث القيمه بداخلها فلو كانت اقل من 100 يعيدها ال 100 وان كانت اكبر سيتركها كما هى .. بالتوفيق Smile