Visual Basic - MACRO PARA CAMBIAR EL COLOR DE UNA LABEL AL HACER CLICK

Life is soft - evento anual de software empresarial
 
Vista:

MACRO PARA CAMBIAR EL COLOR DE UNA LABEL AL HACER CLICK

Publicado por Pablo Ramirez (1 intervención) el 01/04/2020 19:40:42
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Private Sub Label1_Click()
MultiPage1.Value = 0 'nos pasa a la 1 pestaña
Label1.ForeColor = vbBlue
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
 
Private Sub Label10_Click()
MultiPage1.Value = 8 'nos pasa a la 9 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlue
End Sub
 
Private Sub Label2_Click()
MultiPage1.Value = 1 'nos pasa a la 2 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlue
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
 
Private Sub Label3_Click()
MultiPage1.Value = 2 'nos pasa a la 3 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlue
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
 
Private Sub Label4_Click()
MultiPage1.Value = 3 'nos pasa a la 4 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlue
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
 
Private Sub Label6_Click()
MultiPage1.Value = 4 'nos pasa a la 5 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlue
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
 
Private Sub Label7_Click()
MultiPage1.Value = 5 'nos pasa a la 6 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlue
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
 
Private Sub Label8_Click()
MultiPage1.Value = 6 'nos pasa a la 7 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlue
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
 
Private Sub Label9_Click()
MultiPage1.Value = 7 'nos pasa a la 8 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlue
Label10.ForeColor = vbBlack
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 gilman
Val: 516
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

MACRO PARA CAMBIAR EL COLOR DE UNA LABEL AL HACER CLICK

Publicado por gilman (281 intervenciones) el 02/04/2020 09:18:20
El código es ese, y, ¿la pregunta?
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
Imágen de perfil de Andres Leonardo
Val: 4.028
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

MACRO PARA CAMBIAR EL COLOR DE UNA LABEL AL HACER CLICK

Publicado por Andres Leonardo (1666 intervenciones) el 02/04/2020 16:08:57
Estructurando un poco con un procedimiento podrías hacer esto y reduces unas cuantas decenas de lineas de codigo.
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
Imágen de perfil de gilman
Val: 516
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

MACRO PARA CAMBIAR EL COLOR DE UNA LABEL AL HACER CLICK

Publicado por gilman (281 intervenciones) el 02/04/2020 17:36:53
Estoy contigo, el código se podría mejorar, pero, ¿que quiere hacer?, ¿hace el código lo que el quiere?.
Hay que ser adivino, publica un código, y no sabems si fucnciona como él quiere, que quiere hacer, nada de nada
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
Imágen de perfil de Andres Leonardo
Val: 4.028
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

MACRO PARA CAMBIAR EL COLOR DE UNA LABEL AL HACER CLICK

Publicado por Andres Leonardo (1666 intervenciones) el 02/04/2020 23:29:34
estoy de acuerd!!
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