Validate текстовое поле в Visual Basic

Question

Я использую Visual Basic, и я хотел бы знать, как проверить текстовое поле, чтобы принять 2 вида чисел (целых и десятичных чисел)

только я знаю, как проверить для целых чисел:

Private Sub NumtelefonoTextBox_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles NumtelefonoTextBox.KeyDown 
     If Not ((e.KeyValue >= 48 And e.KeyValue <= 57) OrElse (e.KeyValue >= 96 And e.KeyValue <= 105) OrElse (e.KeyValue = 8)) Then 
      e.Handled = True 
      MsgBox("Este campo requiere únicamente valores númericos") 
      NumtelefonoTextBox.Text = vbNullChar 
     End If 
    End Sub 

Answer 1

Покиньте Ключевые события и проверить на событие TextChanged, если число IsNummeric():

Private Sub txtBoxSample_TextChanged(sender As Object, e As EventArgs) Handles txtBoxSample.TextChanged 
    If Not IsNumeric(TxtBoxSample.Text) Then 
     MsgBox("Error!") 
    End If 
End Sub 

Answer 2

Используйте текст изменен обработчик событий

Private Sub NumtelefonoTextBox_TextChanged(sender As Object, e As EventArgs) Handles NumtelefonoTextBox.TextChanged 
    If Not Decimal.TryParse(NumtelefonoTextBox.Text, Nothing) Then 
     MessageBox.Show("Este campo requiere únicamente valores númericos") 
    End If 
End Sub