Dieser Tipp zeigt eine Vereinfachung für das Ereignis Outbar_Click bei der Verwendung unter Access (97/2000/XP) in Verbindung mit dem Aufruf der jeweiligen Unterformulare. Im mitgelieferten Beispiel enthält der Code folgende geschachtelte SELECT-Anweisung, um beim Klick auf ein Outbar-Element das jeweilige Unterformular anzuzeigen: Private Sub OutBar1_Click(ByVal Group As Long, ByVal Item As Long) Select Case Group ' 1. Gruppe... Case 1 ' Welches Element? Select Case Item Case 1 ' 1. Element Me![Unterformular].SourceObject = "frm_Features" Case 2 ' 2. Element Me![Unterformular].SourceObject = "frm_Infos" Case 3 ' 3. Element Me![Unterformular].SourceObject = "frm_Bestellen" ' ... End Select ' 2. Gruppe... Case 2 ' Welches Element? Select Case Item ... End Select End Select End Sub Für jede neu hinzugefügte Gruppe oder Item müssen die SELECT-Statements erweitert werden. Wesentlich einfacher und flexibler ist es für die Zuordnung des Dialoges die ItemTag-Eigenschaften zu benutzen. Für jedes Item wird im Eigenschaften-Dialog neben dem Titel usw. das Feld "Tag" mit dem Namen des Dialoges belegt, der beim Klick auf das Item aufgerufen werden soll.
Der VBA-Code selbst vereinfacht sich dann zu einem Einzeiler! Private Sub OutBar1_Click(ByVal Group As Long, ByVal Item As Long) ' SubForm steht im Tag Me![Unterformular].SourceObject = OutBar1.ItemTag(Group, Item) End Sub Die ItemTag-Eigenschaft benötigt die Gruppe und die Nummer des gewünschten Items. Diese beiden Werte werden für das aktuell angeklickte Item ja als Parameter zum Click-Ereignis mitgeliefert. Auch Bei Änderungen, Ergänzungen der Gruppe, Items ist nur die ItemTag-Eigenschaft neu zu belegen. Es ist dann keine Code-Änderungen mehr notwendig, was (wenn der Dialog schon vorhanden ist) auch das Hinzufügen/Ändern /Löschen zur Laufzeit ermöglicht (siehe mitgeliefertes VB6 Beispiel). Download sevOutBar ActiveX: Dieser Tipp wurde bereits 17.878 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |