Visual Basic - Cambiar el Label de color al pasar el mouse

Life is soft - evento anual de software empresarial
 
Vista:

Cambiar el Label de color al pasar el mouse

Publicado por eligo alvarez (1 intervención) el 26/08/2018 15:16:23
'Estos códigos funcionan solo sobre un UserForm CON EL EVENTO MouseMove, lo copian ahi con los label y los botones con que están hecho, lo Prueban y modifican a su gusto.... QUIERO HACER LO MISMO PERO SOBRE FORMAS SOBRE LA HOJA EXCEL


1
2
3
4
5
6
7
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    'Cambia el color del botón a AZUL
 
    CommandButton1.BackColor = &HFF7F50
 
End Sub


1
2
3
4
5
6
7
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
   'Cambia el color del botón a VERDE
 
    CommandButton2.BackColor = &H80FF80
 
End Sub


1
2
3
4
5
6
7
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
     'Cambia el color del Label AZUL
 
     Label1.BackColor = &HFF7F50
 
End Sub


1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
     'Cambia el color de los botones a gris
 
      CommandButton1.BackColor = &H8000000F
 
      CommandButton2.BackColor = &H8000000F
 
      Label1.BackColor = &H8000000F
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.093
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Cambiar el Label de color al pasar el mouse

Publicado por Antoni Masana (395 intervenciones) el 27/08/2018 11:19:02
Que yo sepa no existe la posibilidad de hacer lo que deseas.

Los objetos de una hoja Excel son muy básicos y no tienen eventos.

A lo más que puedes llegar es a destacar la celda activa.

1
2
3
4
5
6
7
8
9
10
11
Private Celda_Ant As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Len(Celda_Ant) > 0 Then
       Range(Celda_Ant).Cells.Interior.ColorIndex = 0
       Range(Celda_Ant).Interior.ColorIndex = 0
    End If
    Target.Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 6
    Celda_Ant = Target.Address
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Antoni Masana
Val: 1.093
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Cambiar el Label de color al pasar el mouse

Publicado por Antoni Masana (395 intervenciones) el 29/08/2018 11:59:29
En mi respuesta anterior hay un error de concepto

En tu planteamiento hablas de 2 botones y un Label.

Si te vas a la pestaña programador y en Controles el incon Insertar hay dos grupo de controles.

Si usas los Controles de Formulario mi respuesta anterior es valida.

Si usas los Controles ActiveX Tienes más posibilidades de hacer lo que deseas pero no igual que en un formulario, tiene ciertos limites.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar