Existe alguna manera de poder mandar infinitos parametros a una función y
recibirlos con uno sólo?

Me explico:
esta serÃ***a la llamada
sDevuelveString(scad1, scad2, ....scadN)

Y lo que yo quiero evitar es:
public function sDevuelveString(byval sCad1 as string, byval sCad2 as
string,...byval sCadN as string) as String
....
end function
En el interior de la función deberÃ***a haber una manera óptima de recorrer los
"infinitos parámetros"

Gracias!

si con paramarray, seria de este modo:

Private Sub fun1(ByVal ParamArray pParams() As String)

Dim iInd1 As Integer

For iInd1 = 0 To UBound(pParams)

Next

End Sub

el param array debe de declararse como ultimo parametro de la funcion, y la
llamada podria ser:


call fun1("hola", "adios", "hola2", "hola3")


////////////////////////////////////////////




"Cristina" <Cristina***discussions.microsoft.com> escribió en el mensaje de
noticias:FDA195DD-D68B-4F18-B0F6-A3C9EEB354E0***microsoft.com...
> Existe alguna manera de poder mandar infinitos parametros a una función y
> recibirlos con uno sólo?
>
> Me explico:
> esta serÃ***a la llamada
> sDevuelveString(scad1, scad2, ....scadN)
>
> Y lo que yo quiero evitar es:
> public function sDevuelveString(byval sCad1 as string, byval sCad2 as
> string,...byval sCadN as string) as String
> ...
> end function
> En el interior de la función deberÃ***a haber una manera óptima de recorrer
> los
> "infinitos parámetros"
>
> Gracias!

"Cristina" <Cristina***discussions.microsoft.com> escribió en el mensaje
news:FDA195DD-D68B-4F18-B0F6-A3C9EEB354E0***microsoft.com...
> Existe alguna manera de poder mandar infinitos parametros a una función y
> recibirlos con uno sólo?

Se podría intentar, usando un ParamArray.

El problema es que no creo que te alcance la vida para escribir la llamada.

Salud!

> El problema es que no creo que te alcance la vida para escribir la
> llamada.

;-)
--

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
--
Web: http://sps.uyssoft.com
Blog: http://msmvps.com/blogs/lfranco
Geeks: http://geeks.ms/blogs/lfranco
--
(Guía de netiquette de los foros)
http://sps.uyssoft.com/Foros%20online/Netiquette.aspx
FIMARGE, S.A.
Principat d'Andorra
lfranco***ODIO_EL_SPAMfimarge.ad
Tel.: +376 805 100
Fax: +376 824 500
--
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profile/Lluis
--
This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho.