Visual Basic.NET - Ayuda Como hacer un arreglo para cambiar color en botones???

   
Vista:
Imágen de perfil de JORGE

Ayuda Como hacer un arreglo para cambiar color en botones???

Publicado por JORGE (5 intervenciones) el 30/08/2015 01:52:48
Este es mi codigo, pero me gustaria hacer un cliclo con un arreglo para no tener que escribir el codigo asi de largo:



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
Private Sub CambiarColorBotones()
        Button1.BackColor = Color.Green
        Button2.BackColor = Color.Green
        Button3.BackColor = Color.Green
        Button4.BackColor = Color.Green
        Button5.BackColor = Color.Green
        Button6.BackColor = Color.Green
        Button7.BackColor = Color.Green
        Button8.BackColor = Color.Green
        Button9.BackColor = Color.Green
        Button10.BackColor = Color.Green
        Button11.BackColor = Color.Green
        Button12.BackColor = Color.Green
        Button13.BackColor = Color.Green
        Button14.BackColor = Color.Green
        Button15.BackColor = Color.Green
        Button16.BackColor = Color.Green
        Button17.BackColor = Color.Green
        Button18.BackColor = Color.Green
        Button19.BackColor = Color.Green
        Button20.BackColor = Color.Green
        Button21.BackColor = Color.Green
        Button22.BackColor = Color.Green
        Button23.BackColor = Color.Green
        Button24.BackColor = Color.Green
        Button25.BackColor = Color.Green
        Button26.BackColor = Color.Green
        Button27.BackColor = Color.Green
        Button28.BackColor = Color.Green
        Button29.BackColor = Color.Green
        Button30.BackColor = Color.Green
        Button31.BackColor = Color.Green
        Button32.BackColor = Color.Green
        Button33.BackColor = Color.Green
        Button34.BackColor = Color.Green
        Button35.BackColor = Color.Green
        Button36.BackColor = Color.Green
        Button37.BackColor = Color.Green
        Button38.BackColor = Color.Green
        Button39.BackColor = Color.Green
        Button40.BackColor = Color.Green
    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

Ayuda Como hacer un arreglo para cambiar color en botones???

Publicado por Miguel (346 intervenciones) el 30/08/2015 02:08:09
Hola,
Puedes usar ésto, aunque si tienes otros controles del mismo tipo en el contenedor es posible que no funcione correctamente...

1
2
3
For Each btn In TuContenedor.Controls.OfType(Of Button)()
             btn.BackColor= Color.Green
Next


Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de JORGE

Ayuda Como hacer un arreglo para cambiar color en botones???

Publicado por JORGE (5 intervenciones) el 30/08/2015 03:45:54
Buen aporte Miguel si funciona muy bien.
Pero como puedo hacer para recorrer los botones uno a uno con el ciclo, en mi caso del Button1 al Buttton40 utilizando algo asi???? :

For i=1 to 40
Button(i).BackColor= Color.Green
Next
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

Ayuda Como hacer un arreglo para cambiar color en botones???

Publicado por Miguel (346 intervenciones) el 30/08/2015 18:17:42
Hola, para eso tendrías que hacer una matriz de Button's, así:

1
2
3
4
Dim Botones() As Button = {Button1, Button2, Button3, Button4, Button5}
For i = 0 To 4
    Botones(i).BackColor = Color.Green
Next


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 JORGE

Ayuda Como hacer un arreglo para cambiar color en botones???

Publicado por JORGE (5 intervenciones) el 30/08/2015 18:27:07
Gracias una vez mas Miguel me has ayudado muchísimo.

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