A.10. A.10 Wie kann ich ein Formular mit einem Ereignis ausstatten?

Manuell fügen Sie einem Formular ein Ereignis hinzu, indem Sie in die Entwurfsansicht des Formulars gehen, das Eigenschaftenfenster aufrufen und zur Registerkarte Ereignis wechseln. Dann können Sie das gewünschte Ereignis per Mausklick einstellen. Den ganzen Vorgang können Sie auch mithilfe einer VBA-Prozedur realisieren. In der Prozedur aus Listing A.13 wird ein neues Formular angelegt und das Ereignis Form_Open integriert. Innerhalb des Ereignisses soll dafür gesorgt werden, dass das aktuelle Datum beim Aufrufen des Formulars in der Titelleiste angezeigt wird.

Listing A.13. Neues Formular mit Ereignis erstellen

Sub FormularErzeugen()
  Dim frm As Form
  Dim modu As Module
  Dim lng As Long
  Dim str As String

  Set frm = CreateForm
  Set modu = frm.Module

lng = modu.CreateEventProc("Load", "Form")
  str = "Me.Caption = Date()"
  modu.InsertLines lng + 1, str
End Sub