Question

使用vb，写一段代码，判断一text内的数值是否在两个已知的数值之内

如果不在，则shape控件的FillColor设为红色，大神们求代码啊！！！

Answer 1

拖一个textbox, 一个shape, 名不变， ab可变，这个是判断填入值是否在（a,b）区间内

Dim a, b As Integer

Private Sub Form_Load()
a = 200
b = 300
Text1.Text = ""
Shape1.FillStyle = 0
Shape1.FillColor = 0
End Sub

Private Sub Text1_Change()
If Val(Text1.Text) > a And Val(Text1.Text) < b Then ’根据你的需要改这个判断条件
Shape1.FillColor = vbGreen
Else
Shape1.FillColor = vbRed
End If
End Sub

追问

非常感谢你
我试验了你的代码，发现无论在TEXT中输入任何数，shape都显示红色，但是再删除，就会变成绿色，这是什么原因那？