//定义了一个多边形,名称为rent
//定义了二个变量

Function BackColor_Trigger(ByVal Item)
Dim objRectangle
Dim objTag1,objTag2,objTag3,objTag4
Set objRectangle = ScreenItems("rect")

Set objTag1 = HMIRuntime.Tags("yellow")
Set objTag2 = HMIRuntime.Tags("red")

If (objTag1.value=1) Then
objRectangle.BackColor = RGB(255,255,0) 'yellow 黄色
Elseif (objTag2.value=1) Then
objRectangle.BackColor = RGB(255,0,0) 'red 红色
Else
objRectangle.BackColor = RGB(128,128,128) 'grey 灰色
End If
End Function
但是运行时改变不了????