Jump to content
Alfonso5597

Cambiar color del textbox

Recommended Posts

Hola, como estan, saludos a todos 

Espero me puedan colaborar con este problema, yo no le encuentro solucion, tengo unos text que los quiero cambiar de color, con este codigo no me deja

If TextBox22.Text = "Libre" Then
TextBox22.BackColor = &HFFFF&
End If
If TextBox22.Text = "Ocupada" Then
TextBox22.BackColor = &HFF&
End If
If TextBox22.Text = "Reservada" Then
TextBox22.BackColor = &HFF00&
End If
TextBox22.BackStyle = 1

Siempre se queda el ultimo color, y tengo otro problema, para cada text le tendria que añadir los codigos, y mi pregunta es ¿ Hay alguna forma de que se cambien todos los text de color al cambiar el texto de los mismos desde un combobox ?

Muchas gracias por su inestimable ayuda

Saludos cordiales

Share this post


Link to post
Share on other sites

Hola amigo Antoni, ya tengo el trabajo casi acabado, te explico, en la opcion planing estoy intentando que al rellenar los text lo hagan de color, segun su estado, libre, ocupada o reservada, pero no lo consigo, te agradezco que me eches una mano, el programa esta sin contraseña

Saludos cordiales

Prueba

Share this post


Link to post
Share on other sites
En 16/2/2019 at 7:29 , Alfonso5597 dijo:

Hola, como estan, saludos a todos 

Espero me puedan colaborar con este problema, yo no le encuentro solucion, tengo unos text que los quiero cambiar de color, con este codigo no me deja

If TextBox22.Text = "Libre" Then
TextBox22.BackColor = &HFFFF&
End If
If TextBox22.Text = "Ocupada" Then
TextBox22.BackColor = &HFF&
End If
If TextBox22.Text = "Reservada" Then
TextBox22.BackColor = &HFF00&
End If
TextBox22.BackStyle = 1

Siempre se queda el ultimo color, y tengo otro problema, para cada text le tendria que añadir los codigos, y mi pregunta es ¿ Hay alguna forma de que se cambien todos los text de color al cambiar el texto de los mismos desde un combobox ?

Muchas gracias por su inestimable ayuda

Saludos cordiales

hola

 

esta bien tu codigo, solo quita los end if

 

SALUDOS!

 

Share this post


Link to post
Share on other sites
En 16/2/2019 at 7:29 , Alfonso5597 dijo:

Hola, como estan, saludos a todos 

Espero me puedan colaborar con este problema, yo no le encuentro solucion, tengo unos text que los quiero cambiar de color, con este codigo no me deja

If TextBox22.Text = "Libre" Then
TextBox22.BackColor = &HFFFF&
End If
If TextBox22.Text = "Ocupada" Then
TextBox22.BackColor = &HFF&
End If
If TextBox22.Text = "Reservada" Then
TextBox22.BackColor = &HFF00&
End If
TextBox22.BackStyle = 1

Siempre se queda el ultimo color, y tengo otro problema, para cada text le tendria que añadir los codigos, y mi pregunta es ¿ Hay alguna forma de que se cambien todos los text de color al cambiar el texto de los mismos desde un combobox ?

Muchas gracias por su inestimable ayuda

Saludos cordiales

A simple vista, es mejor que utilices un combobox, con el solo escoges la opción [con el evento click por ejemplo], y el color de fondo cambiara

Algo así

With TextBox22
    .BackStyle = 1
    If .Text = "Libre" Then .BackColor = &HFFFF&
    If .Text = "Ocupada" Then .BackColor = &HFF&
    If .Text = "Reservada" Then .BackColor = &HFF00&
End With

Como buena practica, nombra cada objeto, en este caso, puedes poner como nombre: "Estado" al textbox22

 

Saludos 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5