Cómo crear un control de árbol en VB

Agregue un control TreeView y un control ImageList.

Le damos un código relativamente completo:

'Variable de matriz global:

Variable de matriz 1 (1 hasta el número máximo de registros en la tabla de datos), variable de matriz 2 (1 al número máximo de registros en la tabla de datos), variable de matriz 3 (1 al número máximo de registros en la tabla de datos)...Variable de matriz n (1 al número máximo de registros en la tabla de datos) table)

'Aquí también se pueden usar matrices dinámicas, pero la matriz debe definirse usando ReDim en el siguiente proceso Form_Load

Private Sub Form_Load()

strSQL = "seleccionar * de la tabla de datos"

RS.Open strSQL, db, 3, 3

Establecer Nodx = TreeView1.Nodes.Add()

Nodx.Text = "Título total"

Nodx.Image = "TP1"'El número gráfico que debe mostrar el control Imagen1

TreeView1.LabelEdit = tvwManual

Establecer Nodx = TreeView1.Nodes.Add(1, tvwChild, "A", "Subtitle")

Nodx.Image = "TP2"'El número gráfico que debe mostrar el control Imagen1

Dim intIndex como entero, R tan largo

intIndex = Nodx.Index

Hacer hasta RS.EOF

Variable de matriz 1 (Nodx.Index) = RS("Campo 1")

Variable de matriz 2( Nodx.Index) = RS("Campo 2")

Variable de matriz 3(Nodx.Index) = RS(" Campo 3")

........ .....

Variable de matriz n(Nodx.Index) = RS("campo n")

Nodx.Text = RS("campo x")' debe estar en tres campos mostrados en la lista de niveles

Nodx.Image = "TP3"'El número gráfico que debe tener el control Imagen1 mostrar

Nodx.Tag = "Sitio

RS.MoveNext

Bucle

RS.Close

Establecer RS = Nada

Nodx.EnsureVisible

TreeView1.StartLabelEdit

End Sub

Sub privado TreeView1_NodeClick(ByVal Node1 como nodo)

'Haga clic en la acción del elemento TreeView1

If (Node1.Index - 1) gt; And (Node1.Index - 1) lt El número máximo de registros en la tabla de datos Entonces;

'Determinar si se hace clic en el elemento, un juicio necesario

'Mostrar el programa.

Puede utilizar la variable de matriz 1 (Nodo1.Index - 1), la variable de matriz 2 (Nodo1.Index - 1), la variable de matriz 3 (Nodo1.Index - 1)... visualización de la variable de matriz n (Nodo1.Index - 1).

Finalizar si

Finalizar sub