我創建了一個畫面窗口,在畫面窗口內做了一個小圓形指示燈,想用這個小圓形根據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