Temas

Buenos días,

Consulta alguien me puede indicar como puedo crear una apertura y cierre de caja, es decir como puedo controlar eso que tablas y campos se usa en la base de datos, no tengo idea de donde empezar si alguien ya conoce bien este tema, estaría muy agradecido que me explicara.

Gracias de antemano.

Muy buenas tardes amigos.

Una consulta, no se si alguien de usted a trabajado con Impresoras de Tiqueteras.

Pues bien estos usando el Metodo Ptinter.Print lo que neceseto es recorrer un Listview y imprimir directo, pero eh estado probando un codigo que encontre aca:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/111-imprimir-listview.htm

El problema es que me sale muy separado los espacios de las filas estuve modificando algo el codigo pero me salen muy separadas no logro cuadrarlas, me quedan asi mas o menos para que tengan la idea.



Y uso esta parte de codigo:

Código [Seleccionar] Expandir

'A esta función se le envía el control LV a imprimir
Public Sub Imprimir_ListView(ListView As ListView)
 
    Dim i As Integer, Espacio As Integer, X As Integer
    Dim Item As ListItem
   
    'Encabezado de ejemplo
    Printer.Print ""
    Printer.Print "                                   ~DON MEGIA~ "
    Printer.Print "                              POLLOS A LA BRASA"
    Printer.Print "                  CAL. MORALES BERMUDEZ N° 323"
    Printer.Print ""
    Printer.Print "                                 TICKET DE VENTA"
    Printer.Print
    Printer.Print "  Recibo:          "
    Printer.Print "  Fecha:           " & Date & "  " & Time
    Printer.Print "  Mesa:            "
    Printer.Print "  Atendido Por:    "
   
    Printer.Print
    Printer.Print "  Descripcion                                 Precio       Cant        Total"
    Printer.Print "  -----------------------------------------------------------------------------"

    With ListView
   
        'Este bucle recorre los items y subitems del ListView  y los imprime
        For i = 1 To .ListItems.Count
           
            Espacio = 0
         
            Set Item = .ListItems(i)
   
            'Recorremos las columnas
            For X = 1 To 4
                Espacio = Espacio + CInt(.ColumnHeaders(X).Width)
'                Printer.CurrentX = Espacio
                Printer.Print "  " & Item.SubItems(X);
            Next
         
            'Otro espacio en blanco
       Printer.Print
  Next
   
  End With
   
  Printer.Print

  Printer.Print
  'Texto del pie
  Printer.Print "               ¡¡¡GRACIAS POR SU PREFERENCIA!!!"
   
  'Comenzamos la impresión
  Printer.EndDoc
End Sub

O quizas aya otra forma de hacerlo esto trabajadno con base de datos con access eso quiero que se imprima cuando le doy en un boton cobrar y directo lo imprima por la ticketera, desde ya muchas gracias, haber si alguien tiene experiencia en eso y me oriente.

Gracias....

Buenos dias,

Alguien me puede hechar una manito, les explico de que es lo que deseo hacer, espero me puedan dar una manito:

Tengo un ListView, y picture, entonces lo que trato de hacer es que al seleccionar un item del listview, y le doy click derecho a ese item seleccionado me aparezca el picture y asi sucesivamente por cada item...

Consulta alguien de ustedes usa el Vb 6.0 y su ServiPack 6.0 en Windows 64 Bits??? Si fuera el caso alguien me puede indicar como hizo para instalar el SP 6.0 no logro instalar su servipack, ya que necesito usar el DataReport en forma Horizontal, en windows 7 recuerdo que usaba con toda normalidad ahora en el windows 10 ni puedo ejecutar si alguien sabe de esto, estaría muy agradecido de como lo hicieron muchas gracias.

[Sub para mostrar los datos en el Listview.]

Buenas tardes muchachos, pues bien estoy usando VB 6.0 y BDD ACCESS pues bien mi problema es con una consulta que estoy tratando de que me resulte pero no doy con el fallo o del por que el problema, pues bien tengo la siguiente imagen tengo 4 tablas Relacionadas de las cuales de ellas voy a sacar ciertas informaciones especificas, les muestro en la imagen.



Hasta allí todo bien pues uso esta parte de código para poder generar mi consulta que estoy tratando de hacer


Sub para mostrar los datos en el Listview.

Código [Seleccionar] Expandir

Sub CARGAR_ORDENES_SEGUN_SELECCION(ByVal strQuery As String)
   
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
        Call ConectarBDD
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
               
        LVTecnicos.ListItems.Clear
       
        StrSQL = strQuery
        RST.Open StrSQL, CN, adOpenStatic, adLockOptimistic, adCmdText
       
        Do Until RST.EOF
           
            Set Lv = LVTecnicos.ListItems.Add(, , "", , 1)
           
            With RST
               
                Lv.Text = .Fields("NPRE")
                Lv.SubItems(1) = .Fields("FECHA") & ""
                Lv.SubItems(2) = .Fields("ARTICULO") & ""
                Lv.SubItems(3) = FormatCurrency(.Fields("PRECIO"), 2) & ""
                Lv.SubItems(4) = FormatCurrency(.Fields("MANO_DE_OBRA"), 2) & ""
                Lv.SubItems(5) = FormatCurrency(.Fields("TOTALREPUES"), 2) & ""
                Lv.SubItems(6) = .Fields("FECHA_ENTREGADO") & ""
               
                lblComiM.Caption = "Comisión: " & .Fields("Comision_MO") & ""
                lblComiR.Caption = "Comisión: " & .Fields("Comision_RE") & ""
               
                RST.MoveNext
               
            End With
           
        Loop
   
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   
End Sub

Aca hago la consulta SQL para que me muestre los resultados en un Listview, y es aquí donde tengo el problema

Código [Seleccionar] Expandir

'+----------------------------------------------------------------------------------------------
'// Sub para Filtrar la Consulta de Tecnico x Rango de Fechas y Estado...
'+----------------------------------------------------------------------------------------------
Sub CARGAR_CONSULTA_ORDEN_X_FECHA()

    'Hacemos la consulta, según sea el TECNICO Seleccionado, las Fechas INI & FIN y el ESTADO.
    StrSQL = "SELECT Presupuesto.NPRE, Presupuesto.FECHA, ArticuloNPre.ARTICULO, ArticuloNPre.PRECIO, ArticuloNPre.MANO_DE_OBRA, Sum([Presu_Repuestos.Precio]*[Presu_Repuestos.Cantidad]) AS TOTALREPUES, Presupuesto.FECHA_ENTREGADO, Tecnicos.Comision_MO, Tecnicos.Comision_RE"
    StrSQL = StrSQL & " FROM Tecnicos INNER JOIN ((Presupuesto INNER JOIN ArticuloNPre ON Presupuesto.NPRE = ArticuloNPre.NPRE) INNER JOIN Presu_Repuestos ON Presupuesto.NPRE = Presu_Repuestos.NPRE) ON Tecnicos.IDTecnico = Presupuesto.IDTecnico"
    StrSQL = StrSQL & " WHERE ((Presupuesto.FECHA BETWEEN #" & Format(DtDesde.DateTime, "MM/dd/yyyy") & "#  AND #" & Format(DtHasta.DateTime, "MM/dd/yyyy") & "# AND Presupuesto.IDTecnico=" & Split(CbTecnico.Text, "|")(0) & " AND Presupuesto.ACEPTADO=" & 4 & "))"
    StrSQL = StrSQL & " GROUP BY Presupuesto.NPRE, Presupuesto.FECHA, ArticuloNPre.ARTICULO, ArticuloNPre.PRECIO, ArticuloNPre.MANO_DE_OBRA, Presupuesto.FECHA_ENTREGADO, Tecnicos.Comision_MO, Tecnicos.Comision_RE"
   
    Call CARGAR_ORDENES_SEGUN_SELECCION(StrSQL)
    lblTotalEncontrados.Caption = LVTecnicos.ListItems.Count & " Registros Encontrados."
       
End Sub


Pues bien al tratar de hacer la consulta no me muestra nada, incluso ningun error, ni nada por el estilo aparentemente todo esta ok, si se fijan la parte marcada de rojo como no hay nada de info no muestra, la info abajo le detallo mejor.




Pues bien estuve revisando y me di cuenta que no me muestra ningun resultado por que como ven la parte que lo remarque de rojo esa parte del listview no eh agregado nada como no hay informacion no me funciona la consulta pero si lleno algo si me muestra la consulta



Espero me ayan entendido gracias.

Nuevamente molestandolos, como puedo extraer cierto numero con el Split. Normalmente voy a usar ese formato como muestro abajo

Código [Seleccionar] Expandir

Número: 5 - 08/05/2017 - ENTREGADO

Lo que deseo obtener es solo el numero 5, siempre extraer despues de que dice Número: osea la que se encuentra en medio del : y - como haría?

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.

Hola, buenos dias, tengo un problema con una pc, les cuento, cada vez que orendo la pc, no pasa las señal al monitor no respond el monitor, pero el CPU normal pareciera que funcionace de lo mas normal y lo dejo asi no mas unos minutos y resien pasa la señal monitor y recien puedo iniciar sesion como sin nada, la verdad no se cual pueda ser el problema.

PD: probe el HDD, y la memoria RAM en otra pc y esta de lo mas normal, creen ustedes que pueda ser la placa?, otra cosa al tenerlo un rato la pc encendida se pone una luz roja alli no mas sin parpadear, cuando resien le pasa señal al monitor resien enpiesa a parpadear la lucesita...

Espero me ayuden en este problemita. Salu2

[": P"]

wenas wenas tengo un problemilla con las apis del MSN, estaba probando este pedaso de code:

Código (vb) [Seleccionar] Expandir

Option Explicit

Public WithEvents MSN As Messenger

Private Sub Command1_Click()
 
   MSN.OptionsPages 0, MOPT_GENERAL_PAGE
   SendKeys (Text1.Text & "{ENTER}")

End Sub

Private Sub Form_Load()

   Set MSN = New Messenger

End Sub

lo que hace es cambiar de nick al msn ok, hasta alli todo bien, el problema es cuando trato de ponerle iconos al nick pero no con todos tengo problema por ejemplo si ingreso esta combinacion ": P" normal me funka pero si ingreso esta combinación ": )" alli me lanza un error, luego si ingreso "(H)" solo me muestra la H, eh no se si algunos de estudes el porque de este error???

Salu2....

[Console.Clear]

wenas como estan, eh estoy empesando a ver visual basic, pero por ahora estoy viendo en modo consola y weno stava asiendo unos ejemplos para poder ver algunas cosillas y me tope con un problema es sobre Console.Clear, tengo entendido que para limpiar la pantalla ok, pero al utilizar el Console.Clear, me limpia lo que queda de arriba y solo me deja lo que hay debajo de Consolo.Clear y no es lo que deseo weno lo que queria hacer era esto.



como veran por cada operacion que realizo, ¿pregunta si desea probar con otra operacion si al darle Si entonces que me limpie la operacion realizada anteriormente y que el cursor se posicione en donde Seleccione Opcion: stava viendo la ayuda pero no logro hacerlo si alguien me puede orientar seria de gran ayuda...

Código (vb) [Seleccionar] Expandir

Module Module1

    Sub Main()
        Dim Num1 As Integer, Num2 As Integer
        Dim Opcion As Integer, Resultado As Double

        Console.ForegroundColor = ConsoleColor.Red : System.Console.WriteLine("")
        System.Console.WriteLine("          Operaciones de Matematicas Básicas")
        System.Console.WriteLine("          ==================================")

        System.Console.WriteLine("") : System.Console.WriteLine("") : Console.ResetColor()

        Console.ForegroundColor = ConsoleColor.Green
        System.Console.WriteLine("   [1] Suma")
        System.Console.WriteLine("   [2] Resta")
        System.Console.WriteLine("   [3] Multiplicación")
        System.Console.WriteLine("   [4] División")
        System.Console.WriteLine("   [5] Potencia")
        System.Console.WriteLine("   [6] Salir")
        Console.ResetColor() : System.Console.WriteLine("") : System.Console.WriteLine("")

        System.Console.Write("                              Seleccione Opción: ") : Console.ForegroundColor = ConsoleColor.Green : Opcion = Console.ReadLine : Console.ResetColor()

        System.Console.WriteLine("") : System.Console.WriteLine("")

        Select Case Opcion
            Case 1
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Suma                            |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")

                System.Console.Write("   Sumando 1: ") : Num1 = Console.ReadLine
                System.Console.Write("   Sumando 2: ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")

                Resultado = Val(Num1 + Num2)

                System.Console.Write("   La suma es      :" & Str(Resultado))

            Case 2
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Resta                           |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")

                System.Console.Write("   Ingrese Minuendo  : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Sustraendo: ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")

                Resultado = Val(Num1 - Num2)

                System.Console.Write("   La diferencia es  :" & Str(Resultado))

            Case 3
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Multiplicación                  |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")

                System.Console.Write("   Ingrese Multiplicando : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Multiplicador : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")

                Resultado = Val(Num1 * Num2)

                System.Console.Write("   El Producto es        :" & Str(Resultado))

            Case 4
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de División                        |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")

                System.Console.Write("   Ingrese Dividendo: ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Divisor  : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")

                Resultado = Val(Num1 / Num2)

                System.Console.Write("   El Cociente es   :" & Str(Resultado))

            Case 5
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("   | Operación de Potencia                        |")
                System.Console.WriteLine("   ++++++++++++++++++++++++++++++++++++++++++++++++")
                System.Console.WriteLine("")

                System.Console.Write("   Ingrese Base          : ") : Num1 = Console.ReadLine
                System.Console.Write("   Ingrese Exponente  : ") : Num2 = Console.ReadLine
                System.Console.WriteLine("")

                Resultado = Val(Num1 ^ Num2)

                System.Console.Write("   La Potencia es   :" & Str(Resultado))

            Case 6
                If MsgBox("Esta seguro que desea sali??", MsgBoxStyle.Question + vbYesNo, "Operaciones Matematicas") = 6 Then
                    End
                End If
            Case Else
                MsgBox("El número ingresado esta fuera del rango", MsgBoxStyle.Critical, "Operaciones Aritmeticas")

        End Select

        System.Console.ReadLine()
    End Sub

End Module

wenas necesito desplazarme por el DataCombo al presionar los botones que remarque abajo y a la vez se deslize lo que hay en el combo osea que me seleccione los item que hay en el DataCombo....



Para los botones utilize este codigo.

Código (vb) [Seleccionar] Expandir

Private Sub CmdMov_Click(Index As Integer)
    Select Case Index
        Case 0
            RSTIdentifi.MoveFirst
            MsgBox "Principio de la Lista", vbCritical, "Reparaciones"
        Case 1
            RSTIdentifi.MovePrevious
            If RSTIdentifi.BOF Then
                RSTIdentifi.MoveFirst
            End If
        Case 2
            RSTIdentifi.MoveNext
            If RSTIdentifi.EOF Then
                RSTIdentifi.MoveLast
            End If
        Case 3
            RSTIdentifi.MoveLast
            MsgBox "Final de la Lista", vbCritical, "Reparaciones"
    End Select
End Sub

Espero su ayuda Salu2..

[VisibleCount]

Wenas tengo 2 problemas la

1era, es que necesito generar un codigo de esta manera "2009-0000001, 2009-0000002......" ok lo del 2009 es el año estoy utilizando este codigo

Código (vb) [Seleccionar] Expandir

    With RSTIdentifi
        LimpiarTXT Me
        If .RecordCount > 0 Then
            .MoveLast
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & String(7 - Len(Trim(Str(Val(!NRegistro) + 1))), "0") + Trim(Str(Val(!NRegistro) + 1))
        Else
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & "0000001"
        End If
    End With

pero al darle Nuevo me genera de esta manera: 2009-0000001, y cuando agrego un segundo dato me muestra de esta manera 2009-0002010, como veran los ultimo 4 digitos se ponen como fecha 2010 no se a que se debe eso, me deberia de mostrar 2009-0000002, y asi suecivamente no se di alguien me puede hechar una manito.

y el 2do problema era sobre el DataCombo necesito que un Label me muestre la cantidad de Item que contiene el DataCombo pero no logro sacar la cantidad no si alguien me hecha una manito vi una propiedad VisibleCount, pero lo unico que me muestra es 0..???

wenas compañeros, eh alguien no tendra por ahi algun code para exportar datos de listview a la hoja de calculo del OpenOffice, yo tengo un code para exportar al excel que es de esta manera.

Código (vb) [Seleccionar] Expandir


Private Sub Exportar()
   Dim objExcel As Excel.Application
   Dim Ancho As Integer
   Dim Dato As Variant
   Dim c As Integer
   Dim f As Integer
   Dim ColumnaExcel As Integer

   Set objExcel = New Excel.Application
   
   With objExcel
       .Visible = False
       .SheetsInNewWorkbook = 1 'Determina el numero de hojas que se mostrara en el Excel
       .Workbooks.Add 'Crea el Libro
       .Sheets("Hoja1").Name = "Registre"
       'Recorrer las celdas del Listview
       
       '----------------------------------------------
       ' Bucle principal
       '---------------------------------------------
   
       For f = 0 To ListSearch.ListItems.Count
           ColumnaExcel = 1
           For c = 1 To ListSearch.ColumnHeaders.Count
               If f = 0 Then ' Títulos
                   .Cells(1, ColumnaExcel) = ListSearch.ColumnHeaders(c).Text
               Else
                   If c = 1 Then
                       .Cells(f + 1, 1) = ListSearch.ListItems(f).Text
                   Else
                       Dato = ListSearch.ListItems(f).SubItems(c - 1)
                       ' Prevención para que las fechas pasen a Excel como tales
                       ' En mi listview los títulos de las columnas fecha empiezan con F.
                       If Left(ListSearch.ColumnHeaders(c).Text, 2) = "F." And Dato <> "" Then Dato = CDate(Dato)
                       .Cells(f + 1, ColumnaExcel) = Dato
                   End If
               
                   .Cells(f + 1, ColumnaExcel + 1).Select
                   ColumnaExcel = ColumnaExcel + 1
               End If
           Next
       Next
   
       '----------------------------------------------
       ' Fin del Bucle principal
       '---------------------------------------------
         
       .Range("A1").Select
       .Range(.Selection, .Selection.End(xlToRight)).Select
       PonerSombraCelda objExcel, 15, xlSolid
       PonerBordeCelda objExcel
       
       .Range(.Selection, .Selection.End(xlDown)).Select
       PonerBordeCelda objExcel
       .Cells.Select
       .Selection.WrapText = False
       .Cells.EntireColumn.AutoFit
       .Range("A1").Select
   End With

   'Preparar impresión en apasiado y a una hoja de ancho
   With objExcel.ActiveSheet.PageSetup
       .Orientation = xlLandscape
       .Zoom = False
       .FitToPagesWide = 1
       .FitToPagesTall = False
   End With
   
   'fraRegistros.Visible = False
   objExcel.Visible = True
   Set objExcel = Nothing
   
   Screen.MousePointer = vbDefault
End Sub

Private Sub PonerBordeCelda(Objeto As Excel.Application)
   With Objeto
   .Selection.Borders(xlEdgeLeft).Weight = xlThick
   .Selection.Borders(xlEdgeTop).Weight = xlThick
   .Selection.Borders(xlEdgeBottom).Weight = xlThick
   .Selection.Borders(xlEdgeRight).Weight = xlThick
   .Selection.Borders(xlInsideVertical).Weight = xlThin
   .Selection.Borders(xlInsideHorizontal).Weight = xlThin
   End With
End Sub

Private Sub PonerSombraCelda(Objeto As Excel.Application, ColorIndex As _
   Integer, Pattern As Integer)
   
   With Objeto.Selection.Interior
       .ColorIndex = ColorIndex
       .Pattern = Pattern
   End With
End Sub


De esa manera exporto mi datos a Excel pero no tengo la mas remota idea para enviar los datos al OpenOffice estuve investigando en Google y no encontre ningun ejemplo como en el trabajo han estado instalando el Open y weno me pidieron que tambien los datos que tengo se exporten al open, alguien me puede decir al menos de donde sacar informacion al respecto gracias, Salu2....

Wenas mi duda es la siguiente se puede agrupar datos repetidos de cirrta columna X en datareport weno algo asi



como ven en la primera columna son dependencias que se repiten y para evitar eso keria hacer algo asi pero no se si se podra o si se puede me podrian decir mas o menos de como podria hacerlo

[Total registros encontrado, 4]

Wenas tengo un problemilla con el ListView eh alguien sabe como puedo saber el total de registros que se encuentra en el Listview, osea estoy asiendo una consulta mientras voy escribiendo en un text me van mostranto los datos en el listView, solo los datos que se asemejan a los que voy escribiendo en el text, por ejemplo hay 4 datos que se encuentren en el list entonces esa cantidad la quiero mostrar en un label que digas ma o menos; Total registros encontrado, 4 weno algo por el estilo. Alguna idea  

wenas eh, voy a empezar a manejar Base de Datos con SQL server pero eh visto por google varias versiones, la pregunta seria cual de las tantas versiones funciona de 10 con Visual Basic 6.0????   

Salu2.... 

[TxtCapRam + " " + CbCapacidadMe.Text]

Wenas a todos, disculpen por las molestias necesito de su ayuda eh miren, estoy desarrollando un sistema la cual hasta ahora todo bien pero tengo un problema, al guardar los datos los hago por medio de un text y un combo y los concateno para k se guarde en un solo campo en la base de datos osea asi TxtCapRam + " " + CbCapacidadMe.Text ok hasta ahi todo bien luego eso lo muestro en un ListView el problema esk al darle doble click para poder editar necesito, lo que junte anteriormente que me devuelva cada dato que ingrese, osea en el text y del combo, bueno en este caso estoy ingresando en el text: 1234 y en el combo MHZ.

intente asiendo algo asi

.TxtMVeloci = Left(ListPlanilla.SelectedItem.ListSubItems(10).Text, 4)
.CbMBus = Right(ListPlanilla.SelectedItem.ListSubItems(10).Text, 3)

pero el problema esk en el text no ingreso siempre 4 digitos, tambien ingreso 2, 3..
y en el combo tengo cargado: MHZ, GB eh ahi el problema

[VB6IDEMouseWheelAddin.dll]

Wenas compañeros, eh llevo un buen tiempito tratando de registrar el VB6IDEMouseWheelAddin.dll para que me funciona la rueda del mouse en el IDE de VB pero no logro registrarla ya eh buscado por google tratando de encontrar alguna solucion pero nada no se si ah alguien de ustedes les habra pasado lo mismo que yo, bueno no se si alguno de ustedes tienes algun metodo para poderlo registrar sin problemas les estaria muy agredecidos  

Slu2...

ehhh wenas; eh no se si alguien sabra como puedo eliminar los .tmp que se generan al momento de utilizar los Reportes, weno eso para i es un poko incomodo, en si alguien sabe como puedo eliminarlos automaticamente eh por ejemplo al finalizar el proyecto???

les estaria muy agradecido si me hecharan una manito Salu2. 

Wenas aca les dejo un simple juego de Memoria espero que les guste y se relajen un poco ya k aca se manejan muchos codes es hora de alimentar la vista jojojo mbueno Bueno el juego consiste en buscar 2 imagenes iguales bueno eso es obvio y si pasa mas de un minuto te quita un punto bueno espero que les guste



Memoria.rar - Descargalo

Wenas; tengo un problemilla con el .RER tengo un array de Pictures osea asi Picture(0), Picture(1)............. ahora para cargar las imagenes desde el .RER a los picture lo hago de esta manera.

    Set Picture(0) = LoadResPicture(101, vbResBitmap)
    Set Picture(1) = LoadResPicture(102, vbResBitmap)
    Set Picture(2) = LoadResPicture(103, vbResBitmap)
    Set Picture(3) = LoadResPicture(104, vbResBitmap)
         :
         :

y asi sucesivamente, el problema es que al hacer asi sale muchas lineas de code alguien sabe alguna forma de como poder reducir eso???? espero su pronta ayuda... Sal2..   

Wenas a todos eh queria saber porque no ponen un sub foro de Visual FoxPro creo k mucha gente tambien utiliza ese lenguaje de programacion bueno aver k opinan sobre eso... 

Saludos...

Wenas una pregunta; eh alguien de ustedes sabe como puedo una insertar una imagen en un Picture pero la cuestion es que dicha imagen se adecue al picture; ya que el picture no tiene la propiedad Stretch. gracias de antemano... 

Saludos...

Hola todos; bueno hace unas semanas atraz hicimos un proyecto mis compañeros y yo se trata sobre una administracion de una farmacia; bueno eso fue para nuestro proyecto final de fin de ciclo jjeje. Lo que trata en el sistema es en controlar a los clientes, empleados, tambien tiene sus reportes, factura, etc bueno lo hicimos con apariencia al estilo de windows vista con su menu inicio y todo eso jeje.




Descarga:
Sistema de Farmacia - INKAFARMA

Hola a todos bueno encontre este code x el google, es un reloj analogico la cual tiene algunos efecto y se mueve al mover el puntero pero lo que yo queria si alguien me puede ayudar con sta duda que tengo es de como puedo imprimirlo al lado derecho superior para que quede estatico como el reloj del vista. gracias de antemano.

Solo necesita un Timer1.. Interval = 40 

Código [Seleccionar] Expandir

Dim Ymouse, Xmouse, dy(30), dx(30), Da(30), Mo(30)
Dim Split1, Day1, Year1, Todaysdate, h, m, D, s, Face, Speed, n, scrll
Dim Dsplit, HandHeight, Handwidth, HandX, HandY, Step, currStep
Dim Test, ClockHeight, ClockWidth, ClockFromMouseY, ClockFromMouseX
Dim Fcol, Mcol, Scol, Hcol, Dcol
Private Type FL
  T(30) As Long
  Le(30) As Long
End Type

Dim FL As FL
Private Type HL
  T(30) As Long
  Le(30) As Long
End Type
Dim HL As HL

Private Type SL
  T(30) As Long
  Le(30) As Long
End Type

Dim SL As SL
Private Type ML
  T(30) As Long
  Le(30) As Long
End Type

Dim ML As ML
Private Type DL
  T(30) As Long
  Le(30) As Long
End Type

Dim DL As DL
Const PI = 3.1415

Private Sub Form_Load()
    Dcol = 150   '//color de la fecha.
    Fcol = vbBlue  '//color de la cara.
    Scol = 0    '//color de los segundos.
    Mcol = 0   '//color de los minutos.
    Hcol = 0   '//horas de color.
    ClockHeight = 600
    ClockWidth = 600
    ClockFromMouseY = 1200
    ClockFromMouseX = 600
   
    '//¡No altere nada abajo! ¡Las alineaciones serán perdidas!
    Da(1) = "DOMINGO": Da(2) = "LUNES": Da(3) = "MARTES": Da(4) = "MIÉRCOLES"
    Da(5) = "JUEVES": Da(6) = "VIERNES": Da(7) = "SÁBADO"
    Mo(1) = "ENERO": Mo(2) = "FEBRERO": Mo(3) = "MARSO"
    Mo(4) = "ABRIL": Mo(5) = "MAYO": Mo(6) = "JUNIO": Mo(7) = "JULIO"
    Mo(8) = "AGOSTO": Mo(9) = "SEPTIEMBRE": Mo(10) = "OCTUBRE"
    Mo(11) = "NOVIEMBRE": Mo(12) = "DICIEMBRE"
    Day1 = Day(Now)
    Year1 = Year(Now)
   
    If (Year1 < 2000) Then Year1 = Year1 + 1900
        Todaysdate = " " + Da(Weekday(Now)) + " " + Str(Day1) + " " + Mo(Month(Now)) + " " + Str(Year1)
        D = Todaysdate
        h = "..."
        m = "...."
        s = "....."
        Face = "1 2 3 4 5 6 7 8 9 101112  "
        Form1.Font = "Arial"
        Form1.FontSize = 8
        Speed = 0.6
        n = Len(Face) - 2
        Ymouse = 0
        Xmouse = 0
        scrll = 0
        Split1 = 360 / n
        Dsplit = 360 / Len(D)
        HandHeight = ClockHeight / 4.5
        Handwidth = ClockWidth / 4.5
        HandY = -7
        HandX = -2.5
        scrll = 0 '2 * Altura Del Reloj
        Step = 0.06
        currStep = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Ymouse = Y + ClockFromMouseY ':acontecimiento Y + reloj del ratón Y;
    Xmouse = X + ClockFromMouseX ':acontecimiento X + reloj del ratón X;
End Sub

Private Sub Timer1_Timer()
    dy(0) = dy(0) + (Ymouse - dy(0)) * Speed
    dy(0) = Fix(dy(0))
    dx(0) = dx(0) + (Xmouse - dx(0)) * Speed
    dx(0) = Fix(dx(0))
   
    For i = 1 To Len(D) - 1
        dy(i) = dy(i) + (dy(i - 1) - dy(i)) * Speed
        dy(i) = Fix(dy(i))
        dx(i) = dx(i) + (dx(i - 1) - dx(i)) * Speed
        dx(i) = Fix(dx(i))
    Next i
   
    secs = Second(Now)
    sec = -1.57 + PI * secs / 30
    Mins = Minute(Now)
    Min = -1.57 + PI * Mins / 30
    hr = Hour(Now)
    hrs = -1.575 + PI * hr / 6 + PI * Int(Minute(Now)) / 360
   
        For i = 0 To n - 2
            FL.T(i) = dy(i) + ClockHeight * Sin(-1.0471 + i * Split1 * PI / 180) + scrll
            FL.Le(i) = dx(i) + ClockWidth * Cos(-1.0471 + i * Split1 * PI / 180)
        Next i
       
        For i = 0 To Len(h) - 1
            HL.T(i) = dy(i) + HandY + (i * HandHeight) * Sin(hrs) + scrll
            HL.Le(i) = dx(i) + HandX + (i * Handwidth) * Cos(hrs)
        Next i
       
        For i = 0 To Len(m) - 1
            ML.T(i) = dy(i) + HandY + (i * HandHeight) * Sin(Min) + scrll
            ML.Le(i) = dx(i) + HandX + (i * Handwidth) * Cos(Min)
        Next i
       
        For i = 0 To Len(s) - 1
            SL.T(i) = dy(i) + HandY + (i * HandHeight) * Sin(sec) + scrll
            SL.Le(i) = dx(i) + HandX + (i * Handwidth) * Cos(sec)
        Next i
       
        For i = 0 To Len(D) - 1
            DL.T(i) = dy(i) + ClockHeight * 1.5 * Sin(currStep + i * Dsplit * PI / 180) + scrll
            DL.Le(i) = dx(i) + ClockWidth * 1.5 * Cos(currStep + i * Dsplit * PI / 180)
        Next i
       
    currStep = currStep - Step
    P
End Sub

Private Function SP(ByVal ST As String, ByVal Nu As Integer, Optional K As Byte = 1) As String
    SP = Mid(ST, Nu + 1, K)
End Function

Private Sub P()
    Cls
   
    With Form1
        .FontBold = False
        .ForeColor = Dcol
        For i = 0 To Len(D) - 1
            .CurrentY = DL.T(i)
            .CurrentX = DL.Le(i)
            Print SP(D, i)
        Next i
       
        .ForeColor = Fcol
        For i = 0 To n - 1
            .CurrentY = FL.T(i)
            .CurrentX = FL.Le(i)
            If (i = 18 Or i = 20 Or i = 22) Then
                Print SP(Face, i, 2)
                i = i + 1
            Else
                Print SP(Face, i, 1)
            End If
        Next i
       
        .FontBold = True
        .ForeColor = Scol
   
        For i = 0 To Len(s) - 1
            .CurrentY = SL.T(i)
            .CurrentX = SL.Le(i)
            Print SP(s, i)
        Next i
        .ForeColor = Mcol
   
        For i = 0 To Len(m) - 1
            .CurrentY = ML.T(i)
            .CurrentX = ML.Le(i)
            Print SP(m, i)
        Next i
        .ForeColor = Hcol
   
        For i = 0 To Len(h) - 1
            .CurrentY = HL.T(i)
            .CurrentX = HL.Le(i)
            Print SP(h, i)
        Next i
    End With
End Sub

Hola todos bueno; tengo un problemilla tengo en un form y un picture y una vez que este ejecutado al presionar la tecla del boton inicio se ponga visible dicho picture claro k estaba visible = false no se si alguien me pueda mostrar un ejemplo gracias de antemano

Salu2...

Hola a todos bueno tengo una duda; bueno tengo un Boton la cual quiero ejecutar por ejemplo la calculadora de windows pero la duda es que como hago si es que estoy en sistema operativo de XP es obio que se va abrir la calcualdora y si estoy en  Windows Vista que se ejecutara la calculadora de vista y si en ninguno de estos sistemas no existiera la calculadora se desabiliatara el boton bueno no se si se entiende mi pregunta?? Salu2.

[DirectX 8]

Hola a todos bueno mi consulta es la siguiente; me baje este ejemplo de planet source:::... http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=55282&lngWId=1&txtForceRefresh=73200819125378884 . Bueno lo descargue en la pc de un amigo y funcionaba de lo mas normal en la pc pero cuando lo quise ejecutar en mi maquina me dava problemas claro mi pc es windows vista home bueno el problema era k primero me decia k faltava el DirectX 8, luego lo baje del google lo registre todo y me puse a probar de nuevo el ejemplo y me devolvio otro error que decia"Error '429' - El componente ActiveX no puede crear el objeto", bueno haber si alguien me ayuda a este problema de antemano gracias a todos...

Hola bueno haber si me hechan una manito; Bueno lo que estoy trantando de hacer esk al iniciar el Prog. me sale seleccioando en el Text mostrandome este mensaje "Escriba su Contraseña", hasta ai todo bien pero lo que quiero hacer es que al escribir se escriba pero en hasteriscos claro utilizando el PasswordChar pero lo he estado trantando de hacer pero no me sale habe si me orientan este es lo que eh avanzado..

Código [Seleccionar] Expandir

Private Sub Text1_Click()
    Select Case Text1.Text
        Case Is = "Escriba su Contraseña"
                 Text1.Text = ""
        Case Is <> "Escriba su Contraseña"
    End Select
End Sub

Private Sub Text1_LostFocus()
    Select Case Text1.Text
        Case Is = ""
                Text1.Text = "Escriba su Contraseña"
        End Select
End Sub

Private Sub Form_Click()
    Select Case Text1.Text
        Case Is = ""
            Text1.Text = "Escriba su Contraseña"
    End Select
End Sub

Private Sub Form_Load()
    Text1 = "Escriba su Contraseña"
    Text1.SelLength = Len(Text1.Text)
End Sub