Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.


  • Create BookmarkCreate Bookmark
  • Create Note or TagCreate Note or Tag
  • PrintPrint
Share this Page URL
Help

Teil: 6 Anhang > A.10 Wie kann ich ein Formular mit einem Ereignis ausstatten?

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


  

You are currently reading a PREVIEW of this book.

                                                                                                                    

Get instant access to over $1 million worth of books and videos.

  

Start a Free 10-Day Trial


  
  • Safari Books Online
  • Create BookmarkCreate Bookmark
  • Create Note or TagCreate Note or Tag
  • PrintPrint