文本框仅接受数字

Question

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress


    Dim allowedChars As String = "0123456789$,"

    If allowedChars.IndexOf(e.KeyChar) = -1 Then
        ' Invalid Character
        e.Handled = True




    End If
End Sub

这段代码只接受数字，它的工作方式就像魅力一样，但是如果我键入错误的数字，它不允许我使用键盘上的删除或退格键如何解决这个问题？

Answer 1

这可以追溯到很长一段时间，当时仍在使用终端。您还必须允许退格字符。把它放在代码的前面：

If e.KeyChar = Chr(8) Then Exit Sub

删除键不需要任何帮助，已经有效。

Answer 2

你应该看看

Keys Enumeration

  

Keys.Back ：BACKSPACE键。