Das comboBox-Element<\/h2>\n
Das comboBox<\/b>-Element können Sie statisch per XML-Code füllen oder auch dynamisch über entsprechende Callback-Funktionen. Ein Beispiel für ein statisches comboBox<\/b>-Element definieren wir wie folgt:<\/p>\n Das Ergebnis finden Sie in Bild 1. Damit die Bilder angezeigt werden, benötigen Sie weiteren Code, den wir im Artikel Ribbon für die Handyverwaltung <\/b>beschreiben.<\/p>\n Bild 1: Beispiel einer comboBox<\/p>\n Das können wir auch dynamisch hinbekommen. Dazu fügen wir einem neuen comboBox<\/b>-Element namens cboProviderDynamisch <\/b>einfach vier weitere Attribute hinzu, nämlich getItemCount<\/b>, getItemLabel<\/b> und getItemID<\/b>. Die Definition des Elements sieht danach wie folgt aus:<\/p>\n Für die drei Callback-Attribute hinterlegen wir entsprechende Prozeduren. Dabei ist eine kleine Vorbemerkung nötig. Die Callback-Prozeduren werden nämlich nach einem bestimmten Schema aufgerufen. Die Callback-Prozedur für das Attribut getItemCount <\/b>wird einmal zu Beginn aufgerufen. Diese erwartet als Rückgabewert vor allem einen Wert für den Parameter count<\/b>, der die Anzahl der anzuzeigenden Einträge enthalten sollte. Die anderen beiden Callbacks für die Attribute getItemID <\/b>und getItemLabel <\/b>werden entsprechend der Anzahl der mit count ermittelten Einträge aufgerufen. Dabei übergibt der zweite Parameter jeweils den Wert für den Index des aktuellen Durchlaufs an. Das heißt, das wir optimalerweise in der Prozedur getItemCount <\/b>ein Array anlegen, das wir mit den beim Zählen und dabei Durchlaufen der Datensätze mit den relevanten Daten, also dem Index und der Beschriftung füllen. Damit wir dieses zweidimensionale Array in der ersten Prozedur füllen und anschließend in den beiden Prozeduren getItemID <\/b>und getLabelID <\/b>auslesen können, deklarieren wir es im Kopf unseres Moduls namens mdlRibbon<\/b>, in dem sich auch die übrigen Ribbon-spezifischen Prozeduren befinden:<\/p>\n Diese nutzen wir dann in der Prozedur getItemCount<\/b>, die wir wie in Listing 1 aufbauen. Sie ermittelt die anzuzeigenden Daten aus der Tabelle tblProvider <\/b>über ein Recordset, das sie anschließend in einer Do While<\/b>-Schleife durchläuft. Dabei erweitert sie zunächst die Anzahl der Einträge im Array mit der Redim<\/b>-Anweisung, wobei wir die Anzahl der ersten Dimension auf 2 <\/b>und die der zweiten Dimension auf die aktuelle Anzahl der Datensätze plus eins einstellen und die bereits eingetragenen Elemente durch das Preserve<\/b>-Schlüsselwort beibehalten. Dann schreibt die Prozedur innerhalb der Schleife den Wert des Feldes ProviderID <\/b>in die erste Spalte des Arrays und den des Feldes Bezeichnung <\/b>in die zweite Spalte. Außerdem erhöht sie die Zählervariable i <\/b>um eins.<\/p>\n Listing 1: Ermitteln der Anzahl der einzulesenden Datensätze und Speichern der Datensätze in einem Array<\/p>\n Danach trägt sie den Wert von i <\/b>für den Rückgabeparameter count <\/b>ein.<\/p>\n Nun haben wir beispielsweise den Wert 3 zurückgegeben. Das bedeutet, dass die beiden Prozeduren getItemID <\/b>und getItemLabel <\/b>jeweils drei Mal aufgerufen werden. Die Prozedur getItemID <\/b>sieht dabei beispielsweise wie folgt aus:<\/p>\n Die Prozedur erhält mit control <\/b>einen Verweis auf das aufrufende Ribbon-Element und mit index <\/b>die Nummer des aktuell auszulesenden Elements. Außerdem hat sie einen Rückgabeparameter namens id<\/b>. Die einzige Zeile dieser Prozedur trägt den Wert des Array für die erste Spalte und die mit index <\/b>übergebene Spalte in die Variable id <\/b>für den Rückgabewert ein.<\/p>\n Die Prozedur getItemLabel <\/b>arbeitet auf identische Weise. Der Unterschied ist, dass der Rückgabeparameter label <\/b>heißt und das wir diesem den Wert aus der zweiten Spalte und den angegebenen Index aus dem Array zuweisen:<\/p>\n Das Ergebnis sieht wie in Bild 2 aus, also prinzipiell genauso wie beim ersten Beispiel. Die Beispielbilder haben wir weggelassen, da es ja auch keine in der Tabelle tblProvider <\/b>gespeicherten Bilder für diese Einträge gibt.<\/p>\n Bild 2: Dynamisch gefülltes comboBox-Element<\/p>\n Wenn der Benutzer nun einen der Einträge auswählt, wollen wir diese Auswahl natürlich auch auswerten können. Dazu nutzen wir im Falle des comboBox<\/b>-Elements das Attribut onChange<\/b>, das wir wie folgt zum Element hinzufügen:<\/p>\n Wenn der Benutzer nun einen der Einträge auswählt, soll ein Meldungsfenster die Bezeichnung des gewählten Eintrags ausgeben, was wie in Bild 3 aussieht.<\/p>\n Bild 3: Auswertung des gewählten Eintrags<\/p>\n Dazu legen wir die folgende Prozedur an:<\/p>\n Das ist ja sehr praktisch, dass der Parameter text <\/b>direkt die Bezeichnung des gewählten Elements liefert. Wenn man allerdings nicht wie im Beispiel einfach nur die Bezeichnung ausgeben, sondern etwas mit dem zugrunde liegenden Datensatz erledigen möchte, wird es kompliziert – man müsste dann per DLookup <\/b>erst den Primärschlüsselwert zu diesem Eintrag ermitteln und könnte erst dann weiterarbeiten. Allerdings gibt es auch keinen Ausweg – es sei denn, Sie setzen auf das zweite in diesem Artikel vorgestellte Steuer-element, das dropDown<\/b>-Element!<\/p>\n Wenn man wie wir ein dropDown<\/b>-Element genauso ausstattet wie das eingangs beschriebene comboBox<\/b>-Element und beide genau gleich aussehen, fragt man sich natürlich, wozu Microsoft überhaupt zwei solcher Steuer-elemente vorgesehen hat (siehe Bild 4). Hier sehen Sie den Code, der für das bis auf die Bilder, die wir schlicht eingespart haben, identische dropDown<\/b>-Element nötig ist:<\/p>\n Bild 4: Eineiiger Zwilling des comboBox-Elements – aber nur optisch: das dropDown-Element<\/p>\n Die Unterschiede werden erst dann offensichtlich, wenn wir uns die Attribute und hier speziell die Callback-Attribute ansehen.<\/p>\n Ein voll ausgestattes dropDown<\/b>-Element sieht beispielsweise wie folgt aus:<\/p>\n Hier sehen Sie schon, dass es kein onChange<\/b>-Attribut gibt, das beim Auswählen eines Eintrags ausgewählt wird, sondern stattdessen ein onAction<\/b>-Attribut. Außerdem finden wir hier zusätzlich ein Attribut namens getSelectedItemID<\/b>.<\/p>\n Wir können die für das comboBox<\/b>-Element verwendeten Prozeduren getItemCount<\/b>, getItemLabel <\/b>und getItemID <\/b>beibehalten beziehungsweise mitnutzen. Neu hinzugefügt haben wir die Callback-Prozedur getSelectedItemID<\/b>, die wie folgt aussieht:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Beispiel](\"..\/tl_files\/images\/pic_403_001.png\")
<\/a><\/p>\ncomboBox dynamisch füllen<\/h2>\n
Dim <\/span>strProvider() As String<\/span><\/pre>\nSub <\/span>getItemCount(control As <\/span>IRibbonControl, ByRef count)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblProvider\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n ReDim Preserve strProvider(2, i + 1) As String<\/span>\r\n strProvider(0, i) = rst!ProviderID\r\n strProvider(1, i) = rst!Bezeichnung\r\n i = i + 1\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n count = i\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nSub <\/span>getItemID(control As <\/span>IRibbonControl, _\r\n index As Integer<\/span>, ByRef id)\r\n id = strProvider(0, index)\r\nEnd Sub<\/span><\/pre>\nSub <\/span>getItemLabel(control As <\/span>IRibbonControl, _\r\n index As Integer<\/span>, ByRef label)\r\n label = strProvider(1, index)\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nBeim Auswählen eines Eintrags<\/h2>\n
<\/a><\/p>\nSub <\/span>onChange(control As <\/span>IRibbonControl, text As String<\/span>)\r\n MsgBox<\/span> \"Sie haben den Eintrag '\" _\r\n & text & \"' ausgewählt.\"\r\nEnd Sub<\/span><\/pre>\nDas dropDown-Element<\/h2>\n
<\/a><\/p>\nSub <\/span>getSelectedItemID(control As <\/span>IRibbonControl, _\r\n ByRef index)\r\n index = strProvider(0, 1)\r\nEnd Sub<\/span><\/pre>\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