por que no puedo poner un label al poner un skin?

[Senior++]

Bueno os cuento me baje unos skin para cambiar mi diseño en vb6 al estar en modo de ejecución el programa...

Entonces cuando pongo una etiqueta label no se muesta el texto en el form1.

entonces dije a lo mejor es por ese ski probare con otro pero tampoco se muestra el texto que esta dentro del label en el formulario

entonces no se por que me pasa eso

Si alguien sabe que me lo haga saber

Saludos y gracias

[raul338]

Depende que motor de skin uses para tu aplicacion

te recomiendo Módulo ClsSkinner

[Senior++]

Ok gracias

Saludos

lo acabo de probar y yo abro
visual basic 6.0 y en el form1 pong:
Skin1.ApplySkin Me.hWnd

y luego abro el componente ActiveSkin 4.0 type librari y cuando pongo el objeto Skin en el formulario y le doy "Load Skin" pues no me sale los skin que me as dicho..

¿Por que?

Saludos

[raul338]

Este es distinto de ActiveSkin, descargaste el ejemplo del link que te pase? Fíjate bien como esta armado

[Senior++]

Código [Seleccionar] Expandir

Option Explicit

' Declaramos cSkin como la clase ClsSkinner.
Dim cSkin As ClsSkinner

Private Sub Form_Load()

    ' Creamos e inicializamos a cSkin
    Set cSkin = New ClsSkinner
   
    ' Esto es si queremos que el área del cliente se pinte con el tema del skin.
    ' Ojo!! esto hará que los controles Labels, Image, Shapes y Line que estén directamente sobre el formuario no se muestren.
    ' En el caso que no querramos que esto pase lo dejamos  = False.
    cSkin.PaintClientArea = True
   
    ' Indicamos el path donde debe leer el archivo.Skin
    cSkin.LoadSkinFromFile App.Path & "\Comander.Skin"
   
    ' Si quisiéramos leer el Skin desde un archivo de recursos llamamos a la función. LoadSkinFromResource
    ' Donde 101 es el index y "SKIN" es la sección.
    cSkin.LoadSkinFromResource 101, "SKIN"
   
    ' Aplicamos el Skin a nuestro Formulario.
    cSkin.HookForm Me.hwnd

End Sub

Private Sub Form_Unload(Cancel As Integer)

    ' Detenemos la Sublcasificación.
    cSkin.UnHookForm Me.hwnd
   
    ' Descargamos la clase de la memoria
    Set cSkin = Nothing

End Sub
         

Ese código? pero donde le tengo que pegar en un .Bas?