هنا

[spyman]

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

الكود الاول :

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

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

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

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

[ahmed al_omairi]

شكرا ع المجهود

[spyman]

حبيبي حمودي هلا بيك