Två st utparametrar

1 svar · 257 visningar · startad av roja 10 aug. 2004

rojaMedlem sedan feb. 200418 inlägg

Trådstart10 aug. 2004 13:46#1

Jag har en funktion som retunerar 2 st utparametrar. Den ena av typen Array integer och den andra av typen Array text(31).

Nu är min fråga hur jag tar emot två utparametrar av olika datatyp från en funktion.? Någon som har en aning?

Nexus86Medlem sedan okt. 20023 030 inlägg

13 aug. 2004 17:15#2

såhär kanske?

Private Sub MinFunktion(ByRef par1 As Integer, ByRef par2() As String)
    par1 = 12
    par2(16) = "test"
End Sub

Private Sub Testa()
  Dim i As Integer
  Dim text(31) As String
    MinFunktion i, text

    MsgBox "i = " & i & vbCrLf & "text(16) = " & text(16)
End Sub