Jump to content
solbete

Cambio de color al recibir un enfoque

Recommended Posts

Hola Amigos,

Necesito vuestra ayuda. Tengo un formulario compuesto por Textbox y Combobox. He añadido un procedimiento en el que eligiendo un criterio de búsqueda el cursor se dirige al campo correspondiente (recibe automáticamente el foco) y cambia de color de fondo, de blanco a amarillo (el mismo que tiene el buscador). Si elijo otro diferente, el campo anterior recupera el color original. 

Ahora necesito algo parecido, donde automáticamente  si me sitúo en algún campo (al recibir foco) cambie color de fondo con el mismo color que el buscador(es decir amarillo),  y que al abandonarlo recupere el color original (blanco).

Gracias por vuestra ayuda. 

CambioColorEnfoque.xlsm

Share this post


Link to post
Share on other sites
Private Sub TextBox1_Enter():  CambiaColor TextBox1: End Sub
Private Sub TextBox2_Enter():  CambiaColor TextBox2: End Sub
Private Sub TextBox3_Enter():  CambiaColor TextBox3: End Sub
Private Sub ComboBox1_Enter(): CambiaColor ComboBox1: End Sub

Private Sub CambiaColor(Control As Control)
TextBox1.BackColor = vbWhite
TextBox2.BackColor = vbWhite
TextBox3.BackColor = vbWhite
Control.BackColor = ComboBox1.BackColor
End Sub

 

Edited by Antoni

Share this post


Link to post
Share on other sites

Genial Antoni, muchas gracias.

Solo una cosa, ¿es posible hacer lo mismo para todos los Textbox sin necesidad de repetir Private Sub Textbox1_Enter(), tantos como cuadros de texto existan en la hoja?

Con tu permiso he modificado el modulo, unificando de esta manera. Entiendo que el resultado es el mismo. Funcionar funciona, pero como digo, no se si es posible añadir una única linea "..._Enter()  para todos los textbox que hayan en formulario. O tengo que crearlas tantas como existan.

Private Sub CambiaColor(Control As Control)
For u = 1 To 3
Controls("TextBox" & u).BackColor = vbWhite
Next
Control.BackColor = ColorText.BackColor
End Sub

 

Share this post


Link to post
Share on other sites

Hola, 

¿Es posible hacer lo mismo desde un modulo de clase, como indica Antoni, pero en lugar de clickar en cada campo para q cambie de color, lo haga cuando tabule, es decir cuando el campo reciba el enfoque? No veo en este modulo la opción de... Enter

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png