[求助-wincc]WINCC 6.2怎么用VB脚本改变指示灯的颜色

先锋攀

WINCC 6.2怎么用VB脚本改变指示灯的颜色，如运行反馈是绿色，故障反馈是红色，停止时蓝色，脚本怎么写啊</p>
        问题补充：
如果要是闪烁，怎么写VB，运行，故障时闪烁，停止不闪烁

lipingrd

Function FillColor_Trigger(ByVal Item)
Dim AA
Set AA = HMIRuntime.Tags(&quot;AA&quot;)
Dim bb
Set bb = HMIRuntime.Tags(&quot;bb&quot;)
Dim FF
Set FF = ScreenItems(&quot;圆1&quot;)
If AA.Read = 1 Then
FF.BackColor = RGB(255,0,0)
Else If bb.Read = 1 Then
FF.BackColor = RGB(0,128,0)
Else If  AA.Read = 0 And bb.Read = 0 Then
FF.BackColor = RGB(0,0,255)
End If
End If
End If
End Function

代码如上，其中AA是故障反馈变量，bb是运行反馈信号变量    圆1  是我画的一个圆代表指示灯。如图，在圆的属性---颜色---填充颜色的 动态中写VB脚本。
                              
图片说明：1，1111