Vb.net 文本框不允许按backspace键?
我制作了一个文本框,它将字符的使用限制为数字和句点。很好,但现在我不能输入backspace来修改文本框中键入的任何数据。我怎样才能解决这个问题Vb.net 文本框不允许按backspace键?,vb.net,textbox,key,Vb.net,Textbox,Key,我制作了一个文本框,它将字符的使用限制为数字和句点。很好,但现在我不能输入backspace来修改文本框中键入的任何数据。我怎样才能解决这个问题 Private Sub TextBox10_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox10.KeyPress Dim allowedChars As String = "12345
Private Sub TextBox10_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox10.KeyPress
Dim allowedChars As String = "1234567890."
If allowedChars.IndexOf(e.KeyChar) = -1 Then
' Invalid Character
e.Handled = True
End If
End Sub
您可以使用
If e.KeyChar = ChrW(8) Then
MessageBox.Show("backspace!")
End If
因此,您的整个代码将变成:
Private Sub TextBox10_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox10.KeyPress
Dim allowedChars As String = "1234567890."
If allowedChars.IndexOf(e.KeyChar) = -1 andalso
Not e.KeyChar = ChrW(8) Then
' Invalid Character
e.Handled = True
End If
End Sub
类似问题: