Añadir skin a Formulario en Vb6

Hola a todos, aqui escribiendo aún de las experiencias en VB6, esta viejito el lenguaje para este tiempo, pero aún es un lenguaje muy utilizado por su sencillez, facilidad de programación, politicas, en fin...

Como poner un skin a un formulario o a un programa de VB6, bueno podemos descargar y ver los skin desde las url´s:

Todonet

Rvb

Si nuestro equipo no lo tiene (el mio no lo tenia) añadimos el .ocx "actskin4.ocx" que podemos descargar de internet, luego debemos copiarlo en la carpeta system32 y registrarlo con la linea: regsvr32 /s actskin4.ocx ó con regsvr32 /s  C:\WINDOWS\system32\actskin4.ocx, por si las dudas, guia.

Listo, ahora agregamos el Componente, ubicados en la mesa de trabajo de nuestro proyecto en VB6 vamos al menú de Proyecto->Componentes y seleccionamos en Controles la libreria "ActiveSkin 4.0 Type Library", arrastramos el objeto de skin al proyecto y desde la ventana de código en el Load( ) de formulario añadimos estas líneas de código:

 Form1.Skin1.LoadSkin App.Path & "\Skins\LinuxGnome.skn"
    Skin1.ApplySkin Form1.hWnd

Para añadirle el skin, eso es todo.

Advertencia: los objetos Label no se pueden visualizar para ver los Label utilicen el objeto LabelSkin que aparece al agregar la libreria y ya se ve con el tema o skin seleccionado.

Hasta pronto.

Abrir un pdf desde vb6

Hola, para abrir un archivo .pdf desde shell hay varios códigos por hay en internet, pero, no se de que dependa, algunos generar errores, el código que les comparto funciona perfecto, espero les sea de utilidad.


Shell ("rundll32.exe url.dll,FileProtocolHandler " & App.Path & ("\Turnos.pdf")), vbMaximizedFocus

Accedo a Base de Datos con ODBC desde vb6

Hola a todos, aprendí a conectarme a una base de datos a través de un DNS o por ODBC y bueno les voy a compartir el código, hay les va, dudas u opiniones son bien recibidas.

Recuerden para que no les genere ningun error en el menú Proyecto - Referencias y agregan la referencia Microsoft ActiveX Data Objects 2.1 Library.


Public Cn As ADODB.Connection
Private Sub Form_Load()
Conectado
End Sub



Public Function Conectado() As Boolean
    Dim cadena As String
    Dim Rs As ADODB.Recordset
       
        Set Rs = New ADODB.Recordset


        On Error GoTo senal
        Set Cn = New ADODB.Connection
        cadena = "DSN=DNS_NAME;UID=USER;PWD=PASSWORD"

        Cn.ConnectionString = cadena
        Cn.Open
        Conectado = True
        MsgBox ("Conectado")
       
        Set Rs = Cn.Execute("select * From emp", , adCmdText)

       
        Do Until Rs.EOF()
            MsgBox Rs(0) & " " & Rs(1) & " "
            Rs.MoveNext
        Loop
           
        Rs.Close
        Set Rs = Nothing
        Cn.Close
Exit Function

senal:
        Conectado = False
        MsgBox Err.Description
        Err.Clear
End Function