[حريف برمجة]

(28-11-17, 02:40 AM)mohammedvego كتب :

السلام عليكم 

اريد كود جعل تكست بوكس لا تزيد قيمته الافتراضية  20.000 ولا تقل عن 0 يعني لا تدخل في سالب مثلا 1000-

وعليكم السلام ،،

لنفرض التكست اسمه تكست بوكس 3 ،، انقر دبل كليك على التكست والصق الكود التالي :

كود :

'هنا التأكد في التكتس فارغ نمنع تنفيذ الكود الموجود اسفل
If TextBox3.Text = "" Then Exit Sub

'هنا التأكد من ادخال ارقام فقط
       If Not IsNumeric(TextBox3.Text) Then
           MessageBox.Show("يجب كتابة ارقام فقط!")
           TextBox3.Text = ""
           Exit Sub
       End If


'هنا التأكد من القيمة الموجودة في التكست
       If Val(TextBox3.Text) > 20000 Or Val(TextBox3.Text) < 0 Then
           MsgBox("عفواً.. يجب ان تكون القيمة ابتداءً من 0 حتى 20000")
           TextBox3.Text = ""
       End If