[مبتدئ]

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

[Easy4ever]

الكود كتالي

كود :

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

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

[مبتدئ]

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

كود :

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

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

جزاك الله خير اخى

[elmobde3]

طريقه اخرى

كود :

Dim S As String = TextBox1.Text
        If IsNumeric(S) And S < 100 Then
            TextBox1.Text = "100"
        End If

ومن الافضل ان تضعها فى الحدث lost focus بحيث عند الانتقال الى اى اداه اخرى غير التيكست بوكس يتم بحث القيمه بداخلها فلو كانت اقل من 100 يعيدها ال 100 وان كانت اكبر سيتركها كما هى .. بالتوفيق