Select Case HMIRuntime.Tags("gkrong_demo").read
Case 1
HMIRuntime.Screens("整线画面").ScreenItems("多边形1").BackColor=RGB(0,255,0)
Case 2
HMIRuntime.Screens("整线画面").ScreenItems("多边形1").BackColor=RGB(255,0,0)
Case 4
HMIRuntime.Screens("整线画面").ScreenItems("多边形1").BackColor=RGB(255,250,0)
Case Else
If HMIRuntime.Tags("gkrong_demo").read=0 Then
HMIRuntime.Screens("整线画面").ScreenItems("多边形1").BackColor=RGB(182,182,182)
End If
End Select