AfterSelectNode事件
vars("p") = e.node.FullPath
按钮事件
if vars("p") > "" then
Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
dim s1() as string = vars("p").split("\")
dim nd as WinForm.TreeNode = tr.nodes(s1(0))
for i as integer = 1 to s1.length - 1
nd = nd.nodes(s1(i))
next
end if
tr.SelectedNode =nd