|
Hallo zusammen,
ich muss einer Funktion die Eigenschaft bzw. die Variable einer Klasseninstanz an eine Funktion als Referenz übergeben.
Beispielklasse CPerson:
Option Explicit
Public Firstname As String
Public Surname As String
Public Property Get Name() As String
Name = Firstname + ", " + Surname
End Property
Beispielfunktion, die aufgerufen wird:
Sub AddDelimiter(ByRef str As String, ByVal del As String)
str = del + str + del
End Function
Testfunktion:
Sub Test()
Dim Person As CPerson
Set Person = New CPerson
Person.Firstname = "Max"
Person.Surname = "Mustermann"
AddDelimiter Person.Firstname, "-"
End Sub
In der Funktion Test wird die Variable Person.Firstname als Referenz an die Funktion AddDelimiter übergeben. Diese fügt dann dem Inhalt ein "-" am Anfang und am Ende hinzu...dachte ich! Aber scheinbar wird die Variable/Eigenschaft nicht als Referenz übergeben. Hat soetwas schonmal jemand gemacht?
Viele Grüße
KeMa
|