Lies diesen Artikel und viele weitere mit einem kostenlosen, einwöchigen Testzugang.
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.
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.
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).
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:
Ende des frei verfügbaren Teil. Wenn Du mehr lesen möchtest, hole Dir ...
Testzugang
eine Woche kostenlosen Zugriff auf diesen und mehr als 1.000 weitere Artikel
diesen und alle anderen Artikel mit dem Jahresabo