Click en boton que cambie color del fondo del mismo botonResuelto/Cerrado

Question

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.

Rikijonson · Accepted Answer

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

Rikijonson · Answer

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

Click en boton que cambie color del fondo del mismo boton

2 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!