Visual Basic - Cambiar color del label

Life is soft - evento anual de software empresarial
   
Vista:

Cambiar color del label

Publicado por Juan Rivera (21 intervenciones) el 02/09/2009 19:12:05
Hola a todos, estoy haciendo un cambio de colores en un label. Lo que deseo es que al pasar el mouse sobre un label este se cambie de color a otro color: Por ejemplo tengo un color blanco en el texto de un label y cuando le paso por encima que se cambie a amarillo claro y cuando salga el mouse del label que regrese el color del texto del label a su color original osea el blanco. Lo que me falta es solamente que cuando salga el mouse del label regrese a blanco, y no me sale.

Ayudenme por favor, les agradecere de antemano cualquier tipo de ayuda.
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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- DivXCataloguer
- tip del dia
- Regla de Cramer

RE:Cambiar color del label

Publicado por José (21 intervenciones) el 02/09/2009 19:26:36
Hola Juan, aquí va un ejemplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
Private Sub Form_Load()
    With Label1
        ' -- Estilo transparente
        .BackStyle = 0
        ' -- Ajustar el control al texto
        .AutoSize = True
        ' --  Asignamos un texto para la dirección url
        .Caption = " http://www.google.com "
    End With
End Sub
 
'Cuando se mueva en el formulario el puntero quedara en forma normal el label
Private Sub Form_MouseMove( _
    Button As Integer, _
    Shift As Integer, _
    X As Single, Y As Single)
   With Label1
        If .FontUnderline Then
            ' -- Color de la fuente del Label en negro
            .ForeColor = vbBlack
 
            ' Quitamos el Subrayamos al Label
            .FontUnderline = False
        End If
    End With
End Sub
 
'Cuando se mueva en el label el puntero el label quedara con el formato que le des
Private Sub Label1_MouseMove( _
    Button As Integer, _
    Shift As Integer, _
    X As Single, Y As Single)
   With Label1
        If Not .FontUnderline Then
            ' --  Color Azul como el de los enlaces clásicos
            .ForeColor = QBColor(9)
 
            ' -- Subrayamos el Label
            .FontUnderline = True
        End If
   End With
End Sub
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

RE:Cambiar color del label

Publicado por Juan Rivera (21 intervenciones) el 03/09/2009 17:11:09
Hola Jose, gracias, esta muy bueno el ejemplo.
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

RE:Cambiar color del label

Publicado por Donghage (1 intervención) el 29/11/2012 21:43:13
no entendí nada d lo q dijiste .... yy no m sirvio d mucho ...
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

RE:Cambiar color del label

Publicado por Angel Mol (1 intervención) el 12/05/2016 04:07:11
muchas gracias por la programacion el ejemplo que esta es buenisimo
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