我创建了一个画面窗口,在画面窗口内做了一个小圆形指示灯,想用这个小圆形根据PLC变量的值变换颜色,VBS代码如下,运行结果颜色不变,全局颜色方案已设置为否。请帮忙看看是哪里有问题?谢谢!
Function BackColor_Trigger(ByVal Item)
Dim R69
Dim objCircle
Set R69=HMIRuntime.Tags("069HtrDrv1Sts")
Set objCircle=hmiruntime.Screens("ILO2").ScreenItems("圆1")
R69.Read
If R69.Value=4 Then
objCircle.BackColor=vbRed
Else
objCircle.BackColor=vbGreen
End if
End Function