VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Wenn man eine Eigenschaft/Property realisieren möchte, welcher auch ein Objekt zugewiesen werden können soll, müssen alle drei Formen von Property-Prozeduren erstellt werden. Hierbei muss insbesondere bei Property Get darauf geachtet werden, ob die Eigenschaft gerade ein Objekt enthält, oder nicht. Hier ein typisches Beispiel:

Private pTag As Variant

Public Property Get Tag() As Variant
  If IsObject(pTag) Then
    Set Tag = pTag
  Else
    Tag = pTag
  End If
End Property

'Diese Prozedur wird aufgerufen, wenn ein
'Objekt zugewiesen wird:
Public Property Set Tag(aTag As Variant)
  Set pTag = aTag
End Property

'Diese Prozedur wird andernfalls bei einer
'Zuweisung aufgerufen:
Public Property Let Tag(aTag As Variant)
  pTag = aTag
End Property