[ابراهيم ايبو]

السلام عليكم اخي الكريم 

لاشكر على واجب

ماذا لو قمت بالضغط على مفتاح Space او كتبت احرف بدل الارقام بالخطأ

بالتأكيد سينتج خطأ بالبرنامج ولتلافي هذا الخطأ اضف هذا الكود

كود :

   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
       Select Case e.KeyChar
           Case "0" To "9", ".", ControlChars.Back
               e.Handled = False
               If TextBox1.Text = "0" Then
                   TextBox1.Text = "0"
               ElseIf TextBox2.Text = "0" Then
                   TextBox2.Text = "0"
               End If
           Case Else
               e.Handled = True
       End Select
   End Sub