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

196 - ParamArray

Esta sección contiene ejemplos de la función ParamArray de Visual basic

Definición: La función ParamArray especifica que el parámetro de una sub o función, va a recibir una matriz de tipo opcional de elementos indeterminados. Esta función solo se puede utilizar en el último lugar de la lista de parámetros de la función o el procedimiento, y el mismo debe ser de tipo Variant

Los valores a pasar en ParamArray, deben estar separados por comas al llamar a la función o procedimiento

En el siguiente ejemplo, se crea un procedimiento llamado Cargar_Combo, que tiene como primer parámetro un control ComboBox, y el segundo un ParamArray con los valores a cargar en el ComboBox:

Sub Cargar_Combo( _ El_Combo As ComboBox, _ ParamArray Elementos() As Variant) Dim Obj As Variant For Each Obj In Elementos Combo1.AddItem Obj Next End Sub Private Sub Command1_Click() Call Cargar_Combo(Combo1, "Enero", "Marzo", "Abril", "Mayo") End Sub

Este otro ejemplo es similar al anterior, pero se envía como lista de parámetros al ParamArray, 4 controles, y dentro del procedimiento se ocultan o se hacen visibles mediante la propiedad Visible

Sub Ocultar_visualizar(ParamArray Controles() As Variant) Dim El_Control As Variant For Each El_Control In Controles El_Control.Visible = Not El_Control.Visible Next End Sub Private Sub Command2_Click() Call Ocultar_visualizar(Text1, Command1, Combo1, List1) End Sub

En el ejemplo anterior, si pruebas a llamar al procedimiento Ocultar_visualizar, y no le envías ningún parámetro, no ocurrirá ningún error, ya que el ParamArray es opcional.

Call Ocultar_visualizar

Importante: el ParamArray, como se comentó arriba, debe estar declarada al final de la lista de argumentos del procedimiento o función, por ejemplo esto no se puede hacer:

Sub Rutina (ParamArray Controles() As Variant, Combo1 as ComboBox )

Otra cosa importante es que el ParamArray en la declaración del procedimiento, debe estar declarada como de tipo Variant.

Sub Rutina(ParamArray ListaVariables() As Variant) Dim La_Variable As Variant 'Recorre el Array ListaVariables For Each La_Variable In ListaVariables 'Muestra el tipo de dato MsgBox TypeName(La_Variable) 'Muestra el valor de la misma MsgBox La_Variable Next End Sub Private Sub Command2_Click() 'Variables Dim A As String Dim i As Byte Dim UntextBox As TextBox 'Asigna con algún valor las variables A = "Hola" i = 159 Set UntextBox = Text1 'Envía la lista de parámetros, es decir las variables Call Rutina(A, i, UntextBox) End Sub

Este otro ejemplo , contiene una función llamada calcular_Maximo, que recibe una lista de números, y calcula cual es el valor máximo:

Option Explicit ' función que utiliza ParamArray Private Function Calcular_Maximo(ParamArray Los_Valores() As Variant) As Variant Dim i As Integer, Maximo As Variant 'Recorre el array For i = LBound(Los_Valores) + 1 To UBound(Los_Valores) If Maximo < Los_Valores(i) Then Maximo = Los_Valores(i) End If Next Calcular_Maximo = Maximo End Function Private Sub Command1_Click() 'Le envía la lista de parámetros MsgBox Calcular_Maximo(165, 654, 6897, 265, 6598, 999999), vbInformation End Sub

Buscar en Recursos vb