程序中,如何打开treeiew并选中节点?

Question

节构:
+--1
   |
   |__20
   |__21
控件:按钮\文本框要求单击按钮,文本框中的文本为节点的名称,如21.并且treeiew展开到相应节点.
请大侠给段代码,谢谢!~~~~~~

Answer 1

按钮事件中加入：
dim i as integer
For i = 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes.Item(i).Text = text1.text Then
        TreeView1.Nodes.Item(i).Expanded = True     
        Exit For
    End If
Next'''''''''
应该可以，我没有试，你自己试一下

Answer 2

dim nod as nodefor each nod in treeview1.nodes
    if nod.text=text1.text then
       set treeview1.selecteditem=nod
       '//也可这么写
       'treeview1.nodes(nod.key).selected=true
       exit for
    endif
next

Answer 3

dim nod as nodefor each nod in treeview1.nodes
    if nod.text=text1.text then
       set treeview1.selecteditem=nod
   
       'treeview1.nodes(nod.key).selected=true
       exit for
    endif
next