ayuda para que el SetFocus cambie de color.

Hola V.M.G.,

imaginemos que tienes un control de cuadro de texto, le llamaremos txtPrueba
y con su etiqueta asociada, lblPrueba.

Precisamente tienes un evento que se llama "Al recibir el enfoque", pues en
este evento pones,

me.lblPrueba.forecolor%5 'Color rojo

y en el evento "Al perder el enfoque", pues

me.lblPrueba.forecolor = 0 'Color negro.

Otra idea más sencilla para un control de cuadro de texto,
al control txtPrueba le pones un color de fondo, por ejemplo blanco, luego
se lo cambias a transparente, observaras que al entrar en dicho control el
fondo se pone blanco y al salir vuelve a tener el color del fondo del
formulario.

Una más que utilice un color común para los controles,

Private Sub txtPrueba00_GotFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, False)
End Sub

Private Sub txtPrueba00_LostFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, True)
End Sub

Private Sub txtPrueba01_GotFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, False)
End Sub

Private Sub txtPrueba01_LostFocus()
Call cbfCambiarColor(Screen.ActiveControl.EventProcPrefix, True)
End Sub

Private Sub cbfCambiarColor(ByVal strNombreControl As String, Optional ByVal
blnRestaurar As Boolean = True)
Me("lbl" & Mid(strNombreControl, 4, Len(strNombreControl))).ForeColor IIf(blnRestaurar, 0, 255)
End Sub


Suerte.




Filosofía compartida: "regalamos conocimientos, no tiempo."

Un Saludo,

Rafael Andrada C.
Valencia (es)

[MS MVP - Access]

www.mcpegasus.com

"V.M.G." escribió en el mensaje
news:048f01c3963a$61bcf970$
Hola de nuevo, necesito ayuda para que un campo o control
cualquiera de mi formulario, campos, cuadro combinado,
etc, en el evento al recibir el enfoque que cambien de
color o bien que parpadeé para conseguir fijar mas la
atencion donde se encuetre el Setfocus en cada momento.

muchas gracias. un saludo