Aqui te envio un ejemplo de como pasar un vector a una funcion.
espero te sirva.
Jose Moreno
'========================================
Private Sub Form_Load()
Dim vector(3) As String
Dim mivector As Variant
vector(0) = "var1"
vector(1) = "var2"
vector(2) = "var3"
mivector = vector
resultado = process(mivector) ' encapsula el vector en un variant
End Sub
Function process(unvector)
For XX = 0 To 2
Debug.Print unvector(XX)
Next
End Function
'======================================
--- "Cristian C. Bittel" <[EMAIL PROTECTED]> wrote:
> No se me OCURRE que pueda hacerse así, tan directamente, pero vos mismo
> tirás una idea piola ahí
podrías utilizar una Colección del tipo
> Nombre-Valor. Entonces para cada variable haces un Add en la colección
> en el campo Nombre y luego asignás un valor en cualquier momento para ese
> mismo item.
>
>
>
> Eso puede ayudarte, implementar una colección es muy f´ácil pero dependiendo
> de la complejidad de lo que estés haciendo, tal vez haya algo que resulte
> más sencillo
>
>
>
> Cristian
>
>
>
> _____
>
> De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de G.Asato
> Enviado el: Martes, 29 de Mayo de 2007 14:51
> Para: vbusers List Member
> Asunto: [vbusers] problemas con funciones y parametros
>
>
>
> Hola una pregunta se puede hacer esto?
>
> necesito pasar a una funcion un vector que contiene el nombre de variables
> de mi programa, para que el mismo las procese.
>
>
>
> vector(0)="var1"
>
> vector(1)="var2"
>
> vector(3)="var3"
>
>
>
> dentro de la funcion yo quiero hacer por ej:
>
> for XX=0 to 3
>
> elcontenidodevector(XX).text=XX
>
> next
>
>
>
> se puede hacer algo asi?, como paso el vector como parametro a la funcion?
>
> no se si fui claro en la explicacion..
>
> gracias
>
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.472 / Virus Database: 269.8.3/824 - Release Date: 29/05/2007
> 13:01
>
>
>
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.5.472 / Virus Database: 269.8.3/824 - Release Date: 29/05/2007
> 13:01
>
>
>
____________________________________________________________________________________Fussy?
Opinionated? Impossible to please? Perfect. Join Yahoo!'s user panel and lay
it on us. http://surveylink.yahoo.com/gmrs/yahoo_panel_invite.asp?a=7
