"Anders Jacobsen" <NOSPAMaj@mailme.dk> wrote in message
news:9anfa1$66m$1@news.inet.tele.dk...
> Jeg vil gerne have min funktion til at returnere flere værdier kan man
> overhovedet det?
Du kan enten lave en brugerdefineret type som Christian foreslog,
eller også kan du bruge udparametre.
Det er parametre sendt til funktionen ByRef, altså en pointer til
variablen i stedet for variablens værdi. Så kan du rette indholdet
direkte i din function.
F.eks.:
Function EnEllerAndenFunktion(ByVal Indparameter As String, _
ByRef Udparameter As String) As String
' Gør en hel masse
Indparamater = "En streng" ' Kommer ikke med ud
Udparameter = "En anden streng" ' Kommer med ud
EnEllerAndenFunktion = "Resultatet" ' Kommer med ud
End Function
Private Sub Form_Load()
Dim Resultat As String, Streng1 As String, Streng2 As String
Resultat = EnEllerAndenFunktion(Streng1, Streng2)
End Sub
Så vil variablerne Resultat og Streng2 være ændret.
Hvis du laver det i et modul, kan du endda bruge en
brugerdefineret type som udparameter.
--
Vh Morten
