该按钮VBS脚本为什么无效

ohvfqcr

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”
这是为什么？请大神指点

terkcov

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

sanline

这个有点复杂