Imprimir Página - Please... ejemplo TreeView ¿alguien me ayuda? Please...

Título: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: d(-_-)b en 17 Junio 2007, 15:32 pm

hola tengo este ejemplo por hay, bueno, el problema es el siguiente, tal como esta en la imagen si por ejemplo hago click en Child Node #2, ami me gustaria llamar un formulario, como lo hago,

(http://img530.imageshack.us/img530/153/treeview1al2.jpg)

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: CeLaYa en 19 Junio 2007, 02:14 am

cuando creas el nodo imagino que usas una clave (KEY) para cada nodo, así le dices que nodo es hijo de cual... por lo tanto esa clave te sirve para identificar de manera unica a cada nodo, pues bien puedes usar el evento NodeClick

Código:

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.key
                    case "nodo1"
                           from1.show
                   case "nodo"
                           form2.show.....
        end select
End Sub

espero te sirva de algo

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: ~~ en 19 Junio 2007, 11:41 am

Mirate este tuto:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/controles_visual_basic_menu.htm

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: d(-_-)b en 19 Junio 2007, 14:36 pm

Gracias EON pero no lo tengo claro, yo estoy liao, no me aclaro, cuando intento leer algunos codigo me pierdo, veras, mira es que estoy creando un troyano ok es tipo poison y bifronst, ok esto es lo siguiente

Código:

Private Sub Form_Load()

    With TreeView1.Nodes

     Set Root = .Add(, , , "Manegar")
        .Add Root.Index, tvwChild, , "Archivos"
        .Add Root.Index, tvwChild, , "Regedit"
        .Add Root.Index, tvwChild, , "Buscar"
        .Add Root.Index, tvwChild, , "Ventanas"
        .Add Root.Index, tvwChild, , "Sitios de red"
        .Add Root.Index, tvwChild, , "Consola remota"
     Set Root = .Add(, , , "Información")
        .Add Root.Index, tvwChild, , "Servicios"
        .Add Root.Index, tvwChild, , "Procesos"
        .Add Root.Index, tvwChild, , "Servidor"
        .Add Root.Index, tvwChild, , "Computadora"
        .Add Root.Index, tvwChild, , "Puertos activos"
     Set Root = .Add(, , , "Capturar")
        .Add Root.Index, tvwChild, , "Keylogger"
        .Add Root.Index, tvwChild, , "Capturar video"
        .Add Root.Index, tvwChild, , "Capturar audio"
        .Add Root.Index, tvwChild, , "Capturar pantalla"
        .Add Root.Index, tvwChild, , "Capturar Microfono"
     Set Root = .Add(, , , "mensajes")
        .Add Root.Index, tvwChild, , "Msgbox"
        .Add Root.Index, tvwChild, , "Imprimir"
        .Add Root.Index, tvwChild, , "Chat"
     Set Root = .Add(, , , "Herramientas")
        .Add Root.Index, tvwChild, , "Otras funciones"
        .Add Root.Index, tvwChild, , "Transferencias"
        .Add Root.Index, tvwChild, , "Uninstall servidor"
     
   End With

End Sub

ok me vas entendiendo un poco mas, bueno cuando, por ejemplo hago click en "Procesos" me gustaria llamar un listview pero no se como hacerlo, e estado ojeando un codigo que hace eso, pero lo tengo complicado,,, please esto me urge, voy retrasado, ya que me falta solo eso, pero ir agregandole funciones, y para ponerme a escribir el servidor...

Ah... otra cosa por favor diganme que funciones mas agregarle, al cosas que no puedo hacer de momento lo que tengo hay, en el treeview, es lo que soy capaz de hacer, aunque mis conosimiento son pocos, pero esta sera mi primera aplicacion

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: d(-_-)b en 19 Junio 2007, 14:37 pm

Cita de: CeLaYa en 19 Junio 2007, 02:14 am

Código:

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.key
                    case "nodo1"
                           from1.show
                   case "nodo"
                           form2.show.....
        end select
End Sub

espero te sirva de algo

Gracias CeLaYa por tu ayuda pero esto no me funciona...

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: Arcangel en 19 Junio 2007, 19:14 pm

Código:

Private Sub arbol1_NodeClick(ByVal Node As MSComctlLib.Node)

    Dim nombrenodo As String
    nombrenodo  = Node.Text

'esto apra verificar que sea una punta del arbol    
    If Node.Children > 0 Then Exit Sub 
    
Select Case nombrenodo 
Case "Child Node #1"

form1.show

Case "Child Node #2"
  form2.show
   
End Select

End Sub

Siendo nombrenodo en el caso de tu ejemplo "Child Node #1", pero si le pones otros nombres a los nodos, pues ya ahi adaptas el case.

Espero te sirva.

Arcangel

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: d(-_-)b en 19 Junio 2007, 19:31 pm

no me funciona de verdad

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: Arcangel en 19 Junio 2007, 22:41 pm

Ami ese me funciona a la perfeccion, puedes colocar el code tuyo para revisarlo?

Arcangel

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: CeLaYa en 20 Junio 2007, 00:06 am

el ListView lo tienes en otro form??? o lo quires cargar dentro del mismo form que el Treeview??

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: d(-_-)b en 20 Junio 2007, 13:13 pm

Cita de: CeLaYa en 20 Junio 2007, 00:06 am

el ListView lo tienes en otro form??? o lo quires cargar dentro del mismo form que el Treeview??

si eso mismo, lo quiero cargar en el mismo form, solo que no se llamarlo

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: Sancho.Mazorka en 20 Junio 2007, 16:37 pm

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

Código:

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 :¬¬

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: CeLaYa en 20 Junio 2007, 18:40 pm

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:

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:

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

Título: Re: Please... ejemplo TreeView ¿alguien me ayuda? Please...
Publicado por: d(-_-)b en 21 Junio 2007, 14:32 pm

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

Código:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: d(-_-)b en 17 Junio 2007, 15:32 pm