vb中我想实现文本框输入大于500的值就提示错误,怎么实现?
发布网友
共3个回答
热心网友
楼主，判断输入过大可以使用change()事件解决，而输入过小不能使用change()事件解决，因为数字都是一个一个地输入的，不管输入一个或几个数字，都要有一个结束标志，否则，你输入一个5时，程序怎么知道你想输入5呢，还是53呢，还是548呢？
除了楼上的朋友们介绍的方法，还有一个解决办法，就是把 text2 的 MaxLength 属性设置为 3 ，然后使用下面的语句：
Private Sub Form_Load()
Text2.Text = ""
End Sub
Private Sub Text2_Change()
Text2.MaxLength = 3
If Len(Text2.Text) = 3 Then
Dim number1 As Integer
number1 = Val(Text2.Text)
If number1 > 500 Then
MsgBox "请勿设置时间过大导致溢出"
ElseIf number1 < 10 Then
MsgBox "设置时间太小将影响仿真精度！"
End If
End If
End Sub
不过，这段程序运行时，要想输入不足三位的数字时，前面要补充零，凑足三位，才能显示出它的作用。
请楼主斟酌。
热心网友
Private Sub Text2_Change()
这个是chang事件，只要你输入一个数字，他就开始判断了。
简单一点的做法是你再新建一个按钮,caption“开始”，name“command1”
private sub command1_click()
Dim number1 As Integer
number1 = Val(Text2.Text)
If number1 > 500 Then
MsgBox "请勿设置时间过大导致溢出“
ElseIf number1 < 10 Then
MsgBox "设置时间太小将影响仿真精度！"
End If
End Sub
这样就好了。
热心网友
在keyascii 事件中判断
if val(text1.text)>500 then
MsgBox "请勿设置时间过大导致溢出“
esleif val(text1.text)<10 then
MsgBox "设置时间太小将影响仿真精度！"
End If
等你按下Enter键才判断！
这个啊，不好判断时间，比较麻烦！
