如下，vbs改变“histogram_main2001-2002”画面中“画面窗口1”中的棒图对象的属性，运行一直没有，求大神解惑？Sub procedure3Dim UADim LADim ADim ObjSet UA=HMIRuntime.Tags("bangtu01")Set LA=HMIRuntime.Tags("bangtu02")Set A=HMIRuntime.Tags("bangtu03")UA.ReadLA.ReadA.ReadSet Obj =HMIRuntime.Screens("histogram_main2001-2002.画面窗口1").ScreenItems("棒图3")If (A.Value >= UA.Value) ThenObj.BackColor =vbRedElse If (A.Value <= LA.Value) ThenObj.BackColor =vbYellowElse If ((A.value > LA.Value) And (A.Value < UA.Value)) ThenObj.BackColor =vbGreenEnd IfEnd IfEnd IfEnd S
最佳答案
Obj =HMIRuntime.Screens("histogram_main2001-2002.画面窗口1").ScreenItems("棒图3")
这个引用对象不对吧
应该是
Obj =HMIRuntime.Screens("histogram_main2001-2002.画面窗口1:<棒图所在的画面名称>").ScreenItems("棒图3")
在画面上做个脚本诊断，看看输出哪里不对
提问者对于答案的评价：
试了一下不行，不过思路更清晰一点
最佳答案作者回复:
如果不行说明你做的不对吧，我测试没问题的
哪个画面名称尽量不要有特殊字符，把-改成下划线吧
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc139037.html
微信扫一扫 
支付宝扫一扫 