vb6 - tipos - Número variable de argumentos en VB

procedimientos y funciones en visual basic

Question

¿Cómo crear una función con número variable de argumentos en Visual Basic? ex.

x = Sum(1,2,3)
y = Sum(1,2)
Function Sum(''how to declare argument here'')
''Is there any special argument manipulation inside function before it is usable?
End Function

Answer 1

Echa un vistazo a pasar un número variable de argumentos

Function Sum(ParamArray Vals() As Variant)
Dim intLoopIndex As Integer
For intLoopIndex = 0 To UBound(Vals)
Next intLoopIndex
End Function

Answer 2

Las respuestas aquí son geniales. En mi solicitud, requerí una lista arbitrariamente larga de argumentos opcionales después de un argumento inicial requerido.

Puede hacer esto simplemente agregando los argumentos requeridos antes de la entrada ParamArray.

Por ejemplo:

Function Arithmetic(FuncType As String, ParamArray Terms() As Variant)

Answer 3

Usa argumentos opcionales, como:

Function Sum(Optional X1 As Integer=0, Optional X2 As Integer=0)

o sintaxis de argumentos universalmente variables

Function Sum(ParamArray XArr() As Variant)

(Es posible que me haya metido con algunos elementos de sintaxis, no dude en corregirlos).