Question

VB中文本框输入时,如何限定输入的第一个字符为字母

VB中，在文本框中输入时，如何限定输入字符只能是数字或者字母，并且是以字母开头，跪求各位大神帮忙！
Private Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 65 To 90, 97 To 122 'A-Z, a-zcase
Case vbKeyBack, vbKeyDelete '删除键
Case Else
KeyAscii = 0
MsgBox "输入的字符必须是数字或者数字！", 48, "提示"
End Select
End Sub
最好能在这段代码中修改，限定输入的第一个字符为字母，各位大神，有没有什么好的方法！

Answer 1

用 Asc（“a”） 来得到字母的位置，小写a~z是连续的，大写A~Z是连续的，数字0~9是连续的，限定在这三个范围内就行了。
第一个是字母，就限定在 两个范围内就行了。

追问

我知道文本框中如何限定字母和数字输入，只是不知道如何限定输入的第一个字符为字母，大神，有没有具体的代码示例！

Answer 2

在按钮的单击事件中写入以下代码
if asc(left(text,1)) < 57 or asc(left(text1.text,1)) > 126 then
msgbox "请以字母作为首字符"
end if

追问

大神，我想在文本框的键入事件中就进行判断，即KeyPress事件中，键入时就判断第一个字符是不是字母，大神，有没有好的方法！

追答

那没办法 如果在渐入时判断 则整个都只能输入字母

追问

大神，我上面这段代码是在键入时，限定文本框中只能键入字母和数字，但是不能限定第一个键入的字符为字母，我现在想改下那个代码，使之能够限定输入的第一个字符为字母时才能够被文本框接受，大神，有没有方法呀？

Answer 3

if left(text1.text,1) like "[a-zA-Z]" then '合法

Answer 4

在右边那个选项里面设置

追问

我想通过代码来控制，大神，有没有方法！