vbs脚本  将IO域按钮化点击之 弹出相应的趋势

为什么这么用，因为操作员（以及领*）认为在趋势图列表中找到相应的趋势麻烦，要点击IO域就出响应的趋势

    特别鸣谢     城外之人  和    zhangli0  （此处应有热烈掌声）

在 两位老师的帮助下 完成了部分功能

IO域  添加 vbs脚本 

 代码如下  

Sub OnClick (ByVal Item)

Dim objcon1

set objcon1=HMIRuntime.ActiveScreen.ScreenItems("contro11")

objcon1.TrendIndex=0

objcon1.TimeAxisTimeRangeBase=3600000

objcon1.TrendTagName="systemArchive\三号温度.PV#Value" '*---这里不方便------*'

objcon1.Visible=1

End Sub

目前 的程序还很不好  链接趋势变量还需要每个点去填。甚是麻烦。

Item  可以代表 点击的对象  

可  Item.   。点不 类似 Tag  Link 。。。。。。什么的 属性名

要是能获取到  ，通用性则大大增强。  

也请老师们帮助改进。最好是用 vbs写的呦。