separator separator

ChSD_UserAvailableOptions (Propiedad)

Devuelve o establece un valor long que indica que opciones estarán disponibles para el usuario en el cuadro de diálogo de cambiar skin.

Sintaxis

objeto.ChSD_UserAvailableOptions [= valor]

La sintaxis de la propiedad ChSD_UserAvailableOptions consta de las siguientes partes:

Parte Descripción
objeto Una expresión de objeto que se refiere a un objeto vbSkinner.
valor Un número long que indica cuales serán las opciones disponibles para el usuario, como se especifica en valores.

Valores

Los valores admitidos para valor son:

Valor Descripción
0 (Predeterminado) El usuario podrá seleccionar un skin tanto eligiendo desde los skins preestablecidos del control vbSkinner como desde un archivo de skin.
1 El usuario solo podrá seleccionar el skin desde los skins preestablecidos del control vbSkinner.
2 El usuario solo podrá seleccionar un skin desde un archivo de skin.

Comentarios
Puede establecer la propiedad a 1 si no desea que el usuario pueda crear un skin propio. 
Si no le interesa que use los skin preestablecidos del control vbSkinner puede establecer el valor de esta propiedad a 2 y proporcionarle al usuario archivos de skins para que pueda cambiarlos. 
En este segundo caso también puede cargar una imagen de skin en tiempo de diseño en la propiedad SkinPicture del formulario principal de la aplicación de manera que sea esa la skin que muestre por defecto, pero se recomienda que deje la propiedad Skin a su valor por defecto (skAuto_ReadFromRegistry, 0) de manera que si el usuario cambia la imagen de skin, la imagen que seleccionó sea cargada nuevamente la próxima vez que inicie la aplicación, y no que muestre el skin que puso por defecto.

Para que todo esto funcione correctamente puede escribir un código como el siguiente:

Private Sub Form_Load ()
    If GetSetting (App.Title, "ControlSkinner",_
    "Inicializado", 0) = 0 Then
        Skinner1.Skin = skCreateFromPicture
        SaveSetting App.Title, "ControlSkinner",_
        "Inicializado", 1
    End if
End Sub

No olvide colocar en tiempo de diseño las propiedades:

Skin = skAuto_ReadFromRegistry (0)
Asigne a SkinPicture la imagen de skin que desea por defecto

Nota: Cuando establece la propiedad SkinPicture (en tiempo de diseño o de ejecución), la propiedad Skin cambia automáticamente al valor skCreateFromPicture (98), de manera que tendrá que volverla a cambiar a skAuto_ReadFromRegistry (0).

separador

Vea también: Personalizar como se muestra el diálogo de cambiar skin

separador

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