Microsoft Office Access 2007-Programmierung - Das Handbuch

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

PropBag.WriteProperty "ShowDeleteButton", DelbuttonShow

End Sub

Unter dem gleichen Namen können Sie den Wert der Eigenschaft wieder auslesen, wenn das ReadPro-

perties-Ereignis auftritt (Eintritt in den Entwurfsmodus oder bei Programmstart).

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

DelbuttonShow = PropBag.ReadProperty("ShowDeleteButton")

ShowDeleteButton = DelbuttonShow

End Sub

Über das InitProperties-Ereignis lassen sich zusätzlich Default-Werte festlegen, die beim Einfügen der Kom-

ponente gesetzt werden.

Private Sub UserControl_InitProperties()

DelbuttonShow = True

End Sub

Ereignisse

Nach den Eigenschaften fehlt unserem Control noch etwas Dynamik. Die Rede ist von Ereignissen, mit

denen später auf Zustandsänderungen innerhalb des Controls reagiert werden kann.

Die Definition der Ereignisse ist relativ trivial, es genügt, wenn Sie in den allgemeinen Abschnitt des Code-

fensters die Prozedurköpfe eintragen. Die Kennzeichnung als Ereignis erfolgt durch den vorangestellten

Bezeichner Event:

' Wechsel des aktuellen Datensatzes anzeigen:

Public Event Current()

' Abfrage, ob der Datensatz gelöscht werden soll:

Public Event ConfirmDelete(ByRef cancel As Boolean)

' Klick auf die Edit-Taste:

Public Event EditClick()

' Klick auf die Cancel-Taste:

Public Event CancelClick()

' Klick auf die Update-Taste:

Public Event UpdateClick()

' Klick auf die Insert-Taste:

Public Event InsertClick()

Wie Sie sehen, können auch Werte an das Ereignis übergeben werden. Dabei sind zwei Varianten zu unter-

scheiden:

■ Sie wollen den Wert lediglich zur Auswertung in der Ereignisprozedur übergeben (ByVal),

■ Sie möchten einen Wert übergeben, der in der Ereignisprozedur verändert wird und im Steuerelement

für weitere Auswertungen zur Verfügung steht (ByRef).

1047

ActiveX-Controls mit VB 6 programmieren