treeview控件的问题

Question

结构如下：
部门信息
    --市场部
    --研发部
    --财务部
    --人事部
    --公关部我的问题是：
如何在程序中选中人事部等这些选项？

Answer 1

Private Sub Command2_Click() '方法1
    TreeView1.Nodes.Item(5).Selected = True
    TreeView1.SetFocus
End SubPrivate Sub Command3_Click() '方法2
    Dim mnode As Node
    For Each mnode In TreeView1.Nodes
        If mnode.Text = "人事部" Then
            mnode.Selected = True
            TreeView1.SetFocus
            Exit For
         End If
     Next
End SubPrivate Sub Form_Load()
    Dim mnode As Node
    Set mnode = Me.TreeView1.Nodes.Add(, , , "部门信息")
    mnode.Expanded = True
    Me.TreeView1.Nodes.Add mnode, tvwChild, , "市场部"
    Me.TreeView1.Nodes.Add mnode, tvwChild, , "研发部"
    Me.TreeView1.Nodes.Add mnode, tvwChild, , "财务部"
    Me.TreeView1.Nodes.Add mnode, tvwChild, , "人事部"
    Me.TreeView1.Nodes.Add mnode, tvwChild, , "公关部"
End Sub

Answer 2

为什么不考虑用该控件的Checkbox呢？

Answer 3

必是想要下级条目吧！
　　　　，此是所点条目的text值，就是“市场部”等字样！　可以赋，可以读,可以用做定位之用
 TreeView1.SelectedItem.Text = "所显示字样"
　　　　，此是所点条目的key值，就是内部引用名一样！不可以赋，可以读，可以用做定位之用
 if TreeView1.SelectedItem.key = name then
                 ......省点中结点自动展开:TreeView1.SingleSel = True
是否允许编缉结点：TreeView1.LabelEdit = tvwManual

Answer 4

with TreeView1
 .Nodes.Item("人事部").Selected = True
 .SetFocus
end with