Microsoft Office Access 2007-Programmierung - Das Handbuch

Kapitel 16: Techniken der Programmentwicklung

■ Ändern Sie über den Menübefehl Projekt/Eigenschaften von Projekt1 den Projektnamen in KreisServer.

Vergewissern Sie sich bei dieser Gelegenheit, dass auf der Registerkarte Komponente als Versionskompa-

tibilität die Projekt-Kompatibilität aktiviert ist.

■ Klicken Sie im Projekt-Explorer mit der rechten Maustaste auf Class1 und ändern Sie den Namen in

CKreis (über das Kontextmenü).

■ Fügen Sie über Datei/Projekt hinzufügen ein Standard-EXE-Projekt hinzu.

■ Über den Menübefehl Projekt/Eigenschaften von Projekt1 ändern Sie den Projektnamen in KreisClient.

■ Klicken Sie im Projekt-Explorer mit der rechten Maustaste auf KreisClient und wählen Sie im Kontext-

menü den Eintrag Als Starteinstellung festlegen (der Name erscheint jetzt fett gedruckt).

■ Speichern Sie alle fünf Dateien (Gruppe1.vbg, KreisServer.vbp, CKreis.cls, KreisClient.vbp, Form1.frm) in

Ihrem Projektverzeichnis ab.

■ Tragen Sie dann in die beiden Module die nachfolgend erläuterten Quelltexte ein.

Abbildung 16.40 Ansicht des Projekt-Explorers

Quellcode

Klassenmodul CKreis.cls

Private r As Double ' Zustandsvariable!

Private Const Pi = 3.1415

Public Property Get radius() As Double ' Lesezugriff auf radius

radius = r

End Property

Public Property Let radius(rad As Double) ' Schreibzugriff auf radius

r = rad

End Property

Public Property Get umfang() As Double ' Lesezugriff auf umfang

umfang = 2 * Pi * r

End Property

Public Property Let umfang(u As Double) ' Schreibzugriff auf umfang

r = u / 2 / Pi

End Property

Public Property Get flaeche() As Double ' Lesezugriff auf flaeche

flaeche = Pi * r * r

End Property

1058