منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 

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


الكود الاول :

PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles 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 ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress

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

    End Sub 



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


اتمنى لكم التوفيق
بارك الله بيك اخي

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



كود :
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
حياك الله اخي الغالي و شكرا على الطريقة الرائعة
بارك الله فيك
جزاك الله خيرا

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