Gruppierung innerhalb einer Klasse
21.06.2016 10:16:03
Onkel
ich verwende zurzeit eine Klasse die in Auszügen so aussieht:
Option Explicit
Dim DatEVPDatum As Date
Dim DatWSDatum As Date
Dim StrEVPLehrgang As String
Dim StrWSLehrgang As String
Public Property Get EVPDatum() As Date
EVPDatum = DatEVPDatum
End Property
Public Property Let EVPDatum(ByVal InpEVPDatum As Date)
DatEVPDatum = InpEVPDatum
End Property
Public Property Get WSDatum() As Date
WSDatum = DatWSDatum
End Property
Public Property Let WSDatum(ByVal InpWSDatum As Date)
DatWSDatum = InpWSDatum
End Property
Public Property Get EVPLehrgang() As String
EVPLehrgang = StrEVPLehrgang
End Property
Public Property Let EVPLehrgang(ByVal InpEVPLehrgang As String)
StrEVPLehrgang = InpEVPLehrgang
End Property
Dies verschafft mir einen Zugriff in der Form
Lehrgang.EVPDatum = ...
Lehrgang.EVPLehrgang = ....
Lehrgang.WSDatum = ...
Lehrgang.WSLehrgang = ....
Funktioniert auch alles wunderbar. Schöner fände ich aber einen Zugriff in der Form
Lehrgang.EVP.Datum =....
Lehrgang.EVP.Lehrgang = ....
Lehrgang.WS.Datum = ...
Lehrgang.WS.Lehrgang = ....
Wie wird eine solche Klasse deklariert. Leider habe ich noch keine Hinweise diesbezüglich gefunden.