Hola!
Revísate este ejemplo: http://www.mundoprogramacion.com/vb/ejemplos/treeview.htm
Seguro te servirá...
Saludos!
Revísate este ejemplo: http://www.mundoprogramacion.com/vb/ejemplos/treeview.htm
Seguro te servirá...
Saludos!
Con lo que mandaste y con lo que tenia mas o menos me quedo asi:
Código:
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
Dim s As String
Select Case Node.Text
Case Node.Root
Exit Sub
End Select
s = Node.Text
If Node.Children > 0 Then
s = s & ", tiene " & Node.Children & " hijos"
Else
Exit Sub
End If
MsgBox s
End Sub
Allí si me funciona como quiero, no se si estará bien el CODE pero funciona, gracias por tu tiempo amigo.