younthue
级别: 探索解密
精华主题: 0
发帖数量: 17 个
工控威望: 141 点
下载积分: 558 分
在线时间: 11(小时)
注册时间: 2014-05-14
最后登录: 2022-04-21
查看younthue的 主题 / 回贴
楼主  发表于: 2016-09-06 11:07
我创建了一个画面窗口,在画面窗口内做了一个小圆形指示灯,想用这个小圆形根据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