color a una fila de una lista

Mira este truquito para hacer eso ...

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)
ENDCASE

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Esteban P." escribió en el mensaje
news:

Alguien podría decirme como puedo hacer para ponerle un color de fondo a
una sola fila de un cuadro de lista?

De antemano muchas gracias


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway