目录树开发外包 - 编程论坛

#2

wds12018-06-07 08:18

  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级目录的例子

#3

ZHRXJR2018-06-12 17:24

一个简单的树状列表框：

只有本站会员才能查看附件，请登录

程序代码：

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

#4

zsqgd2018-10-13 15:52

多谢各位，问题搞定。