1,451
社区成员
发帖
与我相关
我的任务
分享TreeView控件已知node.key值，如何用程序选定它？
我的node.key与node.text是完全不同的二个值，node.key是不重复的，而node.text是重复的。
已知node.key如何定位node?
并把它给：SelectedItem
已知node.key如何定位node?
并把它给：SelectedItem
...全文
请发表友善的回复…
发表回复
tang688 2011-05-17
- 打赏
- 举报
Private Function Findkey(ctlTreeView As TreeView, strFind As String) As Node
Dim Nodex As Node
For Each Nodex In ctlTreeView.Nodes
If Nodex.Key = strFind Then
Set FindNode = Nodex
Exit Function
End If
Next
End Function
在程序中调用它：
set mynode=findkey(TreeView1,"mykey")
If Not mynode Is Nothing Then
mynode.Selected = True
end if
Dim Nodex As Node
For Each Nodex In ctlTreeView.Nodes
If Nodex.Key = strFind Then
Set FindNode = Nodex
Exit Function
End If
Next
End Function
在程序中调用它：
set mynode=findkey(TreeView1,"mykey")
If Not mynode Is Nothing Then
mynode.Selected = True
end if
tang688 2011-05-17
- 打赏
- 举报
已解决
