Nuevo Botón Redondo
Control ActiveX creado para salir de la rutina de los botones cuadrados

Fecha: 22/Dic/2002 (Junio 2002)
Autor: Alexis Cabrera Mondeja, Sagua la Grande, Cuba
E-mail: jcsagua2@tinovcl.vcl.jcce.org.cu
 

Este nuevo control ActiveX nos permite agregar botones redondos a nuestros formularios, tiene varias propiedades personalizadas:

• - ForeColor (No está presente en los botones estándares de Visual Basic)
• - Color (Similar a Backcolor)
• - IconoRaton (Similar a MouseIcon)
• - PunteroRaton (Similar a Mouse Pointer)
• - Estilo: Es una nueva propiedad, toma valor 0 y 1, en 0 se comporta como botón estándar y en 1 como botón Alternar(toggle) o Casilla
• - Tipo: Es una nueva Propiedad que toma 4 Valores:
• Gráfico: Solo muestra la imagen asignada en la propiedad imagen
• Botón: Muestra solo la propiedad caption
• Ambos_Col: Muestra el caption y la imagen en forma de columna
• Ambos_Row: Muestra el caption y la imagen en forma de fila
• - Imagen (Similar a la propiedad Picture)

Este Control está construido a partir de las APIs de Windows CreateEllipticRgn y SetWindowRgn que permiten convertir el control a la forma redonda. Para agregarle el efecto de sombra se usó el método gráfico Circle dibujando arcos al borde del control.
 

Haga Clic aquí para descargar el ejemplo: Redondo.zip (75.8 KB)