在textbox的keydown 或 keypress事件中,编写以下代码,试一试 if clng(text1.text)>=500 then text1.text="" msgbox"请输入小于500的数!" end if 因为没vb,没法试,你自己试一试吧!
Private Sub Text1_LostFocus() If IsNumeric(Text1.Text) = True Then If CLng(Text1.Text) >= 500 Then Text1.Text = "" MsgBox "请输入小于500的数!" End If Else MsgBox "不是数字" End If End Sub 试试
输入的数据触发事件,判断text.text的内容是否合法,如果不合法清空text,得到焦点。
Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) > 3 Then MsgBox "sorry" End IfEnd Sub
Private Sub Text1_Validate(Cancel As Boolean) If Val(Text1.Text) > 500 Then Cancel = True Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub
itcoco(无忧草) 想得很好很严密,正是我要提出的地方。
to gongyueqintina(绿色绿珠) 我试过行啊,你是不是用的是小键盘?
Private Sub Text1_Change() If Text1.Text <> "" Then If Val(Mid(Text1.Text, Len(Text1.Text), 1)) > 3 Then MsgBox "sorry" End If End If End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)Dim Numbers As StringNumbers = "1234567890" + Chr(8) + Chr(46) ' Chr(8) 空格 + Chr(46) 小数点If KeyAscii = 13 Then ' 如果键入回车键则进行下一步动作 If Val(Text1.Text) < 500 Then
if clng(text1.text)>=500 then
text1.text=""
msgbox"请输入小于500的数!"
end if
因为没vb,没法试,你自己试一试吧!
If IsNumeric(Text1.Text) = True Then
If CLng(Text1.Text) >= 500 Then
Text1.Text = ""
MsgBox "请输入小于500的数!"
End If
Else
MsgBox "不是数字"
End If
End Sub
试试
If Chr(KeyAscii) > 3 Then
MsgBox "sorry"
End IfEnd Sub
If Val(Text1.Text) > 500 Then
Cancel = True
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
我试过行啊,你是不是用的是小键盘?
If Text1.Text <> "" Then
If Val(Mid(Text1.Text, Len(Text1.Text), 1)) > 3 Then
MsgBox "sorry"
End If
End If
End Sub
'省略...
Else
MsgBox "请输入小于500的数!" End If
ElseIf InStr(Numbers, Chr(KeyAscii)) = 0 Then ' 确保只能输入数字 KeyAscii = 0
End IfEnd Sub