这是一段用VBS操作树形控件的程序，试验过没问题，我怎么样将树形条目连接到图形对象，比如我点击一个条目就进入一画面？
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Const tvwChild =4
Dim MyObj,mMainNode,mNOde
With HMIRuntime.ActiveScreen
Set MyObj = .ScreenItems("TreeControl1")
Set mMainNode = MyObj.Nodes.Add(,,"Zong","Zong",1)
Dim i
For i = 1 To 10
Set mNOde = MyObj.Nodes.Add(mMainNode,tvwChild,"SUB"&CStr(i),i,2)
Next
mMainNode.Expanded= True
End With
End Sub
问题补充：
MyObj.Nodes.Add(,,"NewPdl1","NewPdl1.pdl")
MyObj.Nodes.Add(,,"NewPdl2","NewPdl2.pdl")
加进去之后编译不通过，编译时提示：调用子程序不能使用括号，去掉括号后编译没问题，但是发现无法对控件操作了，请问为何，怎么改？
最佳答案
上面的代码瞧的很眼熟啊，^_^
楼主想用树型控件做页面导航？首先用下面的代码给树型控件添加内容：
Dim MyObj,mNode
Set MyObj = ScreenItems("TreeControl1")
Set mNode = MyObj.Nodes.Add(,,"NewPdl1","NewPdl1.pdl")
Set mNode = MyObj.Nodes.Add(,,"NewPdl2","NewPdl2.pdl")
不想一个一个加，可以用fso组件读取项目文件夹\Gracs内的所有Pdl文件，然后加载到树型控件中。
然后在属性控件的NodeClick事件中使用如下代码即可：
Dim PictureName
PictureName=Node.Key
HMIRuntime.BaseScreenName = PictureName
补充：SORRY!前面的代码写错了，特此更正。
提问者对于答案的评价：
谢谢你dcount我的已经能试验出来了 能导航了 只是我的Next提示不能加
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276724.html
微信扫一扫 
支付宝扫一扫 