<\/p>\n
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.<\/b><\/p>\n
Beispielformulare<\/b><\/p>\n
Die Beispieldatenbank zu diesem Beitrag enthält zwei Formulare. Das erste heißt frmModalenDialogOeffnen <\/b>und enthält zwei Schaltflächen, mit denen das zweite Formular der Anwendung, frmModalerDialog<\/b>, einmal als herkömmliches Formular und einmal als modaler Dialog geöffnet werden kann.<\/p>\n
Das Formular frmModalenDialog-Oeffnen <\/b>sieht wie in Bild 1 aus. Die obere Schaltfläche heißt cmdFormularNichtModalOeffnen <\/b>und löst die Prozedur aus Listing 1 aus.<\/p>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2014_02\/pic_928_001.png\")
<\/p>\n
Bild 1: Formular zum Aufrufen des zweiten Formulars in verschiedenen Modi<\/span><\/b><\/p>\n Diese öffnet das Formular frmModalerDialog<\/b> auf herkömmliche Weise. Dieses sieht dann wie in Bild 2 aus.<\/p>\n Bild 2: Formular mit zwei Schaltflächen zum Anzeigen von Kontextmenüs<\/span><\/b><\/p>\n Wenn der Benutzer auf die beiden Schaltflächen klickt, erscheint jeweils ein Kontextmenü mit einem einzigen Befehl (s. Bild 3).<\/p>\n Bild 3: Durch die obere Schaltfläche hervorgerufenes Kontextmenü<\/span><\/b><\/p>\n Dafür sorgt die Ereignisprozedur aus Listing 2. Die Prozedur deklariert ein CommandBar<\/b>– und ein CommandBarButton<\/b>-Objekt. Das CommandBar<\/b>-Objekt repräsentiert das Kontextmenü, das CommandBarButton<\/b>-Objekt die enthaltene Schaltfläche. Da das Kontextmenü namens cbrModal <\/b>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 <\/b>als Kontextmenü angelegt wird, und referenziert es mit der Variablen cbr<\/b>. Für die Auflistung Controls <\/b>dieser Variablen legt die Prozedur dann mit der Add<\/b>-Methode eine neue Schaltfläche an, welche dem Eintrag des Kontextmenüs mit der Beschriftung Meldung anzeigen <\/b>entspricht. Damit diese beim Anklicken eine Funktion auslöst, geben Sie für die Eigenschaft OnAction <\/b>den Namen der auszuführenden VBA-Funktion an – in diesem Fall heißt diese Kontextmenüfunktion <\/b>und sieht wie folgt aus:<\/p>\n <\/p>\n Listing 2: Anzeige eines Kontextmenüs mit OnAction-Funktion<\/span><\/b><\/p>\n Dies funktioniert beim öffnen des Formulars frmModalerDialog <\/b>als herkömmliches Formular reibungslos. Anders sieht es aus, wenn man das Formular als modalen Dialog öffnet – beispielsweise mit der Anweisung aus Listing 3.<\/p>\n Listing 3: Formular als modalen Dialog öffnen<\/span><\/b><\/p>\n Wenn Sie dann das Kontextmenü über die Schaltfläche cmdKontextmenueStandard <\/b>aufrufen, erscheint dieses zwar, ein Klick auf den einzigen Kontextmenü-Eintrag löst jedoch keine Aktion mehr aus.<\/p>\n Deshalb müssen Sie für Kontextmenüs, die in modal geöffneten Formularen angezeigt werden, eine andere Technik verwenden. Dabei deklarieren Sie die Objektvariable cbb<\/b>, die den Kontextmenü-Eintrag repräsentiert, nicht innerhalb der Prozedur, sondern im Kopf des Klassenmoduls und mit dem Schlüsselwort WithEvents<\/b>. Auf diese Weise können Sie die Ereignisse des Objekts CommandBarButton <\/b>im Klassenmodul des Formulars implementieren.<\/p>\n Die Prozedur, die das Kontextmenü hervorruft, sieht fast genauso aus wie die vorherige – mit zwei kleinen Unterschieden: Erstens fehlt die Deklaration von cbb<\/b>, die wir ja ausgegliedert haben, und zweitens enthält die Prozedur keine Zuweisung eines Wertes an die OnAction<\/b>-Eigenschaft mehr (s. Listing 4).<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2014_02\/pic_928_002.png\")
<\/p>\n![\"Durch](\"..\/fileadmin\/_temp_\/2014_02\/pic_928_003.png\")
<\/p>\nPrivate Sub <\/span>cmdKontextmenueStandard_Click()\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n Dim <\/span>cbb As <\/span>CommandBarButton\r\n On Error Resume Next<\/span>\r\n CommandBars(\"cbrModal\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbr = CommandBars.Add(\"cbrModal\", msoBarPopup, False, True<\/span>)\r\n Set<\/span> cbb = cbr.Controls.Add(msoControlButton)\r\n With<\/span> cbb\r\n .OnAction = \"=Kontextmenuefunktion()\"\r\n .Caption = \"Meldung anzeigen\"\r\n End With<\/span>\r\n cbr.ShowPopup\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>Kontextmenuefunktion()\r\n MsgBox<\/span> \"Meldung mit OnAction\/Funktion angezeigt.\"\r\nEnd Function<\/span><\/pre>\nPrivate Sub <\/span>cmdFormularModalOeffnen_Click()\r\n DoCmd.OpenForm \"frmModalerDialog\", Windowmode:=acDialog\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents cbb As <\/span>CommandBarButton\r\nPrivate Sub <\/span>cmdKontextmenueKlasse_Click()\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n On Error Resume Next<\/span>\r\n CommandBars(\"cbrModal\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbr = CommandBars.Add(\"cbrModal\", msoBarPopup, False, True<\/span>)\r\n Set<\/span> cbb = cbr.Controls.Add(msoControlButton)\r\n With<\/span> cbb\r\n .Caption = \"Meldung anzeigen\"\r\n End With<\/span>\r\n cbr.ShowPopup\r\nEnd Sub<\/span><\/pre>\n