Kontakt
DSVGO
'--------------------------------- 'Deklarationsteil: Option Explicit Private Type typProp Nachname As String Vorname As String '... End Type Private Prop As typProp '--------------------------------- 'Codeteil: Public Property Get Nachname() As String Nachname = Prop.Nachname End Property Public Property Let Nachname(ByVal aName As String) aName = Trim$(aName) If Len(aName) Then Prop.Nachname = aName Else Prop.Nachname = "???" End If End Property '...Gibt man innerhalb des Klassenmoduls "Prop." ein, so erscheint automatisch die Liste aller im Modul definierten Property-Variablen!
© Jost Schwider, 30.04.2000-30.04.2000 - http://vb-tec.de/udt.htm