Eine Ereignisprozedur einfügen

Funktion

Diese Funktion fügt eine Ereignisprozedur ein.

Code

Public Sub EreignisProzedurEinfügen(strModul As String, strObject As String, _
                                    strEvent As String, strCode As String)


  'Variablen deklarieren
  Dim lngStartZeile As String


  With Application.VBE.ActiveVBProject.VBComponents(strModul).CodeModule
    lngStartZeile = .CreateEventProc(strEvent, strObject) + 1
    .InsertLines lngStartZeile, strCode
  End With


End Sub

Beschreibung

Es wird die Methode "CreateEventProc" des CodeModuls verwendet.
Diese Methode hat gegenüber dem direkten Einfügen des Code den Vorteil, dass die notwendigen Parameter automatisch in den Prozeduraufruf eingefügt werden.
Für den Parameter "strEvent" sind die englischen Bezeichnungen der Ereignisse zu übergeben.
 

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich:

• Microsoft Visual Basic for Applications Extensibility 5.3