Colores asignados a valores
Publicado por JOSUE (20 intervenciones) el 16/02/2009 13:39:54
Buenos dias;
Cabe la posibilidad de asignar un color determinado (ej rojo, naranja, verde) al valor numerico de un campo en función de dicho valor? (ej; entre 0-15= rojo, 15-25=verde....
A esta respuesta me contetaron lo siguiente:
'-------asignando colores-----
Dim sngValue as Single
Dim lngColor, lngRed, lngGreen, lngBlue as Long
sngValue= Me.txtCampo1
lngRed = RGB(255, 0, 0)
lngGreen = RGB(0,255,0)
lngBlue = RGB(0,0,255)
Select Case sngValue
Case 0 To 14.99
lngColor = lngRed 'rojo
Case 15 To 25
lngColor = lngGreen 'verde
Case Else
lngColor = lngBlue 'azul
End Select
Me.txtCampo1.Forecolor = lngColor
'-----------------------------------------------
esto es sólo un ejemplo, que probablemente se podria hacer mejor
agregalo a un procedimiento en el evento actualizar del formulario
si quieres otros colores, cambia los valores de la funcion RGB. los valores para cada color se encuentran apretando F1
Esto lo hice y la verdad es que me funciono, pero cuando me movia en los diferentes registros de mi formulario el color no se actualizaba en función del valor del campo, es decir si el valor X era rojo y pasaba al siguiente registro, el cual tenia un valor Y (verde) este permanecia rojo. Como puedo hacer para que se actualice el color automaticamente?
Muxas gracias
Cabe la posibilidad de asignar un color determinado (ej rojo, naranja, verde) al valor numerico de un campo en función de dicho valor? (ej; entre 0-15= rojo, 15-25=verde....
A esta respuesta me contetaron lo siguiente:
'-------asignando colores-----
Dim sngValue as Single
Dim lngColor, lngRed, lngGreen, lngBlue as Long
sngValue= Me.txtCampo1
lngRed = RGB(255, 0, 0)
lngGreen = RGB(0,255,0)
lngBlue = RGB(0,0,255)
Select Case sngValue
Case 0 To 14.99
lngColor = lngRed 'rojo
Case 15 To 25
lngColor = lngGreen 'verde
Case Else
lngColor = lngBlue 'azul
End Select
Me.txtCampo1.Forecolor = lngColor
'-----------------------------------------------
esto es sólo un ejemplo, que probablemente se podria hacer mejor
agregalo a un procedimiento en el evento actualizar del formulario
si quieres otros colores, cambia los valores de la funcion RGB. los valores para cada color se encuentran apretando F1
Esto lo hice y la verdad es que me funciono, pero cuando me movia en los diferentes registros de mi formulario el color no se actualizaba en función del valor del campo, es decir si el valor X era rojo y pasaba al siguiente registro, el cual tenia un valor Y (verde) este permanecia rojo. Como puedo hacer para que se actualice el color automaticamente?
Muxas gracias
Valora esta pregunta


0