目前有一个用户选择控制，要将下拉部门修改成目录树选择，如下图所示。


找长期合作的朋友，联系QQ：635341397

  TreeView1.Nodes.Clear
  TreeView1.Nodes.Add , "tvwfirst", "L1", "所有影片", 1
  
  TreeView1.Nodes.Add "L1", tvwChild, "L21", "影片类型", 2
  TreeView1.Nodes.Add "L1", tvwChild, "L23", "IMDB评分", 2
  TreeView1.Nodes.Add "L1", tvwChild, "L22", "影片年代", 2
  
  TreeView1.Nodes.Add "L21", tvwChild, "L211","名称", 3
  
TreeView1.Nodes(2).Sorted = True
  TreeView1.Nodes(1).Selected = True
  以上是增加1级，2级.3级目录的例子

一个简单的树状列表框：

Dim ZGID(1 To 50) As Integer

Private Sub Form_Load()
TreeView1.Visible = True
TreeView1.Nodes.Clear
Dim BMSZ
BMSZ = Array("办公室", "人事部", "财务部", "后勤部", "技术部", "销售部", "策划处", "美工处")
Dim Nodx As Node
Set Nodx = TreeView1.Nodes.Add()

 Nodx.Text = "公司部门"

 Nodx.Image = "TP1"
  TreeView1.LabelEdit = tvwManual
Set Nodx = TreeView1.Nodes.Add(1, tvwChild, "A", "部门列表")
Nodx.Image = "TP2"
        For I = 1 To 8
        ZGID(Nodx.Index) = I
             Set Nodx = TreeView1.Nodes.Add("A", tvwChild)
             Nodx.Text = BMSZ(I - 1)
             Nodx.Image = "TP3"
             Nodx.Tag = "Site"
        Next I
  Nodx.EnsureVisible

 TreeView1.StartLabelEdit
End Sub

多谢各位，问题搞定。