Grundlagen der Programmierung mit VBA Visual Basic for

3.7 Objekttechniken
Die wesentliche Eigenschaft eines Objektes ist die Einheit von Daten und Methoden. Nur mit den Methoden,
die der allgemeinen Benutzung freigegeben sind, kann man die Daten manipulieren. Man
spricht von Datenkapselung. Auf diese Weise kann der Datenzugriff insbesondere bei großen Projekten
geregelt werden und weitgehend fehlerfrei gestaltet werden. Die Definition eines Objektes erfolgt
in einer sogenannten Objektklasse. Eine Klasse ist definiert durch die Daten und Methoden, sowie der
jeweiligen Zugriffsrechte. Meist beinhaltet eine Objektklasse innere, man sagt private oder versteckte
Daten und Prozeduren, auf die der Anwender keinen Zugriff hat, die aber für die Ausführung der Methoden
wichtig sind. VBA sieht verschiedene Möglichkeiten vor, eigene Objekte zu definieren oder
objektorientierte Arbeitsweisen zu entwickeln. Ein weiterer Vorteil einer solchen Arbeitsweise ergibt
sich aus dem damit möglichen dynamischen Speicherzugriff bei der Definition von Objektsammlungen.
3.7.1 Property-Prozeduren
Property-Prozeduren erlauben eine einfache Form der Datenkapselung. Variablen eines Modules sind
anderen Modulen unsichtbar, wenn sie als Private vereinbart wurden. Man unterscheidet:
Syntax
Property Let ( Parameterliste )
Property Set ( Parameterliste )
Property Get ( Parameterliste ) As Typ
Parameter Verwendung
Let, Set Wertezuweisung, Let für Variablen, Set für Objektverweise
Get Abfrage der Eigenschaftswerte
> Die Anzahl der Argumente in der Get-Prozedur muß um eins kleiner sein als in der Let- bzw.
Set-Prozedur
> Die Datentypen der Parameterliste für Get müssen, abgesehen vom letzten Argument, der Let-
bzw. Set-Prozeduren entsprechen
> Der Typ des Rückgabewertes der Get-Prozedur muß dem Typ des letzten Parameters der Let-
bzw. Set-Prozeduren entsprechen
Beispiel. Eine ungewöhnliche Ermittlung des Mittelwertes.
Option Explicit
Private Summe As Double ' versteckte Modulvariablen
Private Anzahl As Integer
Property Let MW(Var As Double) ' Property Let: "Links vom Gleichheits-
' zeichen"
If Var = 0 Then ' Initialisieren
Summe = 0
Anzahl = 0
Else
Summe = Summe + Var ' Summieren
Anzahl = Anzahl + 1
End If
End Property
Property Get MW() As Double ' Property Get: "Rechts vom Gleich-
' heitszeichen"
MW = Summe / Anzahl ' Auswerten
End Property
Sub TestMW() ' Anwendung
Dim Mittel As Double
Dim i As Integer
MW = 0 ' Initialisieren
40