Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
'数据异常标红
Dim textBoxArray() As Object = {TextBox24, TextBox25, TextBox29, TextBox30}
For i = 0 To 3
'Console.WriteLine("x1:" & textBoxArray(i).Text)
If (textBoxArray(i).Text < 1.75 Or textBoxArray(i).Text > 3.25) = True Then
textBoxArray(i).BackColor = Color.Red
End If
Next
End Sub
vb.net中Text Box数据异常标红
最新推荐文章于 2024-07-12 10:23:58 发布