07-07-20, 07:41 PM
اريد عند ضغط علي رقم ا كبر من 12 او اقل من 1 في textbox لايكتب اساسا هذا الكود الذي اريدة يكتب فقط من 1 الي 12 اما اذا كتب رقم اكبر من 12 او اقل من 1 لاي كتب اساسا
07-07-20, 07:41 PM
07-07-20, 09:19 PM
السلام عليكم ورحمة الله وبركاته
اخي الكريم نصيحة اخوية لاتكرر السؤال في اكثر من موضع
اما من ناحية الكود الذي وضعته لك الامرجدا بسيط بدل ان يكتب 1 نجعله فراغ
فعند كتابة صفر لايكتب هو عمليا يكتب ولكن يتم التفريغ مباشرة واذا كان الرقم اكبر من 12 ايضا يتم التفريغ
بقيت جزئية وهي منع كتابة الاحرف
اليك هذين الكودين واحد لمنع كتابة الحروف والثاني لحصر الارقام من 1 الى 12
اخي الكريم نصيحة اخوية لاتكرر السؤال في اكثر من موضع
اما من ناحية الكود الذي وضعته لك الامرجدا بسيط بدل ان يكتب 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 Sub07-07-20, 09:36 PM
جزاك الله الف خير اشتغل
07-07-20, 09:39 PM
الحمد لله والشكر لله
وجزاك الله بأكثر مما سألت لي اخي الكريم