SKINS PARA FORMULARIOS
Viernes, 08 de Mayo de 2009
Ejemplo:
A continuación se encuentra un ejemplo sencillo que les
enseñará cómo aplicar dichos Skins a un formulario, además se
mostrarán las propiedades y funciones con las que cuenta.
Nota: Es aconsejable
implementarlo cuando estemos por compilar y no cuando estemos
construyendo algún proyecto ya que de haber algún error este
podría provocar el cierre de Visual Basic y no nos permitirá
guardar los cambios de nuestro proyecto.
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
