VB: Cambiar los colores de botones dando click
Publicado por Diego (1 intervención) el 18/02/2021 22:10:03
hola quisiera pedir ayuda en una parte de un programa en la cual estoy atorado, se trata de que tengo que crear una calculadora de resistencias y en el programa para cambiar el color de la banda es necesario dar click en el botón que simula la banda.
mi duda es que lo intente con select case pero al momento de pasar a la otra banda el color que puse en la primera banda lo toma la segunda cuando es clickeada
Aqui el codigo:
mi duda es que lo intente con select case pero al momento de pasar a la otra banda el color que puse en la primera banda lo toma la segunda cuando es clickeada
Aqui el codigo:
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
Private num As Integer
Private valor2 As Integer
Private Sub BTNBanda1_Click(sender As Object, e As EventArgs) Handles BTNBanda1.Click
num = num + 1
Select Case num
Case 1
BTNBanda1.BackColor = Color.Black
Case 2
BTNBanda1.BackColor = Color.Brown
Case 3
BTNBanda1.BackColor = Color.Red
Case 4
BTNBanda1.BackColor = Color.Orange
Case 5
BTNBanda1.BackColor = Color.Yellow
Case 6
BTNBanda1.BackColor = Color.Green
Case 7
BTNBanda1.BackColor = Color.Blue
Case 8
BTNBanda1.BackColor = Color.Violet
Case 9
BTNBanda1.BackColor = Color.Gray
Case 10
BTNBanda1.BackColor = Color.White
End Select
End Sub
Private Sub BTNBanda2_Click(sender As Object, e As EventArgs) Handles BTNBanda2.Click
valor2 = valor2 + 1
Select Case num
Case 1
BTNBanda2.BackColor = Color.Black
Case 2
BTNBanda2.BackColor = Color.Brown
Case 3
BTNBanda2.BackColor = Color.Red
Case 4
BTNBanda2.BackColor = Color.Orange
Case 5
BTNBanda2.BackColor = Color.Yellow
Case 6
BTNBanda2.BackColor = Color.Green
Case 7
BTNBanda2.BackColor = Color.Blue
Case 8
BTNBanda2.BackColor = Color.Violet
Case 9
BTNBanda2.BackColor = Color.Gray
Case 10
BTNBanda2.BackColor = Color.White
Case Else
BTNBanda2.BackColor = Color.Beige
Return
End Select
End Sub
Valora esta pregunta
0