VB编程程序运行时可以在文本框内输入英文字母，如果输入英文字母，则无法输入，同时会弹出一个消息框，

显示全部楼层 · 2011-3-10 14:28:01

Private Sub Text1_KeyPress(KeyAscii As Integer)
Print KeyAscii
Select Case KeyAscii
Case 65 To 90
MsgBox "英文字母不能输入"
KeyAscii = 0
Case 97 To 122
MsgBox "英文字母不能输入"
KeyAscii = 0
End SelectEnd Sub...

千问 · 2011-3-10 14:28:01

在 TEXTBOX change事件中加入判断其ASIC码就可以了啊...

千问 · 2011-3-10 14:28:01

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii90 And KeyAscii122 Then
KeyAscii = 0...

千问 · 2011-3-10 14:28:01

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii57 ThenMsgBox "不准输入英文"KeyAscii = 0End IfEnd Sub...