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

Question

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

Answer 1

我从这个链接得到的这个解决方案（如何允许用户在 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

您可以使用KeyPress事件并使用IsNumeric函数来捕获数字键。

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

如果可以，请使用MaskedTextBox

由于处理 KeyPress 可能会导致删除/退格/复制/粘贴/...的问题