该按钮脚本为什么无效

精

奖

官

1759 产品版区：WinCC基本系统

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

Sub OnClick(Byval Item)
Dim strStartBildName,objText,objGraphicView

Set strStartBildName=HMIRuntime.BaseScreenName
Set objGraphicView=Item.Parent.Parent.ObjectName
Set objGraphicView=HMIRuntime.Screens(strStartBildName).ScreenItems("Main1")
Set objText=HMIRuntime.Tags("Text")
objText.Write Item.Parent.Parent.ObjectName
End Sub
这是按钮单击鼠标的VBS动作，可是执行之后，变量Text没反应。
然后我把上面的脚本语句变换了一下顺序：
Sub OnClick(Byval Item)
Dim strStartBildName,objText,objGraphicView

Set objText=HMIRuntime.Tags("Text")
objText.Write Item.Parent.Parent.ObjectName
Set strStartBildName=HMIRuntime.BaseScreenName
Set objGraphicView=Item.Parent.Parent.ObjectName
Set objGraphicView=HMIRuntime.Screens(strStartBildName).ScreenItems("Main1")
End Sub
结果变量Text得到结果：“MainView”
这是为什么？请大神指点

问题补充：

扫码小程序：

一键登录查看全部问答

sylgdxsgx 新生

被采纳率低

问题为何被关闭

分享

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

点击复制链接
举报

去论坛讨论

你这样的问题无人能回答你，你自己调试，采用二分法在中间插入msgbox N,N=1,2,3,4,........然后运行看弹出窗口提示信息，比如只弹出信息“1”,那就说明在msgbox 1之间的程序正常，msgbox 1和msgbox 2之间的程序有问题。然后删除其他的msgbox，在msgbox 1和msgbox 2之间再插入新的msgbox值，很快就能定位你的问题所在。