Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Objekte / OOP / Properties

Eigenschaften und Objekte

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

© Jost Schwider, 30.04.2000-30.04.2000 - http://vb-tec.de/properts.htm