Tema Anterior Siguiente Tema

Click en boton que cambie color del fondo del mismo boton

Resuelto/Cerrado
Message postés
3
Date d'inscription
viernes, 2 de diciembre de 2016
Estatus
Miembro
Última intervención
lunes, 24 de febrero de 2020
 -
 Newprogramer90020 -
Hola Amigos,
Favor si alguien me puede ayudar con un ejemplo del codigo para el siguiente caso.

Tengo un formulario en visual basic 6.0 donde hay un boton de comando en el cual quiero que al hacer click sobre el mismo boton cambie el color del fondo digamos a rojo, al hacer otro click sobre el mismo boton que cambie el color de fondo digamos a azul, y al dar otro click sobre el mismo boton que cambie el color de fondo digamos a verde, y si vuelvo hacer click que cambie el color orgiginal o por defecto y si vuelvo hacer click que repita los pasos mencionados.

Solo es eso no se necesita que realize otras acciones ni nada que cambie los colores con cada click.

Desde ya agradezo su gentil ayuda espero contar con ello.

Gracias.
Consulta también:

2 respuestas

Respuesta 1 / 2
Message postés
4
Date d'inscription
viernes, 9 de diciembre de 2016
Estatus
Miembro
Última intervención
viernes, 9 de diciembre de 2016
 10
Private num As Integer

Private Sub Command1_Click()
num = num + 1

Select Case num
Case 1
Me.BackColor = vbRed
Case 2
Me.BackColor = vbBlue
Case 3
Me.BackColor = vbGreen
Case Else
num = 0
Me.BackColor = vbWhite
End Select
End Sub

excelente, me ayudo a sacarme de un apuro muchas gracias
Respuesta 2 / 2
Message postés
4
Date d'inscription
viernes, 9 de diciembre de 2016
Estatus
Miembro
Última intervención
viernes, 9 de diciembre de 2016
 10
Perdón, eso era para cambiar el color de fondo del formulario

Si quieres cambiar el color del botón, primero tienes que ponerle estilo Style = 1 (Graphical) en las propiedades y después este código

Private num As Integer

Private Sub Command1_Click()
num = num + 1

Select Case num
Case 1
Me.Command1.BackColor = vbRed
Case 2
Me.Command1.BackColor = vbBlue
Case 3
Me.Command1.BackColor = vbGreen
Case Else
num = 0
Me.Command1.BackColor = vbWhite
End Select
End Sub
Haz una pregunta