UC知道VB 数字ASCII求助！！
来源：百度知道 编辑：UC知道 时间：2024/05/24 14:22:32
private sub text1_keypress(keyascii as interger)
if keyascii>57 or keyascii<48 then
msgbox"请输入数字！"
end if
end sub
最后执行的时候输入非数字字符并没有弹出MAGBOX
我不知道原因在哪
会不会是数字的ASCII错了呢？
if keyascii>57 or keyascii<48 then
msgbox"请输入数字！"
end if
end sub
最后执行的时候输入非数字字符并没有弹出MAGBOX
我不知道原因在哪
会不会是数字的ASCII错了呢？
没装VB，你自己试试：
private sub text1_keypress(keyascii as interger)
msgbox keyascii
end sub
就知道是不是数字的ASCII错了
你可以直接试试这样
private sub text1_keypress(keyascii as interger)
msgbox"请输入数字！"
end sub
会弹吗,弹出什么样
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then
KeyAscii = 0
MsgBox "请输入数字！"
End If
End Sub
你的 keyascii as interger 有错，应为：
keyascii as integer
程序没有问题呀