تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة عند كتابة textbox
#1
اريد عند ضغط علي رقم ا كبر من 12 او اقل من 1 في textbox لايكتب اساسا هذا الكود الذي اريدة يكتب فقط من 1 الي 12 اما اذا كتب رقم اكبر من 12 او اقل من 1 لاي كتب اساسا
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم نصيحة اخوية لاتكرر السؤال في اكثر من موضع
اما من ناحية الكود الذي وضعته لك الامرجدا بسيط بدل ان يكتب 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 Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:
#3
جزاك الله الف خير اشتغل
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
الحمد لله والشكر لله
وجزاك الله بأكثر مما سألت لي اخي الكريم
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم