+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة عند كتابة textbox (/showthread.php?tid=35530)
مشكلة عند كتابة textbox - cordava - 07-07-20
اريد عند ضغط علي رقم ا كبر من 12 او اقل من 1 في textbox لايكتب اساسا هذا الكود الذي اريدة يكتب فقط من 1 الي 12 اما اذا كتب رقم اكبر من 12 او اقل من 1 لاي كتب اساسا
RE: مشكلة عند كتابة textbox - ابراهيم ايبو - 07-07-20
السلام عليكم ورحمة الله وبركاته
اخي الكريم نصيحة اخوية لاتكرر السؤال في اكثر من موضع
اما من ناحية الكود الذي وضعته لك الامرجدا بسيط بدل ان يكتب 1 نجعله فراغ
فعند كتابة صفر لايكتب هو عمليا يكتب ولكن يتم التفريغ مباشرة واذا كان الرقم اكبر من 12 ايضا يتم التفريغ
بقيت جزئية وهي منع كتابة الاحرف
اليك هذين الكودين واحد لمنع كتابة الحروف والثاني لحصر الارقام من 1 الى 12
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
' اذا كانت القيم صفر في البداية او الرقم اكبر من 12 سيتم تفريغ التكست
If Val(TextBox1.Text) <= 0 Then
TextBox1.Text = ""
ElseIf Val(TextBox1.Text) > 12 Then
TextBox1.Text = ""
End If
End Sub
' هذا الكود لمنع الحروف ومفاتيح الونترول
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsLetter(e.KeyChar) Then
e.Handled = False
End If
End SubRE: مشكلة عند كتابة textbox - cordava - 07-07-20
جزاك الله الف خير اشتغل
RE: مشكلة عند كتابة textbox - ابراهيم ايبو - 07-07-20
الحمد لله والشكر لله
وجزاك الله بأكثر مما سألت لي اخي الكريم