Visual Basic - Como pongo Fore o BackColor aun Combo????

Life is soft - evento anual de software empresarial
 
Vista:

Como pongo Fore o BackColor aun Combo????

Publicado por Ernesto (37 intervenciones) el 28/01/2002 17:33:57
Quiero ponerle Color al Resultado de un Combo y no se como.
Por ejemplo:
Si despliego 5 dias de la semana al Lunes un verde, al Martes azul, al Miercoles blanco al jueves rojo y asi sucesivamente
Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como pongo Fore o BackColor aun Combo????

Publicado por Harold Valdivia (104 intervenciones) el 30/01/2002 02:43:00
Espero que pueda ayudarte esto
copialo en un form nuevo para que veas como funciona

Private Sub Combo1_Click()
'Como el numero hexadecimal de los colores
'por mi parte me tomo el trabajito de cambiar
'los colores de un form por ejemplo y copio
'el numero hexadecimal y luego lo pego al valor
'del backcolor o forecolor
Select Case Combo1.List(Combo1.ListIndex)
Case " "
Combo1.BackColor = vbWhite 'o tambien &HFFFFFF 'blanco
Case "Lunes"
Combo1.BackColor = vbGreen 'o tambien &H80000001 'verde
Case "Martes"
Combo1.BackColor = vbBlue 'o tambien &H8000000D ' azul
Case "Miercoles"
Combo1.BackColor = vbWhite 'o tambien &HFFFFFF 'blanco
Case "Jueves"
Combo1.BackColor = vbRed 'o tambien &HFF& 'rojo
Case "Viernes"
Combo1.BackColor = vbYellow 'o tambien &HFFFF& 'amarillo
Case "Sabado"
Combo1.BackColor = vbCyan 'o tambien &HFF00FF 'fuxia
Case "Domingo"
Combo1.BackColor = vbgray 'o tambien &HC0C0C0 'plomo
Case Else
Combo1.BackColor = &HFFFFFF 'ojo lo puedo poner asi 16777215 en numero decimal y tambien funciona
End Select
End Sub

Private Sub Form_Load()
With Combo1
.AddItem " "
.AddItem "Lunes"
.AddItem "Martes"
.AddItem "Miercoles"
.AddItem "Jueves"
.AddItem "Viernes"
.AddItem "Sa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar