[mohammedvego]

السلام عليكم 

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

[حريف برمجة]

(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

[المتألق9]

هذا الكود يقوم بمسح محتوى التيكست عندما تقوم القيمة غير مناسبة
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Val(TextBox1.Text) > 20 Or Val(TextBox1.Text) < 0 Then
TextBox1.Text = ""

End If
End Sub

[abiza]

If Not IsNumeric(TextBox3.Text) Then
MessageBox.Show("يجب كتابة ارقام فقط!")
TextBox3.Text = ""
Exit Sub

End If
Or


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