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

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