Mensajes

[Error GoTo errhandler]

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

Código [Seleccionar] Expandir


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

VB 6.0 amigo... 

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.

Código [Seleccionar] Expandir

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.

[- GRACIELA MORENO CALVO]

Buenos amigos,

Pues bien, la duda que tengo es de como poder llenar unos datos que tengo una BD y cargarlos en un TreeView, ya eh logrado cargar los datos en el control TreeView lo que no logro es agruparlo, les muestro como me muestra los resultados en el TreeView a continuación.

subir fotos online

Pues bien, como verán me cargan los datos, hasta allí todo OK, pero el detalle es de que me repite los Nro. De Ventas, aparte de eso tiene otro NODO que me muestra el detallado de dicha Venta, les muestro en la imagen siguiente:

subir imagenes

Es así como me cargan los datos. Todo esta OK pero lo que trato de hacer es de que me agrupen los datos, ya se habrán dado cuenta de lo que trato de hacer, deberían de cargarme los datos de esta manera.

- GRACIELA MORENO CALVO

   --- Numero: 3 - Fecha: 01/03/2010

           --- Cant: 1 - Cartuchos HP 1100 Remanufacturado

           --- Cant: 10 - Teclado PS2 "Genius"

   --- Numero: 7 - Fecha: 15/03/2010

            :

            :

Quiero que me agrupe de esa manera, les dejo el código en la parte que cargo los datos, para ver en que parte tengo que agregar o midificar el codigo, gracias..

Código [Seleccionar] Expandir

Option Explicit

Private Enum ObjectType
    otNone = 0
    otFactory = 1
    otGroup = 2
    otPerson = 3
    otFactory2 = 4
    otGroup2 = 5
    otPerson2 = 6
End Enum

Private Sub Form_Load()

    CARGAR_CONSULTA_NOMBRE

End Sub

Sub CARGAR_VENTA_SEGUN_NOMBRE(ByVal strQuery As String)
   
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
        Call ConectarBDD
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
               
    Dim i As Long
   
   
    Dim FACTORY As Node
    Dim GROUP As Node
    Dim ARTICULO As Node
   
    Dim TIPO_ORDEN As String
   
    StrSQL = strQuery
    RST.Open StrSQL, CN, adOpenStatic, adLockOptimistic, adCmdText

    Do While Not RST.EOF
   
        With TreeView1.Nodes
                   
            .Clear
            Set FACTORY = .Add(, , , RST!NOMBRE_CLI, otFactory, 1)
       
            For i = 1 To RST.RecordCount
               
                'En esta parte es donde se repiten los N° DE ORDEN como se agrupa si hay dos o varios a la vez
                Set GROUP = .Add(FACTORY, tvwChild, , "Número: " & RST!IDVenta & " - " & "Fecha: " & RST!Fecha_Venta, otGroup, 2)
                Set ARTICULO = .Add(GROUP, tvwChild, , "Cant.: " & RST!Cantidad & " - " & RST!Nombre, 3)
               
                RST.MoveNext
                FACTORY.Expanded = True
           
            Next i
       
        End With
       
    Loop
   
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   
End Sub

'+----------------------------------------------------------------------------------------------
'// Consulta para mostrar los datos en el TreeView segun ID del cliente...
'+----------------------------------------------------------------------------------------------
Sub CARGAR_CONSULTA_NOMBRE()

    StrSQL = "SELECT VENTAS.IDVenta, VENTAS.Fecha_Venta, VENTAS_DETALLES.Cantidad, TBArticulos.Nombre, TBClientes.NOMBRE_CLI"
    StrSQL = StrSQL & " FROM (TBClientes INNER JOIN VENTAS ON TBClientes.NCLI = VENTAS.NCLI) INNER JOIN (TBArticulos INNER JOIN VENTAS_DETALLES ON TBArticulos.IDArticulo = VENTAS_DETALLES.IDArticulo) ON VENTAS.IDVenta = VENTAS_DETALLES.IDVenta"
    StrSQL = StrSQL & " WHERE ((TBClientes.NCLI=" & FrmGestionClientes.LvConsultClientes.SelectedItem & "))"
   
    Call CARGAR_VENTA_SEGUN_NOMBRE(StrSQL)
       
End Sub

MOD: Imagenes adaptadas a lo usado en el foro.

bajate el vb 6.0 de la pagina de leandro. 

http://www.leandroascierto.com.ar/foro/index.php?topic=69.0

Salu2.

Uhm algo asi?

http://www.recursosvisualbasic.com.ar/htm/listado-api/222-capturar-webcam-con-sendmessage-capCreateCaptureWindow.htm

Loko pero te recomiendo esta pagina, alli sta lo que estas buscando

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=transparency&lngWId=10

Espero te sirva Salu2.

[VB 6.0]

ehhh, no es .Net loko, estas en el foro de VB 6.0 si te fijas mas arribita esta el sub-foro de .NET

[MDIForm]

Haber prueba esto, el código pon en el MDIForm, en un menu haces el llamado al Form1, espero te sirva.

Código (vb) [Seleccionar] Expandir

Form1.Top = (MDIForm1.ScaleHeight - Form1.Height) / 2
Form1.Left = (MDIForm1.ScaleWidth - Form1.Width) / 2
Form1.Show

Salu2.

[Aprendiz-Oscuro]

Efectivamente Aprendiz-Oscuro era la fuente, probe la fuente mala en otra pc, y pasava lo mismo, probe una fuente buena y normal.

Gracias por las respuestas. Salu2