Muchas veces deseamos darle un presentación atractiva a nuestras aplicaciones o queremos resaltar algunos aspectos importantes de los objetos, manipulando adecuadamente las propiedades de estos.
En verdad algunos efectos especiales como el que mostrare cambian la dinámica de los objetos y contribuyen a darle más vistosidad.
En este ejemplo haré que un Combo Box muestre sus valores en distintos colores de letra. Así como lo muestra la siguiente figura:
Para esto en el evento Init del Combo Box colocamos el siguiente código:
#DEFINE BarraRoja ,RGB(150,0,0)
#DEFINE BarraVerde ,RGB(0,150,0)
#DEFINE BarraAzul ,RGB(0,0,255)
#DEFINE BarraAmarillo ,RGB(255,255,0)
DEFINE POPUP Colores
DEFINE BAR 1 of Colores ;
Prompt "Rojo" COLOR BarraRoja
DEFINE BAR 2 of Colores ;
Prompt "Verde" COLOR BarraVerde
DEFINE BAR 3 of Colores ;
Prompt "Azul" COLOR BarraAzul
DEFINE BAR 4 of Colores ;
Prompt "Amarillo" COLOR BarraAmarillo
Cambie las siguientes propiedades de Combo Box
RowSourceType = 9 - Emergente
RowSource = Colores
Y en el evento InteractiveChange del Combo agregué el siguiente código:
DO CASE CASE This.Value = "Red" This.Forecolor = RGB(150,0,0) CASE This.Value = "Green" This.Forecolor = RGB(0,150,0) CASE This.Value = "Blue" This.Forecolor = RGB(0,0,255) CASE This.Value = "Yellow" This.Forecolor = RGB(255,255,0) ENDCASEEspero las allá gustado este ejemplo
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com