separator separator

Cambiar de skins

Alternativas para permitirle al usuario cambiar de skin:

1) La forma más sencilla de permitirle al usuario cambiar de skin es dejar visible el botón 'Cambiar skin' de la barra de títulos como aparece por defecto. Puede ver algunas formas de personalización de esta alternativa en el tema Personalizar como se muestra el diálogo de cambiar skin
Si el botón no aparece visible entonces diríjase a la propiedad 'Personalizado' de la pantalla de propiedades y en la página de propiedades 'Botones' seleccione 'Cambiar skin' = True

2) Mostrar el cuadro de diálogo de cambiar skin por código.
Para mostrar el cuadro de diálogo por código invoque al método ShowChangeSkinDialog. Vea también la propiedad ChSD_UserAvailableOptions.

3) Crear su propio cuadro de diálogo de cambiar skin.
Sin duda esta es la alternativa que requiere más código, pero la más versátil, ya que podría hacer que en el mismo cuadro de diálogo el usuario seleccione otras características no incluidas en el control vbSkinner y que sean particulares de su proyecto.
Nota: establezca la propiedad SaveToRegistry a False del control vbSkinner que coloque en este formulario (formulario del cuadro de diálogo), y luego si el usuario presionó el comando Aceptar entonces invoque al método SaveValuesToRegistry del mismo control.

Un ejemplo de lo expuesto es el siguiente:

'En la sección de declaraciones del formulario Coloque lo que sigue:

Public mControlSkinner As Skinner

Private Sub cmdAceptar_Click()
    Screen.MousePointer = vbHourglass
    If mControlSkinner.Skin = skAuto_ReadFromRegistry Then
        Skinner1.SaveValuesToRegistry
    Else
        If Skinner1.Skin = skCreateFromPicture Then
            Set mControlSkinner.SkinPicture =_
                Skinner1.SkinPicture
        Else
            mControlSkinner.TitleBarSkin =_
                Skinner1.TitleBarSkin
            mControlSkinner.TitleBarForeColor =_
                Skinner1.TitleBarForeColor
            mControlSkinner.BodySkin = Skinner1.BodySkin
            mControlSkinner.BodyForeColor =_
                Skinner1.BodyForeColor
        End If
    End If
    Hide
    Unload Me
    Screen.MousePointer = vbDefault
End Sub

Cuando presente el formulario personalizado de cambio de skin hágalo de este modo:

Set SuFormulario.mControlSkinner = Me.Skinner1
SuFormulario.Show 1

4) Alguna otra variante que se le ocurra, como por ejemplo diseñar algunos skins propios y colocarlos en un control ImageList, luego presentar alguna forma para cambiarlos.
Para hacer esto asigne la propiedad SkinPicture del control vbSkinner a la imagen que extraiga del ImageList.

5) Incluir en el paquete de instalación los skins que quiera proveer al usuario. Estos deben estar colocados en el directorio ChSD_SkinsFolder, que por defecto es el mismo de la aplicación, en este caso puede que también le convenga establecer la propiedad ChSD_SaveSkinsFolder a False de manera que el usuario siempre use esa carpeta para las skins.

separador

Vea también: Como usar el control vbSkinner
Personalizar como se muestra el diálogo de cambiar skin
Diseñar skins
SkinPicture (propiedad)

separador

Controles ActiveX para Visual Basic 6 - Página de inicioPágina principal de ayuda de vbSkinner Inicio   Volver atrás Atrás