vb限制文本框输入内容长度_限制VB文本框输入的代码

1.只能输入数字和Backspace键

Private Sub txtSID_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then

ElseIf KeyAscii < Asc(“0”) Or KeyAscii > Asc(“9”) Then

KeyAscii = 0

End If

End Sub

2. 只能输入大小写英文字母和汉字(包括退格和回车)

Private Sub txtName_KeyPress(KeyAscii As Integer)

If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 Then

ElseIf Not Chr(KeyAscii) Like “[a-zA-Z]” Then

KeyAscii = 0

End If

End Sub

3. 只能输入汉字

Private Sub txtDirector_KeyPress(KeyAscii As Integer)

If KeyAscii < 0 Or KeyAscii = 8 Then Exit Sub

KeyAscii = 0 ‘不能输入

End Sub

4.限制字符输入

Private Sub txtUserName_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8 Case Asc(“A”) To Asc(“Z”) Case Asc(“0”) To Asc(“9”) Case Asc(“a”) To Asc(“z”) Case Is < 0 Case Else KeyAscii = 0 End Select End Sub