Sección de controles Ocx para Visual basic , Dll , Activex

214 - Control para skin en botones, botones de opción y para Checkbox

UcBtn Skin

Este es un control de usuario para programas de Visual basic 6.0 que permite usar botones, CheckBox y botones de opción con Skins. También es posible crear botones con texto personalizado mediante diferentes estilos y formatos, por ejemplo asignarle diferentes fuentes, colores , tamaños al texto.

Este ejemplo lo hice para poder utilizarlo en conjunto con un proyecto de vb programado por Leandro Ascierto que permite modificar un control ToolBar para cambiarle la apariencia también con Skins . cClass ToolBar

Descargar Proyecto

>> Descargar el código fuente del control y un ejemplo.

Propiedades

Algunas propiedades que contiene el control son :

Propiedad Skin : Tiene cargada por defecto 20 Skins para utilizar : Tipo XP, Hotmail, Royale XP, Windows Live, 2 de Office 2007 azul , estilo con los botones de Google Picasa , Windows Vista y algunos otros. Algunos estilos no están muy bien diseñados y se pueden mejorar.
Propiedad ButtonType : Esta propiedad tiene tres valores : para poder usar el botón como un botón normal, como un checkBox o un botón de opción.
CaptionAlign : Para alinear el caption
useUnderLineMouseUp y useUnderLineMouseCheck : estas dos propiedades son para para poder subrayar el caption del botón al pasar el mouse por encima, o para dejarlo subrayado cuando el botón actúa como un CheckBox u OptionButton. ( Estilo página web )
ColorSchemas : Esta propiedad tiene dos valores : Si se encuentra con el valor use Skins, no se puede cambiar el valor de colores de fuente, y cada Skin utilizará colores ya establecidos. Si se cambia a None, si se pueden establecer los colores que se deseen para los eventos de mouse ( Color de la fuente para el MouseOver, MouseOut, Check, para el botón deshabilitado etc ...)
EnabledFormatText : Opción para poder agregar al botón texto con formato, por ejemplo un título con un color de fuente y el resto del texto con otro color, tamañosetc ... También es posible añadir líneas y una imagen. Nota. Algunos botones al ser muy grandes, dependiendo del degradado que tengan, se deforman y no quedan bien. También se puden usar sin skins, mediante colores sólidos.
SkinCustomPicture . Propiedad para poder cargar un mapa de bits de Skin para el botón, desde un archivo de recursos o desde el disco.
useBackColorContainer : Simple propiedad que usa el objeto Extender de vb para obtener desde el UC el backColor del contenedor del botón, para simular la transparencia para el estado normal.
PictureTexture : usar una imagen como textura para el texto

Referencias

El control no necesita ninguna referencia externa ( Activex, DLL, archivo etc ..) para funcionar. Lo único que se requiere, es que si se utiliza como control de usuario privado, se importe al proyecto ( Además del control obviamente ), el archivo de recursos que contienen las imágenes de Skin. El archivo de recursos se puede cargar desde el menú Proyecto de vb > SubMenú Agregar Archivo . Si el control se compila como OCX, no es necesario importar el archivo de recursos.

Capturas de pantalla

Crear una imagen de skin.

Si se quiere añadir un nuevo estilo al archivo de recursos deberás seguir tres pasos.

1 - Al agregar la imagen, asignarle como ID del bitmap, el número consecutivo . Por ejemplo el último Bitmap del .Res tiene el ID 122. Entonces si agregás otro, sería el número 123, si agregás otro mas el 124, etc ..

Después de añadir la imagen, Presiona Ctrl + F , y busca la constante COUNT_SKIN_RES. e incrementale en un 1., ya que esta constante contiene la cantidad de imágenes a leer desde el .RES

Luego, busca en el código la declaración del Enum eSkin, y añade el nuevo nombre para el Skin. Por ejemplo si el Enum es este:

Enum eSkin [VB_Net] = 0 [XP_Amarillo] = 1 [XP_Blue] = 2 [XP] = 3 [XP_Rosa] = 4 [Hotmail] = 5 [Windows_Media] = 6 [WMP_Cobre] = 7 [WMP_Verde] = 8 [Word_2000] = 9 [Royale_XP] = 10 [Windows_Live] = 11 [Windows_Live2] = 12 [Google_Picasa] = 13 [Office_2007_Blue_TabStrip] = 14 [Office_2007_Blue_Button] = 15 [Office_2007_Blue_CheckGreen] = 16 [Hotmail2] = 17 [Windows_Vista] = 18 [CBBlue] = 19 [RoyaleXPWinTaskBar] = 20 [Vista2] = 21 [Link] = 22 ' no se usa imagen [CustomSkin] = 23 ' skin personalizado End Enum

Deberás añadir el nuevo valor de enumeración antes del que dice "Link" y cambiar el número , quedaría de la siguiente forma

Enum eSkin [VB_Net] = 0 [XP_Amarillo] = 1 [XP_Blue] = 2 [XP] = 3 [XP_Rosa] = 4 [Hotmail] = 5 [Windows_Media] = 6 [WMP_Cobre] = 7 [WMP_Verde] = 8 [Word_2000] = 9 [Royale_XP] = 10 [Windows_Live] = 11 [Windows_Live2] = 12 [Google_Picasa] = 13 [Office_2007_Blue_TabStrip] = 14 [Office_2007_Blue_Button] = 15 [Office_2007_Blue_CheckGreen] = 16 [Hotmail2] = 17 [Windows_Vista] = 18 [CBBlue] = 19 [RoyaleXPWinTaskBar] = 20 [Vista2] = 21 [UN_Nuevo_SKIN] = 22 [Link] = 23 ' no se usa imagen [CustomSkin] = 24 ' skin personalizado End Enum

Por último, para establecer los colores por defecto del nuevo skin ( Color para la fuente en estado normal, para el mouseUp etc ..) Busca la función mSetColorSchemas

If (mSkin = NUEVO_SKIN) Then mForeColorCheck = valor mForeColorDown = valor mForeColorNormal = valor mForeColorUp = valor mForeColorDisabled = valor mBorderColorSkinDefault = valor mBackColorSkinDefault = valor End If

Para diseñar la imagen, esta debe tener como dimensiones 105 pixeles de ancho por 23 pixeles de alto, y cada estado del botón tiene como ancho 15 pixeles, como muestra este gráfico

Nota: al crear un nuevo skin es mas práctico, mientras se prueba como va quedando, en ves de cargar la imagen al archivo de recursos, hacerlo desde la propiedad SkimCustomPicture, ya que es mas rápido, y una ves terminada, luego ya si colocarla en el archivo de recursos.

Relacionados

Buscar en Recursos vb con Google