منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار بسيط !! - نسخة قابلة للطباعة

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

استفسار بسيط !! - mohammedvego - 28-11-17

السلام عليكم 

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


RE: استفسار بسيط !! - حريف برمجة - 28-11-17

(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


RE: استفسار بسيط !! - المتألق9 - 28-11-17

هذا الكود يقوم بمسح محتوى التيكست عندما تقوم القيمة غير مناسبة
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

RE: استفسار بسيط !! - abiza - 27-12-17

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