Sección de códigos , trucos y ejemplos para visual basic

467 - Expandir un nodo específico en un control treeview

Ejemplo para poder expandir un nodo de un treeview

El ejemplo expande todos los nodos hijos del nodo que se encuentra seleccionado mediante un popup menu y un command button

Descargar

Código fuente de la función

' recibe el nodo a expandir ( incluyendo los nodos hijos ) Public Sub Expandir_Nodo_Seleccionado(nodo As Node) Dim Child As Node 'Expande el nodo actual nodo.Expanded = True ' referencia al nodo Hijo Set Child = nodo.Child ' mientras haya un nodo Child continua Do While Not (Child Is Nothing) ' vuelve a ejecutar la rutina para recorrer los demás Call Expandir_Nodo_Seleccionado(Child) ' referencia al siguiente nodo Set Child = Child.Next Loop End Sub

Recursos visual basic 6 - Enlaces relacionados

Ejemplos del control Treeview

Buscar en Recursos vb