在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