Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: jack06 en 7 Mayo 2017, 21:50 pm


Título: Seleccionar Nodo de Treeview
Publicado por: jack06 en 7 Mayo 2017, 21:50 pm
Buenas Tardes amigos, disculpen las molestias, pero ya llevo hora y no encuentro la solucion a este problema que les voy a mencionar, a lo mejor sea facil, pero no logro dar con la solucion.

Pues miren la imagen, lo que trato de hacer es que, al seleccionar cualquiera de los nodos por ejemplo me arroje un mensaje diciendo "Bien Hecho", pero ese mensaje saldra si elijo los nodos que dicen Numero.... si selecciono otro nodo que no salga ningun mensaje hasta ahorita no doy con la respuesta haber si alguien me hecha una manito.

(http://s2.subirimagenes.com/imagen/previo/thump_9734333captura.png) (http://www.subirimagenes.com/imagen-captura-9734333.html)

Código:
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)

        Select Case Node.Text

            Case Node.Root
                Exit Sub

            Case Node.Key
                MsgBox "Bien Hecho"
                Exit Sub

            Case Else
                Exit Sub

        End Select

End Sub

Tengo esa parte de código, pero no me sale nada, haber si alguien me orienta un poco, gracias por su atención.

Título: Re: Seleccionar Nodo de Treeview
Publicado por: Eleкtro en 7 Mayo 2017, 21:57 pm
¿VB6, o VB.NET?.

Título: Re: Seleccionar Nodo de Treeview
Publicado por: jack06 en 7 Mayo 2017, 22:19 pm
VB 6.0 amigo...  :silbar:

Título: Re: Seleccionar Nodo de Treeview
Publicado por: MCKSys Argentina en 8 Mayo 2017, 01:06 am
Probaste comprobar si el evento se triguerea cuando haces click en el treeview?

Si lo hace, verifica contra lo que estás compararndo en el case.

Saludos!

Título: Re: Seleccionar Nodo de Treeview
Publicado por: jack06 en 8 Mayo 2017, 02:15 am
Buenas estuve jugando con sus propiedades, si hago en el nodo RAIZ, vacan me sale el mensaje que le asigne, si elijo el segundo nodo, vacan me sale el mensaje que le asigne, pero si elijo el  3er nodo me sale error, me faltaria detectar ese tercer nodo, pero aun no logro, dejo captura de pantalla para que le dean una ojeada y el codigo, haber si me dan con la respuesta.

Es este mensaje de error que me salta al elegir el 3er nodo, lo estoy controlando con On Error GoTo errhandler

(http://s2.subirimagenes.com/imagen/previo/thump_9734493dfdf.png) (http://www.subirimagenes.com/imagen-dfdf-9734493.html)
Código:
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)

    On Error GoTo errhandler
    
        Select Case Node.Text
            Case Node.Root
                MsgBox "SELECCIONO CLIENTE", vbCritical
                Exit Sub
            Case Node.Child.Parent
                MsgBox "SELECCIONO N° ORDEN"
                Exit Sub
            Case Else
                MsgBox "SELECCIONO DETALLE", vbCritical
                Exit Sub
        End Select
        
    Exit Sub
    
errhandler:
    MsgBox Err.Description
    
End Sub



Título: Re: Seleccionar Nodo de Treeview
Publicado por: MCKSys Argentina en 8 Mayo 2017, 02:35 am
El IDE te permite depurar el programa. Pon un Breakpoint en el evento y fíjate qué es lo que da error.

Saludos!

Título: Re: Seleccionar Nodo de Treeview
Publicado por: jack06 en 8 Mayo 2017, 05:45 am
Cita de: MCKSys Argentina en  8 Mayo 2017, 02:35 am
El IDE te permite depurar el programa. Pon un Breakpoint en el evento y fíjate qué es lo que da error.

Saludos!

Amigo, buenas en esta parte es donde me arroja el error:
Código:
Case Node.Child.Parent

No doy con la solucion llevo horas y nada, jijijij  :o

Título: Re: Seleccionar Nodo de Treeview
Publicado por: MCKSys Argentina en 8 Mayo 2017, 20:07 pm
Si seleccionas el último nodo de la rama, entonces no tiene child.

Saludo!

Título: Re: Seleccionar Nodo de Treeview
Publicado por: jack06 en 8 Mayo 2017, 20:26 pm
Cita de: MCKSys Argentina en  8 Mayo 2017, 20:07 pm
Si seleccionas el último nodo de la rama, entonces no tiene child.

Saludo!

Exacto, pensé que con poner un Case Else bastaría pero no se que iría allí alguna idea amigo???

Título: Re: Seleccionar Nodo de Treeview
Publicado por: MCKSys Argentina en 8 Mayo 2017, 20:38 pm
Hola!

Revísate este ejemplo: http://www.mundoprogramacion.com/vb/ejemplos/treeview.htm (http://www.mundoprogramacion.com/vb/ejemplos/treeview.htm)

Seguro te servirá...  ;)

Saludos!

Título: Re: Seleccionar Nodo de Treeview
Publicado por: jack06 en 8 Mayo 2017, 21:11 pm
Cita de: MCKSys Argentina en  8 Mayo 2017, 20:38 pm
Hola!

Revísate este ejemplo: http://www.mundoprogramacion.com/vb/ejemplos/treeview.htm (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.


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines