Question

vb 控制输入字符

在TextBox中规定第一个字符必须是字母，然后2~5个为数字 ，否则无法输入。注意是无法输入，不是弹出提示框！

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) < 6 Then 控制前六个字符格式
Select Case KeyAscii
Case Asc("A") To Asc("Z"), Asc("a") To Asc("z")
If Len(Text1) > 0 Then KeyAscii = 0 '控制第一个字母为字母
Case Asc(0) To Asc(9) '允许输入数字
If Len(Text1.Text) < 1 Then KeyAscii = 0 '控制2~5位为数字
Case 8 '允许输入退格
Case Else
KeyAscii = 0
End Select
End If
End Sub