<\/p>\n
![\"Diese](\"..\/fileadmin\/_temp_\/2025_05\/pic_1562_001.png\")
<\/p>\n
Bild 1: Diese Schaltflächenmatrix wollen wir per VBA erzeugen.<\/span><\/b><\/p>\n Manchmal benötigt man viele gleichartige Steuerelemente. Ein bekanntes Beispiel ist eine Kalenderansicht, wo man mehrere Wochen mit jeweils sieben Tagen über Schaltflächen anzeigen möchte. Ein aktuelles Beispiel aus dieser Ausgabe ist die Iconverwaltung aus dem Artikel „Icons in der Datenbank verwalten“. Hier wollen wir für die zu erzeugenden Schaltflächen die verfügbaren Icons in drei Reihen mit je 15 Icons anzeigen, damit der Benutzer schnell das gewünschte Icon auswählen kann. In diesem Beitrag zeigen wir, wie man solche Schaltflächen schnell zu einem Formular in der Entwurfsansicht hinzufügen kann.<\/b><\/p>\n Die gewünschte Matrix aus Schaltflächen sehen wir in Bild 1.<\/p>\n Bild 1: Diese Schaltflächenmatrix wollen wir per VBA erzeugen.<\/span><\/b><\/p>\n Wenn wir solche Schaltflächen anlegen wollen, haben wir zwei Möglichkeiten:<\/p>\n Die erste Variante hat den Vorteil, dass man hier nicht viel nachzudenken braucht. Es gibt sicherlich Gelegenheiten, an denen man Lust auf eine solche Aufgabe hat. Das Problem: Es dauert lange und man muss jederzeit mit Flüchtigkeitsfehlern rechnen, weil man beispielsweise die Schaltflächen nicht konsistent benennt. Außerdem ist das genaue Positionieren recht aufwändig.<\/p>\n Die zweite Variante erfordert eine gewisse Denkleistung und Programmierskills. Deshalb zeigen wir in diesem Beitrag, wie es genau funktioniert. Der Vorteil dieser Variante ist, dass Fehler kein Problem sind. Wenn sich herausstellt, dass die Größe der Schaltflächen nicht stimmt oder die Abstände nicht passen, können wir einfach die vorhandenen Steuerelemente löschen und die Prozedur erneut ausführen. Wichtig ist, dass wir wirklich alle Eigenschaften, die wir benötigen, direkt mit dem Code einstellen und diese nicht nachträglich ändern, weil wir sonst mit einer Neuerstellung der Schaltflächen die manuell hinzugefügten Änderungen wieder verwerfen würden.<\/p>\n Wie wir diese Matrix nutzen, lesen Sie im Beitrag Icons in der Datenbank verwalten <\/b>(www.access-im-unternehmen.de\/1564<\/b>).<\/p>\n Die notwendige Prozedur sehen wir in Listing 1. Hier deklarieren wir eine Formular-Variable, mit der wir das in der Entwurfsansicht geöffnete Zielformular referenzieren. Außerdem benötigen wir eine CommandButton<\/b>-Variable. Der Variablen frm <\/b>weisen wir per Code das Zielformular zu, hier frmCreateButtons<\/b>. Danach durchlaufen wir zwei Schleifen. Die äußere ist für die Zeilen, die innere für die einzelnen Steuerelemente. Wir erhöhen jeweils den Wert der Variablen lngName <\/b>um 1<\/b>.<\/p>\n<\/p>\n\n
Prozedur zum Erstellen der Schaltflächen-Matrix<\/h2>\n
Public Sub <\/span>Bildsteuerelemente()\r\n Dim <\/span>frm As <\/span>Form\r\n Dim <\/span>cmd As <\/span>Access.CommandButton\r\n Dim <\/span>x As Integer<\/span>, y As Integer<\/span>\r\n Dim <\/span>lngName As Long<\/span>\r\n Set<\/span> frm = Forms!frmCreateButtons\r\n For y = 1 To 3\r\n For x = 1 To 15\r\n lngName = lngName + 1\r\n Set<\/span> cmd = CreateControl(\"frmCreateButtons\", acCommandButton, acDetail, , , 270 + 430 * (x - 1), _\r\n 1350 + 430 * y - 1, 360, 360)\r\n With<\/span> cmd\r\n .Name = \"cmd\" & Format(lngName, \"000\")\r\n .BackStyle = 1\r\n .BackColor = &HFFFFFF\r\n .HoverColor = 14277081\r\n .PressedColor = 12566463\r\n .OnClick = \"=cmdClick(\" & lngName & \")\"\r\n End With<\/span>\r\n Next<\/span> x\r\n Next<\/span> y\r\nEnd Sub<\/span><\/pre>\n