Click en boton que cambie color del fondo del mismo boton
Resuelto/Cerrado
cbulejes
Mensajes enviados
3
Fecha de inscripción
viernes, 2 de diciembre de 2016
Estatus
Miembro
Última intervención
lunes, 24 de febrero de 2020
-
2 dic 2016 a las 17:29
Newprogramer90020 - 18 feb 2021 a las 16:18
Newprogramer90020 - 18 feb 2021 a las 16:18
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.
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:
- Visual studio cambiar color fondo
- Cambiar color de ojos online - Guide
- Fl studio 21 download - Programas - Producción musical
- Cambiar color twitter - Guide
- Cambiar color celda excel si se cumple condición - Guide
- Como cambiar el fondo de google - Guide
2 respuestas
Rikijonson
Mensajes enviados
4
Fecha de inscripción
viernes, 9 de diciembre de 2016
Estatus
Miembro
Última intervención
viernes, 9 de diciembre de 2016
12
9 dic 2016 a las 11:09
9 dic 2016 a las 11:09
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
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
18 feb 2021 a las 16:18