Como cambio el color de un botón cuando me muevo con la tecla TAB
Necesito cambiar el color de los botones cuando esté sobre ellos. Y cuando vaya cambiando con la tecla TAB me vaya cambiando el color del botón seleccionado.
Seria como el MouseMove pero con la tecla tab
2 respuestas
Debes colocar 2 subrutinas para cada botón, Enter para darle color y Exit para volverlo a su color original.
Este código sirve para cualquier tipo de control como se observa en la imagen:
Private Sub TextBox1_Enter() TextBox1.BackColor = &HFFFF80 End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.BackColor = &H8000000F End Sub Private Sub ComboBox1_Enter() ComboBox1.BackColor = &HFFFF80 End Sub Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ComboBox1.BackColor = &H8000000F End Sub Private Sub CommandButton2_Enter() CommandButton2.BackColor = &HFFFF80 End Sub Private Sub CommandButton2_Exit(ByVal Cancel As MSForms.ReturnBoolean) CommandButton2.BackColor = &H8000000F End Sub
En el mismo evento <Enter> puedes poner que cambie los colores de los otros. Una cosa así:
Private Sub CommandButton1_Enter()
CommandButton1.BackColor = &H8FF
CommandButton3.BackColor = &H8000000F
CommandButton4.BackColor = &H8000000F
CommandButton2.BackColor = &H8000000F
End Sub
Private Sub CommandButton2_Enter()
CommandButton2.BackColor = &H8FF
CommandButton3.BackColor = &H8000000F
CommandButton4.BackColor = &H8000000F
CommandButton1.BackColor = &H8000000F
End Sub
Private Sub CommandButton3_Enter()
CommandButton3.BackColor = &H8FF
CommandButton4.BackColor = &H8000000F
CommandButton1.BackColor = &H8000000F
CommandButton2.BackColor = &H8000000F
End Sub
Private Sub CommandButton4_Enter()
CommandButton4.BackColor = &H8FF
CommandButton3.BackColor = &H8000000F
CommandButton1.BackColor = &H8000000F
CommandButton2.BackColor = &H8000000F
End Sub