Hola Gente
Solo un comentario:
Dim vector(3) As String
Son 4 elementos, aunque podrian ser tres dependiendo de alguna directiva
incluida en el modulo.
Lo confiable es no hacer:
For XX = 0 To 2
si no:
For XX = lbound(miArray) To Ubound(miArray)
Saludos
Daniel Calvin
El día 29/05/07, Jose Moreno <[EMAIL PROTECTED]> escribió:
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
--
Daniel A. Calvin
Cooperator Team Member
http://www.cooperator.com.ar
Microsoft Certified Professional
