wincc按钮的脚本怎么变成全局脚本？

精

奖

官

4050 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

各位大神好，我有个按钮里有脚本，现在不想要按钮，想降按钮的脚本放在全局脚本里，直接复制过去在调试工具里报错，该怎么改？
启动按钮脚本如下：
Sub OnClick(ByVal Item)
Dim poly
Set poly=ScreenItems("polyline01")
poly.Visible=True
Select Case HMIRuntime.Tags("WaterFlowSpeed").Read
Case 0
poly.ActivateDynamic "ActualPointLeft","CycleTime500ms"
Case 1
poly.ActivateDynamic "ActualPointLeft","CycleTime250ms"
Case 2
poly.ActivateDynamic "ActualPointLeft","CycleTime125ms"
End Select
HMIRuntime.Tags("WaterFlowStart").Write True
End Sub

问题补充：

扫码小程序：

一键登录查看全部问答

杨乐学长

被采纳率低

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

「找答案」盛夏活动火热开启！邀请工控同行注册，赢取西推币、1847会员畅学卡等盛夏福利。新人提问、分享经验均有好礼，回答奖励最高享10倍暴击。快来与真人工程师搭子一起寻找项目实战中的真实答案！

应为你的按钮脚本是在当前页面的，所以可以直接这样用，用全局脚本你需要告诉脚本你的polyline01在哪个画面上，
Dim poly
Set poly=hmiruntime.Screen("画面")ScreenItems("polyline01")//画面是polyline01所在的画面名称
poly.Visible=True
Select Case HMIRuntime.Tags("WaterFlowSpeed").Read
Case 0
poly.ActivateDynamic "ActualPointLeft","CycleTime500ms"
Case 1
poly.ActivateDynamic "ActualPointLeft","CycleTime250ms"
Case 2
poly.ActivateDynamic "ActualPointLeft","CycleTime125ms"
End Select
HMIRuntime.Tags("WaterFlowStart").Write True