Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo utilizar el control de estructura de árbol en VB

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