Sección de códigos , trucos y ejemplos para visual basic

52 - Pasar un arreglo de controles como parámetro de una función o procedimiento

Si necesitamos pasar un arreglo de controles como parámetro en una función o Sub, podemos declarar la variable como de tipo Object.

Sub UnaRutina( MatrizDeControl As Object)

En este ejemplo hay creado un arreglo de 3 controles Text1, y la rutina lo que hace es recibir el nombre de la matriz de controles en una variable de tipo Object, en este caso le enviamos un arreglo ya creado llamado Text1.

Luego los recorre en un For y le establece la propiedad por defecto,en este caso sería la propiedada text y le asigna un texto, también podríamos mandar una matriz de CommandButton, Labels, etc..., siempre y cuando sean una matriz y posea la propiedad caption o Text en este caso, es decir que no genere un error de propiedad no válida, como sería el caso por ejemplo de mandar una matriz de PictureBox que obviamente daría un error al asignar una cadena a un control que no admite esta propiedad.

Controles

3 TextBox (Text1(0), Text1(1) y Text1(3))
Un Command1

Código fuente en el formulario:

Option Explicit Private Sub Command1_Click() 'Llamamos a la sub Mostrar y le pasamos _ un control, en este caso un textBox Call Mostrar(Text1) End Sub 'Esta sub recibe como parametro un control _ definido como variablde de tipo Object Private Sub Mostrar(ElControl As Object) Dim i As Integer 'recorremos mediante un Bucle todos _ los elementos de la matriz de controls For i = 0 To ElControl.Count - 1 ' le establecemos algunas propiedades ElControl(i).Text = "Elemento " & i ElControl(i).BackColor = vbBlack ElControl(i).ForeColor = vbWhite Next End Sub Private Sub Form_Load() Command1.Caption = "Aceptar" End Sub

Recursos vb 6.0 - Enlaces relacionados

Crear un arreglo de controles en vb6

Buscar en Recursos vb