منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أمثلة ومشاريع أعضاء المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=114)
+---- قسم : مكتبة مشاريع VB.net (http://vb4arb.com/vb/forumdisplay.php?fid=141)
+---- الموضوع : [VB.NET] ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط (/showthread.php?tid=32297)

ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - علي بنيان - 29-11-19

السلام عليكم 

توجد الكثير من الطرق لجعل التكست لا يقبل الا الارقام اختصرتها في ثلاث طرق والطريقة الاخيرة تسمح بأستخدام زر الباك سبيس 


الكود الاول :

PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsNumber(e.KeyChar) = False Then
            e.Handled = True
        End If

    End Sub 



الكود الثاني :

كود :
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not IsNumeric(e.KeyChar) Then
           e.Handled = True
       End If
   End Sub


الكود الثالث (الي يقبل استخدام زر الباك سبيس ) :


PHP كود :
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Select Case e.KeyChar
            Case "0" To "9", ControlChars.Back
                e.Handled = False
            Case Else
                e.Handled = True
        End Select

    End Sub 



يمكن تحميل المشروع من المرفقات 


اتمنى لكم التوفيق

RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - 3booody - 29-11-19

بارك الله بيك اخي

وهذه فكرة مختلفة ايضآ



كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If e.KeyChar = Chr(8) Then Return
       If Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "[0-9]") Then
           e.Handled = True
       End If
   End Sub


RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - علي بنيان - 29-11-19

حياك الله اخي الغالي و شكرا على الطريقة الرائعة

RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - farhat ali - 27-10-21

بارك الله فيك

RE: ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط - Ahmed Mohasseb - 12-05-23

جزاك الله خيرا

اكواد بسيطه وفعاله