(1)示例一、按钮对象,单击后,按钮自己的背景颜色在红色与灰色之间切换
Sub OnClick(Byval Item)
If item.BackColor = &hF0F0F0 Then
item.BackColor = RGB(255,0,0)
Else
item.BackColor = &hF0F0F0
End If
End Sub
说明: 函数的参数"Item",就相当于编程语言中的"this"关键字,指调用脚本的对象本身。
通过Item可以读写对象所有属性。
(我以前误区:不会用Item,而是先通过screenItems()获取该按钮的对象,再读写属性,不科学)
(2)示例2、VBS中根据多个条件,设置对象的可见性。
以静态文本为例,一般是将某个布尔变量关联到该静态文本,变量的0或1,控制文本隐藏或显示。
那如果我们需要根据多个条件,来确定文本的可见性呢?
比如,当变量 myTest 不等1,且不等于9时, 就可见,否则,就隐藏。
可以在该静态变量的可见性函数中,这样写vbs代码:
Function Visible_Trigger(ByVal Item)
If HMIRuntime.SmartTags("myTest") <> 1 And HMIRuntime.SmartTags("myTest") <> 9 Then
item.Visible = True
Else
item.Visible =False
End If
End Function
效果:
(我以前误区:不知道写脚本,而是在PLC中生成一个新变量,把所有条件综合到新变量,再控制可见性,不科学)
总之,Item很方便,大家可以自由发挥。