Hola tengo las siguientes definiciones

Public arreglo1() as new Clase1
public arreglo2() as new Clase2

lo que quiero hacer es una funcion donde no importa cual de los arreglos envie, estos igual sean recorridos dentro de la funcion algo asi como:

Private Sub sindescarte(Byval arreglo As Collection)
Dim element As Variant
For Each element In arreglo
If element Is Nothing Then
Else

cmbforma.AddItem element.strnombre

End If

Next
End Sub


Ambos elementos de los arreglos tienen la propiedad strnombre, pero en el envio de parametros Collection es incorrecto, alguien me puede decir que debo poner en su lugar. Gracias, espero haberme explicado

Tienes que diferenciar lo que es una coleccion de un array ya que no son la misma cosa, el primero es un objeto y el otro no. Tienes que definir el parametro de la siguiente forma para que te admita cualquier tipo de array de objetos, como seria una clase, como parametro:

Código:

Private Sub sindescarte(Byval arreglo() As Object)

Y lo mismo sucede, no puedes un For Each con arrays, a no ser que sean de tipo Variant y un Variant no puede recoger objetos. Tendras que recorrer el array mediante un indice:

Código:

Dim i As Long
For i = Lbound(arreglo) To Ubound(arreglo)
 arreglo(i) = ...
Next i

Salu2...

Disculpa Ex3, pero la respuesta que me diste me genera error, en primera porque no podemos enviar como parametro un arreglo Byval, debe ser ByRef, y aun cuando le cambio esto, me dice que se esperaba una matriz o un tipo definido por el usuario.

Espero que alguien me pueda decir cual es el error.

Lo del ByVal es por utilizar tu codigo para la rectificacion, solo modifique el tipo de dato del parametro. Sobre el error de paso del array, el tipo Object como comento arriba, puede hacer referencia a cualquier tipo de dato objeto como es una clase por ejemplo, este ejemplo lo demuestra:

Código:

Dim c As New Class1
Dim o As Object
 
Set o = c

Pero al pasar un array de un tipo de objeto determinado a un parametro de tipo Object parece ser que no lo entiende como tal. Yo generalmente en estas circunstancias me ha sucedido al reves, suelo trabajar con una lista generica de tipo Object a la que a cada elemento le asigno una referencia a una clase concreta, por lo que el paso de arrays como parametro no me produce error, un ejemplo:

Código:

Option Explicit

Private Sub Form_Load()
 Dim a() As Object
 ReDim a(3)
 
 Call MiFuncion(a)
 
End Sub

Sub MiFuncion(lista() As Object)
 Dim i As Long
 For i = LBound(lista) To UBound(lista)
 Set lista(i) = New Class1
 Next i
End Sub

Salu2...

Que bien, solo tuve que cambiar la definicion de mis arreglos. Todo listo. Ex3lente!Edited by: shiningp