动态添加treeview的节点

,动态添加treeview的节点

主要控件:treeview,imagelist,button

注意:treeview1.imagelist=imagelist1

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2.         Dim treexm As TreeNode        '定义根节点
3.         Dim treegrand As TreeNode     '定义祖父辈节点
4.         Dim treeYY, treeNN As TreeNode  '定义爷爷奶奶节点
5.         Dim treeF As TreeNode          '定义父辈节点
6.         Dim treeBB, treeMM As TreeNode  '定义爸爸妈妈节点
7.         Dim treeM As TreeNode            '定义同辈节点
8.         Dim treeW, treeGG As TreeNode     '定义小明和哥哥节点
9.         treexm = treeview1.Nodes.Add("小明家")      '增加根节点
10.         treexm.ImageIndex = 0                 '设置节点的图标
11.         treexm.SelectedImageIndex = 0       '设置节点的选择图标
12.         treegrand = treexm.Nodes.Add("祖父辈") '在根节点上增加祖父辈节点
13.         treegrand.ImageIndex = 0
14.         treegrand.SelectedImageIndex = 0
15.         treeYY = treegrand.Nodes.Add("爷爷")
16.         treeNN = treegrand.Nodes.Add("奶奶")
17.         treeYY.ImageIndex = 0
18.         treeYY.SelectedImageIndex = 0
19.         treeNN.ImageIndex = 1
20.         treeNN.SelectedImageIndex = 1
21.         treeF = treexm.Nodes.Add("父辈")
22.         treeF.ImageIndex = 0
23.         treeF.SelectedImageIndex = 0
24.         treeBB = treeF.Nodes.Add("爸爸")
25.         treeBB.ImageIndex = 0
26.         treeBB.SelectedImageIndex = 0
27.         treeMM = treeF.Nodes.Add("妈妈")
28.         treeMM.SelectedImageIndex = 1
29.         treeMM.ImageIndex = 1
30.         treeM = treexm.Nodes.Add("同辈")
31.         treeM.ImageIndex = 0
32.         treeM.SelectedImageIndex = 0
33.         treeW = treeM.Nodes.Add("小明")
34.         treeGG = treeM.Nodes.Add("哥哥")
35.         treeW.ImageIndex = 0
36.         treeW.SelectedImageIndex = 0
37.         treeGG.SelectedImageIndex = 0
38.         treeGG.ImageIndex = 0
39.     End Sub