3.5.1. Agrupando botones de opción

Arreglo de Controles

Cuando creamos un arreglo de controles, todos los controles que forman el arreglo deben tener el mismo nombre (Propiedad Name), la propiedad Index establece el índice de cada control en el arreglo, esta propiedad comienza desde 0.

Un arreglo de controles es un grupo de controles que comparten el mismo:

§ Tipo de objeto

§ Nombre del control

§ Procedimientos de evento

Código más fácil de escribir y mantener

Los arreglos de controles hace que el código sea más fácil de escribir y mantener debido a que solo escribe un solo procedimiento de evento para todos los controles pertenecientes al arreglo, el parámetro Index del procedimiento de evento determina desde que control ocurrió el evento.

Código más eficiente

Los arreglos de controles hacen que el código sea más eficiente y mejoran el rendimiento de la aplicación debido a que usa menos recursos del sistema que los controles individuales.

¿Cómo se crea un arreglo de controles?

Luego de crear y establecer el nombre del primer control, tiene dos alternativas:

Método 1

1. Copiar el primer control al portapapeles.

2. Luego pegar el control de portapapeles en el formulario. Visual Basic le preguntará si desea crear un arreglo de controles.

3. Repita el paso 2 hasta completar el arreglo.

Método 2

1. Dibuje el siguiente control y establezca su nombre igual al del primer control. Visual Basic le preguntará si desea crear un arreglo de controles.

2. Repita el paso 1 hasta completar el arreglo.

Ejemplo

La interfaz mostrada tiene un arreglo de controles para seleccionar el reporte, el procedimiento de evento es el mismo para cualquier elemento del arreglo.

El código para el evento clic es:

Private Sub optReporte_Click(Index As Integer)

Select Case Index

Case 0, 1

fraRango.Enabled = False

lblDesde.Enabled = False

lblHasta.Enabled = False

txtDesde.Enabled = False

txtHasta.Enabled = False

Case 2

fraRango.Enabled = True

lblDesde.Enabled = True

lblHasta.Enabled = True

txtDesde.Enabled = True

txtHasta.Enabled = True

txtDesde.SetFocus

End Select

End Sub