Im Artikel “UstIdNr, IBAN und Co. per Kontextmenü” (www.vbentwickler.de\/480) haben wir gezeigt, wie wir die Windows-Kontextmenüs erweitern können. In diesem Fall haben wir Daten, die man gegebenenfalls nicht alle im Kopf hat, aber regelmäßig benötigt, einfach über ein Kontextmenü in die Zwischenablage einfügen kann, um diese dann an der gewünschten Stelle beispielsweise in einem Bestellformular einträgt. Um das Hinzufügen und Aktualisieren dieser Einträge weiter zu vereinfachen und die zahlreichen Handgriffe zu ersparen, zeigen wir im vorliegenden Artikel eine Access-Lösung, mit der wir die Kontextmenü-Befehle mit einem einfachen TreeView verwalten und erweitern können.<\/b><\/p>\n
Dazu wollen wir die Struktur der benutzerdefinierten Kontextmenü-Einträge im Windows-Menü in einem TreeView<\/b>-Steuerelement abbilden.<\/p>\n
Darin können wir Ordner, Unterordner und die enthaltenen Befehle verwalten. Nachdem wir diese Elemente angelegt haben, wollen wir diese per Mausklick direkt in die Registry schreiben können.<\/p>\n
Wir wollen die Daten, wir wie sie zum Windows-Kontextmenü hinzufügen wollen, strukturiert in Tabellen ablegen, damit wir sie dynamisch ergänzen und bearbeiten können. Dazu benötigen wir zwei Tabellen:<\/p>\n
Die Tabelle tblMenuFolders <\/b>gestalten wir wie in Bild 1. Das Feld ParentMenuFolderID<\/b> verknüpfen wir mit dem Feld MenuFolderID <\/b>der gleichen Tabelle, damit wir die Zuordnung von Unterordnern zu Ordnern definieren können.<\/p>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2025_04\/pic_481_001.png\")
<\/p>\n
Bild 1: Tabelle zum Speichern der Menü-Ordner<\/span><\/b><\/p>\n Die zweite Tabelle tblMenuEntries <\/b>nimmt die eigentlichen Einträge auf (siehe Bild 2). Sie nimmt die ID, die Beschriftung des Menü-Eintrags und den Text auf, der beim Betätigen des Menü-Eintrags in die Zwischenablage kopiert werden soll.<\/p>\n Bild 2: Tabelle zum Speichern der Menü-Einträge<\/span><\/b><\/p>\n Außerdem wird über das Feld ParentMenuFolderID <\/b>die Zuordnung zu einem Ordner angegeben.<\/p>\n Im Datenmodell sehen wir die anzulegenden Beziehungen (siehe Bild 3). Die Tabelle tblMenuEntries <\/b>ist über das Feld ParentMenuFolderID <\/b>mit der Tabelle tblMenuFolders <\/b>verknüpft. Die Tabelle tblMenuFolders <\/b>ist außerdem über das Feld ParentMenuFolderID <\/b>mit dem Feld MenuFolderID <\/b>der gleichen Tabelle verknüpft. Für beide Beziehungen haben wir referenzielle Integrität mit Löschweitergabe definiert, damit beim Löschen eines übergeordneten Menüeintrags auch alle untergeordneten Elemente gelöscht werden.<\/p>\n Bild 3: Datenmodell der Anwendung<\/span><\/b><\/p>\n Wir fügen einem neuen Formular namens frmWindowsKontextmenue <\/b>ein TreeView<\/b>-Steuerelement und ein ImageList<\/b>-Steuerelement hinzu. Diese nennen wir ctlTreeView <\/b>und ctlImageList<\/b> (siehe Bild 4).<\/p>\n Bild 4: Formular mit TreeView- und ImageList-Steuerelement<\/span><\/b><\/p>\n Damit können wir nun den Code zusammenstellen, der zum Anzeigen der Einträge aus den Tabellen tblMenuFolders <\/b>und tblMenuEntries <\/b>verwendet wird.<\/p>\n Die Prozedur soll beim Laden des Formulars ausgelöst werden und sieht wie in Listing 1 aus. Hier deklarieren wie zunächst eine modulweit erreichbare Variable für das TreeView<\/b>-Steuerelement mit dem Schlüsselwort WithEvents<\/b>: <\/p>\n Listing 1: Prozedur zum Initialisieren des TreeView- und des ImageList-Steuerelements<\/span><\/b><\/p>\n Die Prozedur Form_Load <\/b>füllt zunächst das ImageList<\/b>-Steuerelement mit allen Bildern, die wir in der Tabelle MSysResources <\/b>finden. Die benötigten Icons haben wir zuvor hinzugefügt, in dem wir ein Formular in der Entwurfsansicht geöffnet und die gewünschten Icons mit dem Befehl Bild einfügen<\/b> über das Ribbon hinzugefügt haben. Diese Bilder werden automatisch in der Tabelle MSysResources <\/b>gespeichert (siehe Bild 5).<\/p>\n Bild 5: Bilder für die TreeView-Einträge aus der Tabelle MSysResources<\/span><\/b><\/p>\n Diese Bilder müssen wir nun zum ImageList<\/b>-Steuerelement hinzufügen, damit wir sie für die TreeView<\/b>-Einträge verwenden können. Das erledigen die ersten Anweisungen der Prozedur Form_Load<\/b>. Hier referenzieren wir die Eigenschaft Object <\/b>des ImageList<\/b>-Steuerelements mit der Variablen objImageList<\/b>. Dann stellen wir Höhe und Breite der Bilder jeweils auf 16 <\/b>ein.<\/p>\n Schließlich öffnen wir ein Recordset auf Basis der Tabelle MSysResources <\/b>für alle Einträge, deren Typ img <\/b>lautet. Diese durchlaufen wir ein einer Do While<\/b>-Schleife und rufen jeweils die Prozedur amvAddIconToImageList <\/b>auf. Diese fügt die einzelnen Bilder aus der Tabelle in das ImageList<\/b>-Steuerelement ein. Die Prozedur amvAddIconToImageList<\/b> und ihre Hilfsfunktionen wollen wir aus Platzgründen an dieser Stelle nicht erläutern.<\/p>\n Indem wir die Bilder dynamisch einlesen, können wir diese auch einmal ersetzen, ohne dass wir umständlich am Entwurf des Steuerelements operieren müssen.<\/p>\n Nun referenzieren wir das TreeView<\/b>-Steuerelement mit der Variablen objTreeView<\/b>, die wir bereits weiter oben deklariert haben.<\/p>\n Wir leeren eventuell noch vorhandene Nodes mit der Clear<\/b>-Methode und weisen diesem Steuerelement das ImageList<\/b>-Steuerelement als Quelle für die Icons zu.<\/p>\n Dann erstellen wir ein neues Recordset auf Basis der Einträge der Tabelle tblMenuFolders<\/b>, aber nur für die Einträge, die keinen übergeordneten Eintrag haben. Diese durchlaufen wir in einer weiteren Do While<\/b>-Schleife.<\/p>\n In dieser Schleife stellen wir einen eindeutigen Schlüssel für jedes Node<\/b>-Element im TreeView<\/b>-Steuerelement zusammen, das für Ordner aus dem Buchstaben f <\/b>und der ID des jeweiligen Datensatzes besteht (zum Beispiel f1<\/b>).<\/p>\n Danach fügen wir das neue Element mit der Add<\/b>-Methode der Nodes<\/b>-Auflistung des TreeView<\/b>-Steuerelements hinzu.<\/p>\n Dabei geben wir den Key an, den Namen aus dem Feld MenuFolderCaption <\/b>und das zu verwendende Bild (folder<\/b>). Außerdem stellen wir die Eigenschaft Expanded <\/b>für das neue Element auf True <\/b>ein, damit untergeordnete Einträge direkt angezeigt werden.<\/p>\n Schließlich rufen wir zwei weitere Prozeduren auf. AddSubfolders <\/b>fügt die untergeordneten Ordner hinzu und AddEntries <\/b>die eigentlichen Einträge.<\/p>\n Beiden übergeben wir einen Verweis auf das Database<\/b>-Objekt, die ID des übergeordneten Ordners und den Key, den wir für das übergeordnete Element verwendet haben.<\/p>\n Da wir auch Elemente in der obersten Ebene anzeigen wollen, fügen wir noch Code hinzu, der die Einträge der Tabelle tblMenuEntries <\/b>durchläuft, die im Feld ParentMenuFolderID <\/b>den Wert NULL <\/b>enthalten. Für diese legen wir als Key den Buchstaben e <\/b>(für Entry) sowie den anzuzeigenden Text fest.<\/p>\n Die Prozedur AddSubfolders <\/b>(siehe Listing 2) soll die Unterordner hinzufügen, die dem mit dem Parameter lngParentFolderID <\/b>entsprechenden Datensatz der Tabelle tblMenuFolders<\/b> untergeordnete sind.<\/p>\n Listing 2: Prozedur zum Einfügen der untergeordneten Ordner<\/span><\/b><\/p>\n Dazu öffnen wir ein Recordset, das genau diese Datensätze aus der Tabelle tblMenuFolders<\/b> liefert. In der folgenden Do While<\/b>-Schleife durchlaufen wir diese Datensätze und stellen zunächst in der Variablen strSubkey <\/b>den Key für die zu erstellenden Untereinträge zusammen. Diese bestehen wiederum aus dem Buchstaben f und dem Primärschlüsselwert des neuen Elements, also beispielsweise f2<\/b>.<\/p>\n Dann erstellen wir ein neues Node<\/b>-Objekt unterhalb des übergeordneten Objekts. Das übergeordnete Element referenzieren wir mit dem Key dieses Elements und geben mit dem zweiten Parameter tvwChild <\/b>an, dass das neue Element unterhalb dieses Elements angeordnet werden soll. Der dritte Parameter nimmt den neuen Key auf und der vierte den anzuzeigenden Text. Mit dem fünften Parameter übergeben wir wieder das Icon folder<\/b>. Auch für dieses Element stellen wir wieder die Eigenschaft Expanded <\/b>auf True <\/b>ein.<\/p>\n Danach rufen wir erneut die Prozedur AddSubfolders <\/b>auf, falls noch weitere Unterordner vorhanden sind. <\/p>\n Außerdem verwenden wir die Prozedur AddEntries<\/b>, um die enthaltenen Einträge hinzuzufügen.<\/p>\n Die Prozedur AddEntries<\/b> (siehe Listing 3) fügt die eigentlichen Einträge hinzu. Sie erwartet die gleichen Einträge wie AddSubfolders<\/b>. Hier definieren wir ein Recordset, dass alle Datensätze der Tabelle tblMenuEntries <\/b>enthält, die dem mit lngParentFolderID <\/b>übergebenen Ordner zugeordnet sind.<\/p>\n Listing 3: Prozedur zum Einfügen der untergeordneten Einträge<\/span><\/b><\/p>\n Für jeden Datensatz dieses Recordsets fügen wir wieder ein Element zum TreeView<\/b>-Steuerelement hinzu, wobei wir ähnlich wie in der zuvor beschriebenen Prozedur vorgehen.<\/p>\n Nachdem wir manuell einige Einträge zu den Tabellen hinzufügt haben, werden diese beim Öffnen des Formulars frmWindowsKontextmenue <\/b>wie in Bild 6 dargestellt.<\/p>\n Bild 6: TreeView-Steuerelement mit einigen Einträgen<\/span><\/b><\/p>\n Wir wollen die Tabelleneinträge nicht immer direkt in die Tabellen eingeben, sondern diese über ein Kontextmenü hinzufügen. Der Hauptknoten Daten <\/b>sollte beispielsweise die Einträge Neuer Ordner <\/b>und Neues Element <\/b>anzeigen. Für die Unterordner sollen die Einträge Neuer Ordner<\/b>, Neues Element <\/b>und Ordner löschen erscheinen. Schließlich sollen die Elemente im Kontextmenü den Befehl Element löschen <\/b>anbieten.<\/p>\n Die Kontextmenüs zeigen wir an, wenn das Ereignis MouseDown<\/b> des TreeView<\/b>-Steuerelements ausgelöst wird (siehe Listing 4). Hier prüfen wir, ob die rechte Maustaste zum Anklicken verwendet wurde.<\/p>\n Listing 4: Prozedur zum Anzeigen der Kontextmenüs<\/span><\/b><\/p>\n Danach holen wir mit den Koordinaten x <\/b>und y <\/b>aus den Parametern über die Funktion HitTest <\/b>das Objekt, das angeklickt wurde. Ist objNode <\/b>danach nicht leer, können wir das Kontextmenü für das entsprechende Element anzeigen.<\/p>\n Anderenfalls hat der Benutzer in den leeren Raum außerhalb der Elemente geklickt, was ein Kontextmenü mit den Befehlen Ordner hinzufügen <\/b>und Element hinzufügen <\/b>anzeigen soll.<\/p>\n Schauen wir uns erst einmal den Fall an, dass der Benutzer auf einen bestehenden Eintrag geklickt hat. In diesem Fall holen wir uns mit Zeichenkettenfunktionen aus der Eigenschaft Key <\/b>des Elements den Buchstaben und die ID und schreiben diese in die Variablen strChar <\/b>und lngID<\/b>.<\/p>\n Im Falle des Buchstaben f <\/b>hat der Benutzer einen Ordner angeklickt. Dann löschen wir ein eventuell bereits vorhandenes Kontextmenü namens Folders <\/b>und legen dieses im nächsten Schritt erneut an.<\/p>\n Dann fügen wir eine Schaltfläche mit dem Titel Ordner hinzufügen <\/b>hinzu und legen für seine Eigenschaft OnAction <\/b>den Ausdruck zum Aufruf der Funktion OrdnerHinzufuegen <\/b>fest, wobei wir gleich die ID für den übergeordneten Ordner hinzufügen.<\/p>\n Der Ausdruck sieht zum Beispiel wie folgt aus:<\/p>\n Auf die gleiche Weise fügen wir den Button mit der Beschriftung Ordner löschen <\/b>und einem Befehl wie dem folgenden hinzu:<\/p>\n Schließlich folgt noch eine Schaltfläche mit dem Text Element hinzufügen, welche beispielsweise den folgenden Aufruf enthalten soll:<\/p>\n Schließlich zeigen wir das Kontextmenü mit der Methode ShowPopup <\/b>an (siehe Bild 7).<\/p>\n Bild 7: Kontextmenü eines Ordners<\/span><\/b><\/p>\n Danach folgt das Kontextmenü, falls der Benutzer eines der Elemente angeklickt hat. Der Key dieser Elemente beginnt mit e<\/b>, also prüfen wir in der Select Case<\/b>-Bedingung auf diesen Buchstaben.<\/p>\n Hier löschen wir das gegebenenfalls bereits vorhandene Kontextmenü namens Entries <\/b>und fügen es erneut hinzu. Dieses erhält nur einen Button mit der Beschriftung Element löschen <\/b>und der folgenden Aktion:<\/p>\n Danach zeigen wir das Kontextmenü mit ShowPopup <\/b>an.<\/p>\n Schließlich folgt noch der Fall, dass der Benutzer außerhalb eines der Elemente geklickt hat.<\/p>\n Das Kontextmenü für diesen Fall soll die Befehle Ordner hinzufügen <\/b>und Element hinzufügen <\/b>anzeigen, welche Aufrufe wie die folgenden enthalten:<\/p>\n Damit hätten wir auch die Kontextmenüs hinzugefügt und können nun die aufzurufenden Funktionen erstellen. Die nachfolgend vorgestellten Funktionen tragen wir in einem neuen Standardmodul namens mdlCommandbars <\/b>ein und deklarieren mit dem Schlüsselwort Public<\/b>, da diese sonst nicht aufrufbar wären.<\/p>\n Die Funktion zum Hinzufügen eines Ordners unterhalb eines bestehenden Ordners finden wir in Listing 5. Hier nehmen wir die ID des übergeordneten Ordners entgegen und fragen dann per InputBox den Namen des neuen Ordners ab. Liefert die InputBox keine leere Zeichenkette und ist lngID <\/b>nicht 0<\/b>, trägt die Prozedur den neuen Datensatz in die Tabelle tblMenuFolders <\/b>ein.<\/p>\n Listing 5: Funktion zum Einfügen eines untergeordneten Ordners per Kontextmenü<\/span><\/b><\/p>\n Danach ermittelt sie die ID des neuen Eintrags, stellt strKey <\/b>und strSubkey <\/b>zusammen und fügt auch noch das entsprechende Element zum TreeView hinzu.<\/p>\n Falls lngID <\/b>den Wert 0 <\/b>enthält, wurde die Funktion ohne übergeordneten Ordner aufgerufen und wir führen die gleichen Schritte durch – allerdings wird in der Tabelle tblMenuFolders <\/b>kein übergeordneter Ordner angegeben. Außerdem legen wir das neue Element im TreeView auf der obersten Ebene an.<\/p>\n Die Funktion zum Anlegen eines neuen Menübefehls erfolgt weitgehend analog (siehe Listing 6). Auch hier übergeben wir mit lngID <\/b>die ID des übergeordneten Ordners.<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2025_04\/pic_481_002.png\")
<\/p>\n![\"Datenmodell](\"..\/fileadmin\/_temp_\/2025_04\/pic_481_003.png\")
<\/p>\nAufbau des TreeView-Steuerelements<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2025_04\/pic_481_004.png\")
<\/p>\nPrivate <\/span>objTreeView As <\/span>MSComctlLib.TreeView\r\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>db As <\/span>dao.Database\r\n Dim <\/span>rstImages As <\/span>dao.Recordset\r\n Dim <\/span>rstFolders As <\/span>dao.Recordset\r\n Dim <\/span>rstEntries As <\/span>dao.Recordset\r\n Dim <\/span>strKey As String<\/span>\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n Dim <\/span>objImageList As <\/span>MSComctlLib.ImageList\r\n \r\n Set<\/span> db = CurrentDb\r\n Set<\/span> objImageList = Me.ctlImageList.Object\r\n objImageList.ImageHeight = 16\r\n objImageList.ImageWidth = 16\r\n Set<\/span> rstImages = dbc.OpenRecordset(\"SELECT * FROM MSysResources WHERE type = ''img''\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstImages.EOF\r\n amvAddIconToImageListFromResources objImageList, rstImages!ID, rstImages!Name\r\n rstImages.MoveNext<\/span>\r\n Loop<\/span>\r\n \r\n \r\n Set<\/span> objTreeView = Me.ctlTreeview.Object\r\n objTreeView.Nodes.Clear\r\n Set<\/span> objTreeView.ImageList = objImageList\r\n \r\n Set<\/span> rstFolders = db.OpenRecordset(\"SELECT * FROM tblMenuFolders WHERE ParentMenuFolderID IS NULL\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstFolders.EOF\r\n strKey = \"f\" & rstFolders!MenuFolderID\r\n Set<\/span> objNode = objTreeView.Nodes.Add(, , strKey, rstFolders!MenuFolderCaption, \"folder\")\r\n objNode.Expanded = True<\/span>\r\n Call<\/span> AddSubfolders(db, rstFolders!MenuFolderID, strKey)\r\n Call<\/span> AddEntries(db, rstFolders!MenuFolderID, strKey)\r\n rstFolders.MoveNext<\/span>\r\n Loop<\/span>\r\n \r\n Set<\/span> rstEntries = db.OpenRecordset(\"SELECT * FROM tblMenuEntries WHERE ParentMenuFolderID IS NULL\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstEntries.EOF\r\n strKey = \"e\" & rstEntries!MenuEntryID\r\n objTreeView.Nodes.Add , , strKey, rstEntries!MenuEntryCaption, \"breakpoint\"\r\n rstEntries.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>objTreeView As <\/span>MSComctlLib.TreeView<\/pre>\n![\"Bilder](\"..\/fileadmin\/_temp_\/2025_04\/pic_481_005.png\")
<\/p>\nUnterordner zum TreeView hinzufügen<\/h2>\n
Private Sub <\/span>AddSubfolders(db As <\/span>dao.Database, lngParentFolderID As Long<\/span>, strKey As String<\/span>)\r\n Dim <\/span>rstSubfolders As <\/span>dao.Recordset\r\n Dim <\/span>strSubkey As String<\/span>\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n \r\n Set<\/span> rstSubfolders = db.OpenRecordset(\"SELECT * FROM tblMenuFolders WHERE ParentMenuFolderID = \" _\r\n & lngParentFolderID, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstSubfolders.EOF\r\n strSubkey = \"f\" & rstSubfolders!MenuFolderID\r\n Set<\/span> objNode = objTreeView.Nodes.Add(strKey, tvwChild, strSubkey, rstSubfolders!MenuFolderCaption, \"folder\")\r\n objNode.Expanded = True<\/span>\r\n Call<\/span> AddSubfolders(db, rstSubfolders!MenuFolderID, strSubkey)\r\n Call<\/span> AddEntries(db, rstSubfolders!MenuFolderID, strSubkey)\r\n rstSubfolders.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nElemente zum TreeView hinzufügen<\/h2>\n
Private Sub <\/span>AddEntries(db As <\/span>dao.Database, lngParentFolderID As Long<\/span>, strKey As String<\/span>)\r\n Dim <\/span>rstEntries As <\/span>dao.Recordset\r\n Dim <\/span>strSubkey As String<\/span>\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n \r\n Set<\/span> rstEntries = db.OpenRecordset(\"SELECT * FROM tblMenuEntries WHERE ParentMenuFolderID = \" _\r\n & lngParentFolderID, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstEntries.EOF\r\n strSubkey = \"e\" & rstEntries!MenuEntryID\r\n Set<\/span> objNode = objTreeView.Nodes.Add(strKey, tvwChild, strSubkey, rstEntries!MenuEntryCaption, \"breakpoint\")\r\n rstEntries.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nTesten des TreeView-Steuerelements<\/h2>\n
![\"TreeView-Steuerelement](\"..\/fileadmin\/_temp_\/2025_04\/pic_481_006.png\")
<\/p>\nKontextmenüs zum Hinzufügen und Löschen von Einträgen anlegen<\/h2>\n
Private Sub <\/span>ctlTreeview_MouseDown(ByVal Button As Integer<\/span>, ByVal Shift As Integer<\/span>, ByVal x As Long<\/span>, ByVal y As Long<\/span>)\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node, lngID As Long<\/span>, strChar As String<\/span>, cbr As <\/span>CommandBar\r\n Dim <\/span>cbbNewFolder As <\/span>CommandBarButton, cbbNewEntry As <\/span>CommandBarButton, cbbDeleteFolder As <\/span>CommandBarButton\r\n Dim <\/span>cbbDeleteEntry As <\/span>CommandBarButton\r\n \r\n If <\/span>Button = 2 Then<\/span>\r\n Set<\/span> objNode = objTreeView.HitTest(x, y)\r\n If <\/span>Not<\/span> objNode Is Nothing Then<\/span>\r\n strChar = Left<\/span>(objNode.Key, 1)\r\n lngID = Mid<\/span>(objNode.Key, 2)\r\n Select Case strChar\r\n Case <\/span>\"f\"\r\n On Error Resume Next<\/span>\r\n CommandBars(\"Folders\").Delete\r\n On Error GoTo<\/span> 0 \r\n Set<\/span> cbr = CommandBars.Add(\"Folders\", msoBarPopup, , True<\/span>)\r\n Set<\/span> cbbNewFolder = cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n cbbNewFolder.Caption = \"Ordner hinzufügen\"\r\n cbbNewFolder.OnAction = \"=AddFolder(\" & lngID & \")\"\r\n Set<\/span> cbbDeleteFolder = cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n cbbDeleteFolder.Caption = \"Ordner löschen\"\r\n cbbDeleteFolder.OnAction = \"=DeleteFolder(\" & lngID & \")\"\r\n Set<\/span> cbbNewEntry = cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n cbbNewEntry.Caption = \"Element hinzufügen\"\r\n cbbNewEntry.OnAction = \"=AddEntry(\" & lngID & \")\"\r\n cbr.ShowPopup\r\n Case <\/span>\"e\"\r\n On Error Resume Next<\/span>\r\n CommandBars(\"Entries\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbr = CommandBars.Add(\"Entries\", msoBarPopup, , True<\/span>)\r\n Set<\/span> cbbDeleteEntry = cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n cbbDeleteEntry.Caption = \"Element löschen\"\r\n cbbDeleteEntry.OnAction = \"=DeleteElement(\" & lngID & \")\"\r\n cbr.ShowPopup\r\n End Select<\/span>\r\n Else<\/span>\r\n On Error Resume Next<\/span>\r\n CommandBars(\"Folders\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbr = CommandBars.Add(\"Folders\", msoBarPopup, , True<\/span>)\r\n Set<\/span> cbbNewFolder = cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n cbbNewFolder.Caption = \"Ordner hinzufügen\"\r\n cbbNewFolder.OnAction = \"=AddFolder(0)\"\r\n Set<\/span> cbbNewEntry = cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n cbbNewEntry.Caption = \"Element hinzufügen\"\r\n cbbNewEntry.OnAction = \"=AddEntry(0)\"\r\n cbr.ShowPopup\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n=OrdnerHinzufuegen(1)<\/pre>\n
=DeleteFolder(1)<\/pre>\n
=AddEntry(1)<\/pre>\n
![\"Kontextmenü](\"..\/fileadmin\/_temp_\/2025_04\/pic_481_007.png\")
<\/p>\n=DeleteElement(1)<\/pre>\n
=AddFolder(0)\r\n=AddEntry(0)<\/pre>\n
Funktionen für die Kontextmenübefehle<\/h2>\n
Public Function <\/span>AddFolder(lngID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strFolder As String<\/span>\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n Dim <\/span>strKey As String<\/span>\r\n Dim <\/span>strSubkey As String<\/span>\r\n Dim <\/span>lngSubID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n strFolder = InputBox(\"Name des Ordners:\", \"Neuer Unterordner\")\r\n If <\/span>Not<\/span> Len<\/span>(strFolder) = 0 Then<\/span>\r\n If <\/span>Not<\/span> lngID = 0 Then<\/span>\r\n db.Execute \"INSERT INTO tblMenuFolders(MenuFolderCaption, ParentMenuFolderID) VALUES(''\" & strFolder & \"'', _\r\n \" & lngID & \")\", dbFailOnError\r\n lngSubID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n strSubkey = \"f\" & lngSubID\r\n strKey = \"f\" & lngID\r\n Set<\/span> objNode = Forms!frmWindowsKontextmenues!ctlTreeview.Object.Nodes.Add(strKey, tvwChild, _\r\n strSubkey, strFolder, \"folder\")\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblMenuFolders(MenuFolderCaption) VALUES(''\" & strFolder & \"'')\", dbFailOnError\r\n lngSubID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n strSubkey = \"f\" & lngSubID\r\n Set<\/span> objNode = Forms!frmWindowsKontextmenues!ctlTreeview.Object.Nodes.Add(, , strSubkey, strFolder, \"folder\")\r\n End If<\/span>\r\n objNode.Expanded = True<\/span>\r\n objNode.Parent.Expanded = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>AddEntry(lngID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strEntry As String<\/span>\r\n Dim <\/span>strKey As String<\/span>\r\n