![\"Hinzufügen](\"..\/tl_files\/images\/pic_223_001.png\")
<\/a><\/p>\nBild 1: Hinzufügen eines Root-Knotens zum TreeView-Steuerelement<\/p>\n
Element löschen<\/h2>\n
Als Erstes wollen wir einen Kontextmenü-Eintrag hinzufügen, mit dem der Benutzer eines der Kunden-Elemente löschen kann. Das Kontextmenü soll beim Anklicken des zu löschenden Elements angezeigt werden und einen Eintrag namens Löschen <\/b>anbieten. Um das Herunterdrücken der rechtem Maustaste abzufangen, verwenden wir die Ereignisprozedur, die durch das Ereignis MouseDown <\/b>ausgelöst wird. Für ActiveX-Steuerelemente legen Sie eine solche Ereignisprozedur nicht über die entsprechende Eigenschaft im Eigenschaftsfenster an, sondern direkt im VBA-Fenster.<\/p>\n
Für das TreeView<\/b>-Steuerelement liegt bereits eine Objektvariable namens m_TreeView <\/b>vor, die mit dem Schlüsselwort WithEvents <\/b>deklariert wurde und somit auch Ereignisprozeduren ausführt.<\/p>\n
öffnen Sie also das Klassenmodul Form_frmTreeviewKontextmenue <\/b>und wählen Sie dann erst im linken Kombinationsfeld den Eintrag m_TreeView<\/b> und im rechten den Eintrag MouseDown <\/b>aus (siehe Bild 2).<\/p>\n
Bild 2: Anlegen der Ereignisprozedur MouseDown<\/p>\n Die auf diese Weise erstellte Ereignisprozedur m_TreeView_MouseDown <\/b>liefert mit dem Parameter Button <\/b>einen Wert, der über die betätigte Maustaste Auskunft gibt. Diesen können Sie über die beiden Konstanten acLeftButton <\/b>oder acRightButton <\/b>prüfen. In diesem Fall interessiert uns, ob der Benutzer die rechte Maustaste gedrückt hat. Wir können die Ereignisprozedur also mit einer Bedingung wie der folgenden anreichern:<\/p>\n Fehlt nur noch der Code, der ermittelt, welches Element der Benutzer angeklickt hat und der das passende Kontextmenü zusammenstellt. Hat der Benutzer tatsächlich mit der rechten Maustaste auf das Treeview<\/b>-Steuerelement geklickt, können verschiedene Fälle eintreten:<\/p>\n Wenn der Benutzer kein Element getroffen hat, soll nichts geschehen. Aber wie prüfen wir das Indem wir die Funktion HitTest <\/b>des TreeView<\/b>-Steuerelements nutzen. Diese erwartet die Koordinaten für den Punkt, den der Benutzer angeklickt hat. Diese liefert die Ereignisprozedur MouseDown <\/b>ebenfalls, und zwar mit den Parametern x <\/b>und y<\/b>.<\/p>\n Da wir Informationen von dem angeklickten Node<\/b>-Element benötigen, in diesem Fall den Wert der Key<\/b>-Eigenschaft, speichern wir den Verweis auf das Node<\/b>-Element in einer Variablen zwischen.<\/p>\n Diese deklarieren wir vorher wie folgt:<\/p>\n Dem Key<\/b>-Wert entnehmen wir zwei Informationen: den als erstes Zeichen angegebenen Buchstaben, der den Typ des Elements liefert (zum Beispiel r <\/b>für Root, k <\/b>für Kunde, b <\/b>für Bestellung oder p <\/b>für Bestellposition) und die folgende Zahlenkombination, die dem Primärschlüsselwert des Datensatzes in der passenden Tabelle entspricht.<\/p>\n Diese Informationen sollen ebenfalls gespeichert werden, und zwar in den folgenden Variablen:<\/p>\n Die folgenden Anweisungen ermitteln zunächst das angeklickte Element:<\/p>\n Da HitTest <\/b>den Wert Nothing <\/b>übergibt, wenn kein Element angeklickt wurde, sondern ein leerer Bereich im TreeView<\/b>-Steuerelement, prüfen wir vor den weiteren Schritten, ob objNode <\/b>überhaupt mit einem Verweis auf ein angeklicktes Element gefüllt wurde und lesen dann die gewünschten Informationen aus:<\/p>\n Damit ausgestattet können wir eine Select Case<\/b>-Bedingung anlegen, die den Wert der Variablen strTyp <\/b>prüft. In unserem Beispiel enthält strTyp <\/b>einen der Werte r<\/b>, k<\/b>, b <\/b>oder p<\/b>. Um die übersichtlichkeit zu erhalten, rufen wir für jeden Wert eine eigene Prozedur zum Anzeigen des Kontextmenüs auf.<\/p>\n Diese heißen KontextmenueRootAnzeigen<\/b>, KontextmenueKundenAnzeigen <\/b>und so weiter. Alle Prozeduren außer das für das Root-Element nehmen den Primärschlüsselwert des angeklickten Elements als Parameter entgegen. Die vollständige Ereignisprozedur m_TreeView_MouseDown <\/b>finden Sie in Listing 2.<\/p>\n Listing 2: Aufrufen der Prozeduren zum Anzeigen der verschiedenen Kontextmenüs<\/p>\n Wir wollen mit dem Kontextmenü-Eintrag zum Löschen des aktuell angeklickten Kunden beginnen. Die entsprechende Prozedur heißt KontextmenueKundeAnzeigen<\/b> und sieht wie in Listing 3 aus. Die Prozedur deklariert eine CommandBar<\/b>– und eine CommandBarButton<\/b>-Variable. Dann löscht sie ein eventuell bereits vorhandenes Kontextmenü namens TreeView_Kunde<\/b>.<\/p>\n Listing 3: Anzeigen des Kontextmenüs für einen Kunden, hier zunächst mit der Mögilchkeit zum Löschen des Kunden<\/p>\n Da dies einen Fehler auslösen kann, deaktiviert die Prozedur die integrierte Fehlerbehandlung für die Durchführung dieser Anweisung.<\/p>\n Anschließend fügt sie mit der Add<\/b>-Methode der CommandBars<\/b>-Auflistung ein neues Kontextmenü namens TreeView_Kunde <\/b>hinzu. Dabei gibt sie mit dem ersten Parameter den Namen und mit dem zweiten den Menütyp an. Der dritte Parameter legt fest, dass es sich nicht um eine Menüleiste handelt und der vierte sorgt dafür, dass das Kontextmenü nur temporär erstellt wird – damit wird es beim Schließen von Access gelöscht.<\/p>\n Für das mit cbr <\/b>referenzierte Kontextmenü fügt die Prozedur mit der Add<\/b>-Methode der Controls<\/b>-Auflistung einen neuen Kontextmenü-Eintrag hinzu. Der Typ wird mit dem Wert msoControlButton <\/b>festgelegt. Anschließend stellt die Prozedur noch die beiden Eigenschaften Caption <\/b>(Beschriftung) und OnAction <\/b>ein. Letztere erwartet den Aufruf der beim Auswählen des Kontextmenü-Eintrags auszuführenden VBA-Funktion. Dieser soll gleich den Primärschlüsselwert des angeklickten TreeView<\/b>-Elements übergeben, daher wird der Aufruf aus =KundeLoeschen<\/b>, einer öffnenden Klammer, dem Primärschlüsselwert und einer schließenden Klammer zusammengesetzt – also zum Beispiel als =KundeLoeschen(123)<\/b>.<\/p>\n Die ShowPopup<\/b>-Methode des CommandBar<\/b>-Objekts zeigt das soeben erstellte Kontextmenü schließlich an (siehe Bild 3).<\/p>\n Bild 3: Anzeigen des Kontextmenüs für einen Kunden<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nSelect Case Button\r\n Case <\/span>acRightButton\r\n 'Kontextmenü anzeigen\r\nEnd Select<\/span><\/pre>\n\n
Dim <\/span>objNode As <\/span>MSComctlLib.Node<\/pre>\nDim <\/span>strTyp As String<\/span>\r\nDim <\/span>lngID As Long<\/span><\/pre>\nSet<\/span> objNode = m_Treeview.HitTest(x, y)<\/pre>\nIf <\/span>Not<\/span> objNode Is Nothing Then<\/span>\r\n strTyp = Left<\/span>(objNode.Key, 1)\r\n lngID = Mid<\/span>(objNode.Key, 2)\r\nEnd If<\/span><\/pre>\nPrivate Sub <\/span>m_Treeview_MouseDown(ByVal Button As Integer<\/span>, ByVal Shift As Integer<\/span>, ByVal x As <\/span>stdole.OLE_XPOS_PIXELS, _\r\n ByVal y As <\/span>stdole.OLE_YPOS_PIXELS)\r\n Dim <\/span>strTyp As String<\/span>\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n Select Case Button\r\n Case <\/span>acRightButton\r\n Set<\/span> objNode = m_Treeview.HitTest(x, y)\r\n If <\/span>Not<\/span> objNode Is Nothing Then<\/span>\r\n strTyp = Left<\/span>(objNode.Key, 1)\r\n lngID = Mid<\/span>(objNode.Key, 2)\r\n Select Case strTyp\r\n Case <\/span>\"k\"\r\n KontextmenueKundeAnzeigen(lngID)\r\n Case <\/span>\"r\"\r\n KontextmenueRootAnzeigen\r\n Case <\/span>\"b\"\r\n KontextmenueBestellungAnzeigen(lngID)\r\n Case <\/span>\"p\"\r\n KontextmenuePositionAnzeigen(lngID)\r\n End Select<\/span>\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>KontextmenueKundeAnzeigen(lngID As Long<\/span>)\r\n Dim <\/span>cbr As <\/span>Office.CommandBar\r\n Dim <\/span>cbc As <\/span>Office.CommandBarButton\r\n On Error Resume Next<\/span>\r\n CommandBars(\"TreeView_Kunde\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbr = CommandBars.Add(\"TreeView_Kunde\", msoBarPopup, False, True<\/span>)\r\n With<\/span> cbr\r\n Set<\/span> cbc = .Controls.Add(msoControlButton)\r\n With<\/span> cbc\r\n .Caption = \"Kunde löschen\"\r\n .OnAction = \"=KundeLoeschen(\" & lngID & \")\"\r\n End With<\/span>\r\n .ShowPopup\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nKunden löschen<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t