Cambiar label de color al pasar el ratón y que vuelva a su color original (vba excel)
Tengo un form, con varios labels.
Necesito que al pasar el ratón por encima de cualquier label, este me cambie el color. Y al quitar el ratón vuelva a su color original.
Encontré este código, lo adapte, pero no me funciona
Private Sub lb_archivo_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If lb_archivo.BackColor = vbGreen Then lb_archivo.BackColor = vbBlue Else lb_archivo.BackColor = vbGreen End If End Sub
1 Respuesta
Respuesta de Carlos Arrocha
1
Hay varias formas, pero yo conozco esta. Tienes que poner el label dentro de un marco.
Código para el frame Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) lb_archivo.ForeColor = &H80& ''CAMBIA COLOR DEL BOTÓN End Sub 'Código para el label Private Sub lb_archivo_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) lb_archivo.ForeColor = &HFFFFFF ''CAMBIA COLOR DEL BOTÓN End Sub
Aquí el resultado
Salu2
