'Select Tree Node by Path
RegisterUserFunc "SwfTreeView", "SelectNodeByPath", "SelectNodeByPath",True
Function SelectNodeByPath( byref objTreeView, byref strNodePaths)
Dim i,strNode
strNode = strNodePaths(ZEROLENGTH)
For i =NUMBERZERO to Ubound(strNodePaths)-NUMBERONE
objTreeView.Expand strNode
strNode = strNode & TREENODESYMBOL & strNodePaths(i+NUMBERONE)
objTreeView.Select strNode
Next
End Function作者: TIB 时间: 2010-9-29 20:36
调试一下是不是这句有问题:
objTreeView.Expand strNode