vb.net - 如何将文本框输入过滤为仅数字？

Question

如何抑制除数字以外的所有数据？

这不适用于 KeyDown():

If e.KeyData < Keys.D0 Or e.KeyData > Keys.D9 Then
    e.Handled = True
End If

Answer 1

有很多方法可以做到这一点。我已经快速尝试了一下，然后开始工作。我已将 KeyPress sub 用于文本框，并将每个按键传递给 IsNumber 函数。

注意:我允许使用退格键，以防您输入错误的数字并想要删除。

如果不需要退格键，请去掉 If e.KeyChar <> ChrW(Keys.Back) Then/End If 部分。

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If e.KeyChar <> ChrW(Keys.Back) Then
        If Char.IsNumber(e.KeyChar) Then
        Else
            e.Handled = True
        End If
    End If
End Sub