发布网友 发布时间:8小时前
共3个回答
热心网友 时间:8小时前
你可以先输入纯数字,然后在keypress事件里面对输入后的数值进行判断
例如文本框控件名Text1
private sub text1_keypress(....)
if val(text1)>100 and val(text1)<0 then keyascii = 0 ' 可能也是keycode,根keypress括号里面的变量一致即可
热心网友 时间:8小时前
包括0和100吗?
热心网友 时间:8小时前
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(Text1.Text) > 100 Or Val(Text1.Text) < 0 Then
MsgBox "只能输入0-100之间的数"
Text1.Text = ""
End If
End If
End Sub