Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < ("0") Or KeyAscii > ("9") Then
KeyAscii = 0
End If
End Sub
在文本框的编辑里输入如上，我认为文本框应该可以显示0-9的数字，但是却什么也写不出来，为什么？？
VB关于ascii
答案:2 悬赏:80 手机版
解决时间 2021-07-18 18:59
- 提问者网友：雨不眠的下
- 2021-07-18 05:07
最佳答案
- 五星知识达人网友：持酒劝斜阳
- 2021-07-18 05:54
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
MsgBox "请输入数字"
End If
End Sub
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
MsgBox "请输入数字"
End If
End Sub
全部回答
- 1楼网友：拾荒鲤
- 2021-07-18 06:35
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <vbKey0 Or KeyAscii > vbKey9 Then
KeyAscii = 0
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯