Cómo utilizar el control de estructura de árbol en VB
La estructura de árbol se implementa usando la vista de árbol. Cómo agregar controles: haga clic derecho en "Caja de herramientas" - "Componentes" - controles comunes de Microsoft Windows 6.0 - Aceptar, aplicar
Lo siguiente es. un método de eliminación de adición simple,
Opción explícita
'Agregar elemento
Subcomando privado1_Click()
Atenuar nodx como nodo p>
Establecer nodx = TreeView1.Nodes.Add(, , "zf", "Relación sin rastro de Zifeng (haga doble clic para contraer)")
Establecer nodx = TreeView1.Nodes.Add(" zf", tvwChild, "zfwife", "wife")
Establecer nodx = TreeView1.Nodes.Add("zf", tvwChild, "zflover", "Lover")
Establecer nodx = TreeView1.Nodes.Add("zf", tvwChild, "zffriend", "friend")
Establecer nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp1", " esposa mayor" )
Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp2", "Second Wife")
Set nodx = TreeView1.Nodes.Add ("zfwife ", tvwChild, "lp3", "tercera esposa")
Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp4", "cuatro esposas")
Establecer nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp5", "五wife")
Establecer nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr1" , "Amante No. 1")
Establecer nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr2", "Amante No. 2")
Establecer nodx = TreeView1 .Nodes.Add("zflover", tvwChild, "qr3", "Lover No. 3")
Establecer nodx = TreeView1.Nodes.Add("zffriend", tvwChild, " py1", "Zhang San ")
Establecer nodx = TreeView1.Nodes.Add("zffriend", tvwChild, "py2", "李思")
Establecer nodx = TreeView1 .Nodes.Add(" zffriend", tvwChild, "py3", "Wang Mazi")
Establecer nodx = TreeView1.Nodes.Add("py1", tvwChild, "pylp1", "esposa de Zhang San ")
Establecer nodx = TreeView1.Nodes.Add("py1", tvwChild, "pylp2", "Hijo de Zhang San")
nodx.EnsureVisible
Finalizar Sub
'Eliminar código
Subcoma privada
nd2_Click()
MsgBox ("Para eliminar" & TreeView1.SelectedItem.Text)
TreeView1.Nodes.Remove (TreeView1.SelectedItem.Index)
Fin Sub