Please... ejemplo TreeView ¿alguien me ayuda? Please...

[Sancho.Mazorka]

Yo no tengo ni idea de como es el Bifrost o el Poison pero esto te sirve ?

Código [Seleccionar] Expandir

MsgBox TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)

No entiendo muy bien que queres hacer, pero talvez que con algun IF o un Select Case, puedas sacar lo que necesitas con esa linea de code que te di, lo que hace esa linea es, hacer un MsgBox con el nombre del Item que clickeas.


Sancho.Mazorka   

[CeLaYa]

Bueno para cargar un ListView puedes hacer 2 cosas:

1. En tiempo de diseño pones el listview y le dices que sea invisible y al hacer click en uno de los nodos que lo vuelva visible y puedes establecer coordenadas para que aparezca en cierta parte de programa y/o para confugurar las columnas
ejemplo:

Código [Seleccionar] Expandir


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.text
                    case "Archivos"
                           ListView1.ColumnHeaders.Add 0, , "Columna1", ancho, alineación
                           ListView1.ColumnHeaders.Add 1, , "Columna2", ancho, alineación
                           ListView1.ColumnHeaders.Add 2, , "Columna3", ancho, alineación
                           ListView1.Move Izquierda, Arriba, Ancho, Largo
                           ListView1.Visible = True
                   case ....
        end select
End Sub



2. Otra cosa que puedes hacer es crear un arreglo de listViews y cargarlos segun necesites, esto te serviria en caso de que ocupes más de un listview al mismo tiempo
ejemplo:

Código [Seleccionar] Expandir


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.text
                    case "Archivos"   
    Load ListView1(ListView1.Count + 1) ' Aqui creas una nueva instancia del control
    ListView1(ListView1.Count).ColumnHeaders.Add 0, , "Columna1", ancho, alineación
    ListView1(ListView1.Count).ColumnHeaders.Add 1, , "Columna2", ancho, alineación
    ListView1(ListView1.Count).ColumnHeaders.Add 2, , "Columna3", ancho, alineación
   
    ListView1(ListView1.Count).Move Izquierda, Arriba, ancho, Largo
    ListView1(ListView1.Count).Visible = True
    end select
End Sub


esto último tiene una limitante si quieres descarlos listviews tendras que hacerlo del indice mayor al menor, es decir si tienes 4 listviews ListView(1), ListView(2),ListView(3),ListView(4), y quieres descargar el 2 tendiras que descargar primero el 4 y luego el 3

[d(-_-)b]

bueno el tema este resuelto esto era lo que me hacia falta

Código [Seleccionar] Expandir

Private Sub TreeView1_Click()

If TreeView1.Nodes.Item(TreeView1.SelectedItem.Index) = "Archivos" Then ListView1.Visible = True
If TreeView1.Nodes.Item(TreeView1.SelectedItem.Index) = "Regedit" Then ListView1.Visible = True

End Sub

graias a Sancho.Mazorka

bien de modo que cuando pulse archivos, llamare un listview u otra cosa, bueno bye

Pero hay un problema cuando pulso archivos y tambien regedit, cuando vuelvo a otra ves a pulsar en archivos no se me quiere mostrar..., es como si solo lo llamara una ves, no puedo retroceder