恭喜,你发布的帖子
发布于 2017-06-01 15:57:10
4楼
objectscreen=hmiruntime.screens("画面名称").screenitems("圆_9")
谢谢指点,按你的写法我写了下面一段让对象“圆_9”颜色变化的脚本,编译通过了,但是仿真时m810.0=1对象无任何颜色变化
Sub Battery1()
Dim ObjScreenItems
Set ObjScreenItems = HmiRuntime.Screens("MACHINE SCREEN").ScreenItems("圆_9")
If SmartTags("M810_0")=1 Then
ObjScreenItems = vbRed
Else
ObjScreenItems = vbBlack
End If
End Sub
请填写推广理由:
分享
只看
楼主