VB Forum / Controls / July 2008

You're right, Mike.
I just came back from seeing a doctor, and re-read this.
Yep - I was thinking of Excel. I knew 'sum' came in somewhere, and I
couldn't get it out of my head that it was in VB.
Maybe I should see a doctor more often!!

Graham

Possibly it can't be done unless below.
/senn

Private Sub Command1_Click()
  Dim z
   'MsgBox
   z = MainFunc(1, 2, 3, 5, 7, 9)
End Sub

Function MainFunc(ParamArray Arguments())
   Dim y, z, i
   Dim Ary(5)
   For Each z In Arguments()
      Ary(i) = z
      i = i + 1
   Next
   i = i - 1
   y = sum(Ary(), i)
   MainFunc = y
End Function

Function sum(Arr(), eleSiz)
 Dim y, x
    For x = 0 To eleSiz
      y = y + Arr(x)
   Next x
   sum = y
End Function

I don't remember very well, but I try to use the ParamArray() as less as
possible (as a result of the 'misbehavior'). When really needed, I check
if the first argument in the ParamArray() is an array. If so, I check if
there are more parameters passed in. If not, I assume that the first
parameter is the ParamArray of the calling function. Using (a slight
modification of) UBound, I parse the array as like it was a ParamArray.

In the meanwhile I found my implementation:

<code>
Public Function FormatStr( _
        ByVal Source As String, ParamArray Arguments()) As String

    Dim pArguments() As Variant, lParamCount As Long

    If Not IsMissing(Arguments) Then
        lParamCount = UBound(Arguments) + 1

        If lParamCount > 0 Then
            If IsArray(Arguments(0)) Then
                pArguments = Arguments(0)
            Else
                pArguments = Arguments
            End If
        Else
            pArguments = Arguments
        End If

        lParamCount = UBound(pArguments) + 1

        'From now on, use pArguments instead of Arguments.
        '...
    End If
End Function
</code>

Sinna