28-11-17, 02:40 AM
28-11-17, 11:37 AM
(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 If28-11-17, 11:45 AM
هذا الكود يقوم بمسح محتوى التيكست عندما تقوم القيمة غير مناسبة
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
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
27-12-17, 02:23 PM
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
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