Question

请问vb编程高手，如何判断输入文本框中的数是否是英文字母？

Answer 1

strs="abcdefghijklmnopqrstuvwxyz"
str_get=text1.text
for i=0 to len(str_get)
c_str=mid(str_get,i,1)
if instr(str_get,c_str)=-1 then
msgbox "不全是字母"
end if
next
关键就是用instr来判断是否字母了！

Answer 2

该问题可以利用keycode 码识别来解决
英文字母的keycode从A-Z键为65-90
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode < 65 Or KeyCode > 90 Then
KeyCode= 0
msgbox"您输入的不是英文字母！"
End If
End Sub

Answer 3

If Not IsNumeric(txtQTY) Then
MsgBox "请输入数量！"
txtQTY.SetFocus
Exit Sub
End If

这样省事