这是按钮的‘事件-单击鼠标’的VBS脚本：

Sub OnClick(Byval Item)              

   Dim strStartBildName,objText,objGraphicView,mystring

   Set objText=HMIRuntime.Tags("Text")

   objText.Write Item.Parent.Parent.ObjectName

   Set strStartBildName=HMIRuntime.BaseScreenName

   Set objGraphicView=Item.Parent.Parent.ObjectName

   If isobject(Item) Then

   mystring=Split(Item.Text,"-",-1,1)

   Else

   mystring=Split(Item,"-",-1,1)

   End If

   objGraphicView.PictureName=Trim(mystring(0)) & ".PDL"

End Sub

结果变量Text的值为MainView，也就是说Text有结果。

但是，当脚本做如下调整后：

Sub OnClick(Byval Item)              

   Dim strStartBildName,objText,objGraphicView,mystring

   Set strStartBildName=HMIRuntime.BaseScreenName

   Set objGraphicView=Item.Parent.Parent.ObjectName

   Set objText=HMIRuntime.Tags("Text")

   objText.Write Item.Parent.Parent.ObjectName

   If isobject(Item) Then

   mystring=Split(Item.Text,"-",-1,1)

   Else

   mystring=Split(Item,"-",-1,1)

   End If

   objGraphicView.PictureName=Trim(mystring(0)) & ".PDL"

End Sub

Text没有输出MainView了，这是为什么？