限制VB文本框输入的代码

最新推荐文章于 2020-07-08 01:03:25 发布

原创

最新推荐文章于 2020-07-08 01:03:25 发布 · 2.5k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#vb

这篇博客提供了几个VB代码示例，用于限制文本框输入的内容。包括只允许输入数字和Backspace键，只允许输入英文字母和汉字，只允许输入汉字，以及限制特定字符输入，例如禁止特殊符号。

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.限制字符输入

1.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 Sel