Mensajes

Muy bueno leandro, me gustó mucho... Lo usaré en el software que estoy desarrollando... Saludos

La idea de un troyano es poder obtener toda la información posible de una pc, archivos, password, etc. De nada sirve que le jodas la pc o le hagas bromas, puesto que sencillamente mandará a formatear la pc hasta ese día funciono. Usalo para obtener info importante. Es lo mejor. Bueno es solo una sugerencia. Puedes hacer lo que desees, claro está.

Saludos

Bien, debido a inconvenientes presentados con el listview que trae el vb6 por default, decidi buscar uno que fuese más eficiente al momento de mostrar más de 100mil registros, ya que en el listview del vb6 tarda una eternidad. He encontrado este, en PCS  (Bajar Aquí). Excelente por cierto. Pero logre convertirlo en ocx, armar el columnheader, sin embargo no logro dar con la inserción de registros. Quisiera saber si alguno de ustedes ha trabajado con el y pueda darme una mano. O guiarme.

Adjunto dejo tambien el ocx para que lo vean.

Saludos

Perdona por favor mi ignorancia, pero para que sirve?

Esto es VB6.0

De nada, cualquier cosa avisa...!

Hola, Puedes intentarlo así. A mi me funciona perfecto!

Debes asignarle el valor True a la propiedad KeyPreview del Form. Saludos

Código (vb) [Seleccionar] Expandir


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim CtrlDown
   
    CtrlDown = (Shift And vbCtrlMask) > 0
    Select Case KeyCode
        Case vbKeyF8
            If bundo.Enabled = True Then
                bundo_Click
            End If
        Case vbKeyF9
            If bsalir.Enabled = True Then
                bsalir_Click
            End If
        Case vbKeyF4
            If bnew.Enabled = True Then
            bnew_Click
            End If
        Case vbKeyF5
            If bsave.Enabled = True Then
            bsave_Click
            End If
        Case vbKeyF7
            If bdel.Enabled = True Then
            bdel_Click
            End If
        Case vbKeyP
            If bnew.Enabled = True Then
            VengoDe = "Facturacion"
            FrmListaPedidosFac.Show vbModal
            End If
        Case vbKeyF
            If bnew.Enabled = True Then
            FrmListaFacturas.Show vbModal
            End If
    End Select
End Sub


Ok, aquí tienes un ejemplo.

Cualquier cosa avisame. Saludos

Bajar aquí

Esta muy lindo esos aplicativos de Vigilance. De verdad que si!

Wao wao

Baja un poco la guardia. Estamos acá para ayudar no a enfrentarnos entre nosotros mismos.!