Click en boton que cambie color del fondo del mismo boton [Resuelto/Cerrado]

Denunciar
Message postés
3
Date d'inscription
viernes, 2 de diciembre de 2016
Estatus
Miembro
Última intervención
lunes, 24 de febrero de 2020
-
Message postés
4
Date d'inscription
viernes, 9 de diciembre de 2016
Estatus
Miembro
Última intervención
viernes, 9 de diciembre de 2016
-
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.

2 respuestas

Message postés
4
Date d'inscription
viernes, 9 de diciembre de 2016
Estatus
Miembro
Última intervención
viernes, 9 de diciembre de 2016
9
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
7
Gracias

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 57489 usuarios nos han dicho gracias este mes

Message postés
4
Date d'inscription
viernes, 9 de diciembre de 2016
Estatus
Miembro
Última intervención
viernes, 9 de diciembre de 2016
9
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