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

300 - Ejemplo para hacer un TreeView con CheckBox personalizados

Ejemplo para usar la propiedad Image de los nodos o elementos para usarlos como CheckBox con imagenes propias

El ejemplo es como muestra el siguiente gráfico

Se necesitan crear dos gráficos que se deben colocar en un control ImageList

A la imagen " NO seleccionada " dentro del ImageList, se debe establecer en la propiedad Key el valor False, y la otra imagen con el Valor True

Por último se debe enlazar el Imagelist con el control TreeView , desde la ventana de propiedades en la ficha General, opción ImageList

Código fuente en el formulario

Option Explicit Private Sub Form_Load() Dim El_Nodo As Node Dim Child_Nodo As Node Dim i As Integer With TreeView1 ' Estilo del Treeview .LineStyle = tvwRootLines .Style = tvwTreelinesPlusMinusPictureText ' Agrega el nodo principal Set El_Nodo = .Nodes.Add(, , , " Lista ") 'Le cambia el color a la fuente del nodo raiz El_Nodo.ForeColor = vbRed ' . y lo expande El_Nodo.Expanded = True ' Agrega 5 elementos For i = 0 To 5 ' La imagen que le asigna es la " NO seleccionada " Set Child_Nodo = .Nodes.Add(El_Nodo, tvwChild, , _ " Elemento " & i, "False") Next ' Le asigna la imagen " seleccionado ", al ultimo nodo Child_Nodo.Image = "True" End With End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) ' Cambia la imagen del nodo al hacer clic If Node.Image = "False" Then ' Imagen seleccionada Node.Image = "True" Node.Tag = True Else ' Imagen NO seleccionada Node.Image = "False" Node.Tag = False End If 'Muestra el valor en el caption del formulario Me.Caption = " Seleccionado: " & Node.Tag End Sub

Recursos visual basic 6.0 - Relacionados

CheckBox en FlexGrid para campos boolean

Buscar en Recursos vb