Kontextmenüs in modalen Dialogen

Kontextmenüs sind erstklassige Helfer, wenn man an Ort und Stelle Funktionen zur Verfügung stellen möchte. Kontextmenüs lassen sich auch in modalen Dialogen anzeigen. Auf merkwürdige Weise funktionieren diese aber nicht mehr, das heißt, die angegebene VBA-Funktion wird nicht mehr ausgeführt. Dieser Beitrag zeigt, wie Sie auch die Kontextmenübefehle in modalen Dialogen mit Leben füllen.

Beispielformulare

Die Beispieldatenbank zu diesem Beitrag enthält zwei Formulare. Das erste heißt frmModalenDialogOeffnen und enthält zwei Schaltflächen, mit denen das zweite Formular der Anwendung, frmModalerDialog, einmal als herkömmliches Formular und einmal als modaler Dialog geöffnet werden kann.

Das Formular frmModalenDialog-Oeffnen sieht wie in Bild 1 aus. Die obere Schaltfläche heißt cmdFormularNichtModalOeffnen und löst die Prozedur aus Listing 1 aus.

Formular zum Aufrufen des zweiten Formulars in verschiedenen Modi

Bild 1: Formular zum Aufrufen des zweiten Formulars in verschiedenen Modi

Diese öffnet das Formular frmModalerDialog auf herkömmliche Weise. Dieses sieht dann wie in Bild 2 aus.

Formular mit zwei Schaltflächen zum Anzeigen von Kontextmenüs

Bild 2: Formular mit zwei Schaltflächen zum Anzeigen von Kontextmenüs

Wenn der Benutzer auf die beiden Schaltflächen klickt, erscheint jeweils ein Kontextmenü mit einem einzigen Befehl (s. Bild 3).

Durch die obere Schaltfläche hervorgerufenes Kontextmenü

Bild 3: Durch die obere Schaltfläche hervorgerufenes Kontextmenü

Dafür sorgt die Ereignisprozedur aus Listing 2. Die Prozedur deklariert ein CommandBar– und ein CommandBarButton-Objekt. Das CommandBar-Objekt repräsentiert das Kontextmenü, das CommandBarButton-Objekt die enthaltene Schaltfläche. Da das Kontextmenü namens cbrModal bei jedem Mausklick neu erzeugt werden soll, löscht die Prozedur ein eventuell bereits vorhandenes Kontextmenü gleichen Namens zu Beginn der Prozedur. Dann erstellt diese das Kontextmenü neu, wobei dieses per msoBarPopup als Kontextmenü angelegt wird, und referenziert es mit der Variablen cbr. Für die Auflistung Controls dieser Variablen legt die Prozedur dann mit der Add-Methode eine neue Schaltfläche an, welche dem Eintrag des Kontextmenüs mit der Beschriftung Meldung anzeigen entspricht. Damit diese beim Anklicken eine Funktion auslöst, geben Sie für die Eigenschaft OnAction den Namen der auszuführenden VBA-Funktion an – in diesem Fall heißt diese Kontextmenüfunktion und sieht wie folgt aus:

Private Sub cmdKontextmenueStandard_Click()
     Dim cbr As CommandBar
     Dim cbb As CommandBarButton
     On Error Resume Next
     CommandBars("cbrModal").Delete
     On Error GoTo 0
     Set cbr = CommandBars.Add("cbrModal", msoBarPopup, False, True)
     Set cbb = cbr.Controls.Add(msoControlButton)
     With cbb
         .OnAction = "=Kontextmenuefunktion()"
         .Caption = "Meldung anzeigen"
     End With
     cbr.ShowPopup
End Sub

Sie haben das Ende des frei verfügbaren Textes erreicht. Möchten Sie ...

Workplace

Jahresabonnement TestzugangOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:

Schreibe einen Kommentar