VB.NET：如何验证文本框不允许十进制值？

Question

我想知道如何验证文本框以不允许任何十进制值？

Answer 1

this solution i got from this link ( How to allow user to enter only numbers in a textbox in vb.net? )

   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _
              Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
            e.Handled = True
    End If
    If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
            e.Handled = False
    End If
End Sub

Answer 2

You can use the KeyPress event and use the IsNumeric Function to trap the numeric keys.

Private Sub TextBox1_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If IsNumeric(e.KeyChar) Then
        e.Handled = True
    End If
End Sub

Answer 3

If you can, use a MaskedTextBox

Since handling the KeyPress can cause problem with delete/backspace/copy/paste/...