Crear array de controles?

[Fernando_net]

Hola a todos.

Vereis, tengo un problema a la hora de optimizar codigo.

Resulta que tengo un form con 28 labels y todos quiero que se pongan a 0 cuando cambio de valor en un combobox, hasta aquí bien. El combobox funciona bien y tal.

Pero fijaros en el codigo:

Código VB .NET:

Private Sub inicializa() Handles cmb_unitat.SelectedIndexChanged
     lbl_pregunta_1_1.Text = 0
     lbl_pregunta_1_2.Text = 0
     lbl_pregunta_2_1.Text = 0
     lbl_pregunta_2_2.Text = 0
     lbl_pregunta_2_3.Text = 0
     lbl_pregunta_3_1.Text = 0
     lbl_pregunta_3_2.Text = 0
     lbl_pregunta_3_3.Text = 0
     lbl_pregunta_4.Text = 0
     lbl_pregunta_5.Text = 0
     lbl_pregunta_6.Text = 0
     lbl_pregunta_7.Text = 0
     lbl_pregunta_8.Text = 0
     lbl_pregunta_9.Text = 0
 
     lbl_total_pregunta_1_1.Text = 0
     lbl_total_pregunta_1_2.Text = 0
     lbl_total_pregunta_2_1.Text = 0
     lbl_total_pregunta_2_2.Text = 0
     lbl_total_pregunta_2_3.Text = 0
     lbl_total_pregunta_3_1.Text = 0
     lbl_total_pregunta_3_2.Text = 0
     lbl_total_pregunta_3_3.Text = 0
     lbl_total_pregunta_4.Text = 0
     lbl_total_pregunta_5.Text = 0
     lbl_total_pregunta_6.Text = 0
     lbl_total_pregunta_7.Text = 0
     lbl_total_pregunta_8.Text = 0
     lbl_total_pregunta_9.Text = 0
End Sub
 

Aquí bien, porqué tengo 28 labels, pero si en otra aplicación tengo 100 labels que, 100 lineas de codigo?

Como se podría hacer un bucle de esto? He probado de hacer un for each pero no me lo hace, algo debo de hacer mal :(

Me podríais ayudar?

Muchas gracias!

[Aquaventus]

Hola Fernando_net los seteas de esta manera :

Código vb:

'Creas este sub
Private Sub Limpiar_Textbox_Label(ByVal f As Form)
' recorrer todos los controles del formulario indicado 
For Each c As Control In f.Controls
'Si el tipo de control es textbox entonces...
If TypeOf c Is TextBox Then
c.Text = "0" ' Cambio el valor a 0
End If
'Si el tipo de control es Label entonces...
If TypeOf c Is Label Then
c.Text = "0" ' Cambio el valor a 0
End If
Next
End Sub
 
'Y luego en la accion SelectedIndexChanged de tu combo llamas al sub de esta manera
Limpiar_Textbox_Label(Me)
 

Espero haberte ayudado. Saludos!

[Fernando_net]

Iniciado por Aquaventus

Hola Fernando_net los seteas de esta manera :

Código vb:

'Creas este sub
Private Sub Limpiar_Textbox_Label(ByVal f As Form)
' recorrer todos los controles del formulario indicado 
For Each c As Control In f.Controls
'Si el tipo de control es textbox entonces...
If TypeOf c Is TextBox Then
c.Text = "0" ' Cambio el valor a 0
End If
'Si el tipo de control es Label entonces...
If TypeOf c Is Label Then
c.Text = "0" ' Cambio el valor a 0
End If
Next
End Sub
 
'Y luego en la accion SelectedIndexChanged de tu combo llamas al sub de esta manera
Limpiar_Textbox_Label(Me)
 

Espero haberte ayudado. Saludos!

Perfecto Aquaventus!

Muchisimas gracias