这是按钮的‘事件-单击鼠标’的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了,这是为什么?