<\/p>\n
Erweitern Sie Ihre Formulare um Splitter-Steuerelemente, damit der Benutzer die Größe einzelner Bereiche selbst anpassen kann.<\/p>\n
Formulare, VBA<\/p>\n
Access 200 und höher<\/p>\n
Splitform00.mdb<\/p>\n
Sascha Trowitzsch, Berlin<\/b><\/p>\n
Sie kennen sie aus fast jeder umfangreicheren Anwendung: Balken, die Fenster in Bereiche aufteilen und sich mit der Maus verschieben lassen. Im Explorer von Windows beispielsweise trennt ein solches Balkenelement die linke Seite mit dem Verzeichnisbaum von der rechten, die die Dateien abbildet. In den meisten visuellen Entwicklungsumgebungen nennt sich ein solches Balkensteuerelement Splitter. Man kann es in ein Formular einfügen und hat anschließend automatisch und ohne weitere Programmierung zwei getrennte Formularbereiche. Leider hält MS Access weder ein solches Steuerelement vor, noch sind die Formulare für diese Zwecke vorbereitet. Dabei würde sich dieses GUI-Feature gerade in Datenbanken oft gut machen. Dieser Beitrag zeigt Ihnen, wie sich solche Splitter mit etwas Handarbeit auch in Access-Formularen simulieren lassen.<\/b><\/p>\n
Nehmen wir an, Sie möchten ein Formular erstellen, das drei durch horizontale und vertikale Splitter getrennte Bereiche enthält, wie in Bild 1 dargestellt.<\/p>\n
Die Splitter darin befinden sich im Detailbereich des Formulars. Oben und unten zeigen sich Kopf- und Fußbereiche (wir nennen im Folgenden den vertikalen Splitter-Balken SplitterV und den horizontalen SplitterH).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{D118D386-851C-4FDB-908A-6FB0DCA04F52}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Formular mit vertikalen und horizontalen Splittern<\/span><\/b><\/p>\n Auf der Suche nach einem für die Splitter-Balken geeigneten Steuerelement wird man etwa mit dem Rechteck-Steuerelement fündig. Eine Alternative wäre ein Optionsgruppenrahmen ohne Beschriftung. Beide lösen Mausereignisse wie Bei Maustaste Ab oder Bei Mausbewegung Auf, die die Voraussetzung dafür bilden, dass sich der Balken dann mit der Maus bewegen lässt. Nun sollte sich aber der Mauszeiger beim überfahren der Splitter in die bekannten NordSüd- oder OstWest-Cursor verändern, damit die Funktion des Splitters offensichtlich wird (siehe Bild 2).<\/p>\n <\/b><\/p>\n Bild 2: „OstWest“- und „NordSüd“-Cursor<\/span><\/b><\/p>\n Unter Access lässt sich jedoch etwa einem Rechteck-Steuerelement kein bestimmter Mauszeiger zuordnen. Man müsste dies per VBA programmieren und dabei das Ereignis Bei Mausbewegung verwenden. Sobald der Mauszeiger jedoch den Splitter verlässt, müsste er wieder auf den normalen Cursor zurückgesetzt werden.<\/p>\n Mit einem anderen Steuerelement entledigt man sich hier jeglicher Programmierarbeit: dem MSForms-Rahmensteuerelement. Sie finden dieses ActiveX-Steuerelement in der mit jeder Access-Installation bereitgestellten Bibliothek MSForms.<\/p>\n Gehen Sie dazu im Formularentwurf auf den Menüeintrag Einfügen\/ActiveX-Steuerelement… und wählen Sie im Dialog das Element Microsoft Forms 2.0 Frame aus. Die anschließend im Formular erscheinende Fläche verändern Sie in der Größe zu einem Balken.<\/p>\n Benennen Sie das Element in ctlSplitter um und stellen Sie dann im Eigenschaftsfenster unter dem Reiter Andere die Eigenschaft MousePointer auf SizeNS, falls es sich um einen horizontalen Splitter handelt, und auf SizeWE für einen vertikalen Splitter.<\/p>\n Beim öffnen des Formulars sehen Sie dann den gewünschten Effekt: Der Mauszeiger verändert sich in den Resize-Cursor, wenn Sie über den Balken fahren. Als ActiveX-Steuerelemente haben MSForms-Frames außerdem den Vorteil, dass sie im Formular immer im Vordergrund erscheinen. Ein normales Access-Steuerelement kann niemals ein ActiveX-Steuerelement überdecken – auch wenn dies im Formularentwurf danach aussehen sollte.<\/p>\n Die nächste Aufgabe ist das Bewegen des Splitters, wenn die linke Maustaste auf ihm gedrückt und dann in eine Richtung gezogen wird. Wie jedes andere Steuerelement auch hat der Splitter die Eigenschaften Left und Top, mit denen man ihn zur Laufzeit per VBA im Formular positionieren kann.<\/p>\n Diese Eigenschaften müssen in Abhängigkeit von Mausereignissen gesetzt werden. Im Eigenschaftsfenster des markierten Splitters suchen Sie die üblichen Mausereignisse indessen vergeblich.<\/p>\n Die speziellen Ereignisprozeduren von ActiveX-Steuerelementen müssen Sie nämlich allesamt im Code-Fenster des VBA-Editors anlegen: öffnen Sie das Formularmodul, wählen Sie aus dem Kombinationsfeld links oben im Code-Fenster das Steuerelement ctlSplitter aus und schon füllt sich das rechte Kombinationsfeld mit den verfügbaren Ereignisnamen. <\/p>\n Hier nehmen Sie das Ereignis MouseMove. Im Code wird dann automatisch die Ereignisprozedur ctlSplitter_MouseMove erzeugt, die als Parameter die X- und Y-Werte des Mauszeigers zurückgibt. Wohlgemerkt: Die X- und Y-Werte innerhalb des Splitter-Steuerelements, nicht in Relation zu Formularkoordinaten! Für einen horizontalen Splitter, der sich nach oben und unten verschieben lassen soll, sähe der Code zur Positionierung wie in Quellcode 1 aus.<\/p>\n Quellcode 1: Verschieben des Splitters in Y-Richtung<\/b><\/p>\n Wird also die Maus bei gedrückter linker Taste (acLeftButton) über dem Splitter nach unten bewegt, dann drückt sich das im Wert des Parameters Y aus. Er wird dazu verwendet, um die Eigenschaft Top des Splitters neu zu setzen. Damit die neue Position auf dem Bildschirm auch sofort sichtbar wird, muss eine DoEvents-Anweisung zur Aktualisierung eingebaut sein, weil sie Windows unmittelbar ermöglicht, etwa Grafik-Routinen abzuarbeiten.<\/p>\n Der Trick an der Sache ist außerdem, dass nach Neupositionierung des Splitters die Berechnung der folgenden Werte für Y bei Mausbewegung wieder relativ zu dessen linker oberer Ecke erfolgt, die ja nun verschoben ist. Bei langsamer Mausbewegung führt das dazu, dass immer 1 für Y im Ereignis übergeben wird.<\/p>\n übrigens wird Quellcode 1 nicht zum Erfolg führen, wenn Sie einen MSForms-Frame als Splitter-Steuerelement verwenden: Dieser gibt im Ereignisparameter Y einen Wert zurück, der die Maßeinheit Points des Datentyps Single reflektiert. Diese Einheit ist mit den unter Access üblichen Twips nicht identisch, sondern muss erst umgerechnet werden. Die Formel dafür lautet:<\/p>\n 1 Point = 20 Twips<\/p>\n Also lautet die Codezeile korrekt:<\/p>\n Quellcode 2: Verschieben des Splitters begrenzen<\/b><\/p>\n <\/p>\n Die Beispieldatenbank verwendet für die Umwandlung der Einheiten der besseren übersicht halber übrigens die Hilfsfunktion Pts2Twips. Wenn Sie sicherstellen wollen, dass der Splitter mit der Maus nicht über den Rand eines Formulars hinausgezogen wird oder dass er sich nur innerhalb bestimmter Grenzen bewegt, dann bauen Sie entsprechende Bedingungen wie in Quellcode 2 ein.<\/p>\n Hiermit kann sich das Splitter-Steuerelement maximal bis 30 Twips an den oberen Rand bewegen und maximal 5.000 Twips (ca. 8,8 cm) nach unten. <\/p>\n Mit den bisher vorgestellten Techniken können Sie den Splitter im Formular verschieben und gegebenenfalls andere Steuerelemente neu positionieren; Letzteres wird später erläutert.<\/p>\n Ein Manko ist allerdings, dass bei in der Größe veränderbaren Formularen – der häufigste Fall in Access-Anwendungen – das Splitter-Steuerelement selbst nicht „mitwächst“.<\/p>\n Ein horizontaler Splitter etwa sollte aber immer die Breite des Formulars besitzen, ein vertikaler die Höhe des Detailbereichs. Alles andere sieht seltsam aus.<\/p>\n Folglich muss er im Ereignis Bei Größenänderung des Formulars (Form_Resize) den Abmessungen desselben angepasst werden. Doch leichter gesagt als getan, denn dazu müssen Sie erst einen Ausflug in die Logik der Abmessungen von Formularbereichen unternehmen.<\/p>\n Abmessungen von Formularbereichen<\/b><\/p>\n Sollen Ausdehnung und Positionierung von Steuerelementen innerhalb eines veränderbaren Formulars von dessen Größe abhängen, dann müssen im Ereignis Bei Größenänderung (Form_Resize) verschiedene Abmessungen des Formulars ermittelt und Koordinaten sowie Breite und Höhe der Steuerelemente neu angepasst werden. <\/p>\n Dabei hält Access einige Fallstricke bereit, auf die die Online-Hilfe nicht hinreichend eingeht. In Bild 3 sehen Sie schematisch ein Formular, das die Eigenschaft Veränderbar besitzt und in dem Formularkopf und -fuß eingeschaltet sind (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 3: Abmessungen von Formularbereichen<\/span><\/b><\/p>\n Nach dem öffnen wurde das Formular in Breite und Höhe etwas vergrößert. Das ist durch die durchgezogenen zwei horizontalen und vertikalen Linien kenntlich gemacht. <\/p>\n Nach dem öffnen ist die Formularbreite in VBA mit Me.Width zu ermitteln. Wird es in der Breite verändert, dann ändert sich diese Eigenschaft hingegen nicht und gibt weiterhin den im Entwurf gespeicherten Wert zurück. Stattdessen steht nun in Me.InsideWidth die tatsächlich sichtbare Breite.<\/p>\n Hier wird es komplizierter. Eine Eigenschaft Me.Height kennt das Formular nicht, weil es vertikal aus einzelnen Bereichen wie dem Kopfbereich, dem Fußbereich und dem Detailbereich zusammengesetzt ist. <\/p>\n Da Kopf- und Fußbereich sich zur Laufzeit nicht mit der Maus vergrößern lassen, gibt es für sie jeweils nur eine Höheneigenschaft, die auch dem im Entwurf gespeicherten Wert entspricht:<\/p>\n und<\/p>\n (Sind beide ausgeblendet, so existieren sie dennoch, haben aber als Höhe den Wert 0.)<\/p>\n Zieht man das Formular mit der Maus höher, dann vergrößert sich der Detailbereich. Das ändert aber wiederum nicht die Eigenschaft Me.Section(acDetail).Height.<\/p>\n Sichtbar wird dies, wenn für die Formulareigenschaft Trennlinien der Wert Ja angegeben wurde. Die Trennlinie bleibt an der Stelle erhalten, die der gespeicherten Detailbereichshöhe entspricht. Stattdessen entsteht ein scheinbar neuer Bereich unterhalb der Trennlinie.<\/p>\n Bedauerlicherweise gibt es nun keine Eigenschaft Me.Section(acDetail).InsideHeight, die etwa die Höhe des veränderten Detailbereichs wiedergäbe. Hingegen ändert sich die Eigenschaft Me.InsideHeight des gesamten Formulars – abzüglich des eventuell vorhandenen Navigationsbereichs.<\/p>\n Der veränderte Detailbereich muss hieraus berechnet werden. Von Me.InsideHeight wird dazu die Höhensumme aus Kopf- und Fußbereich abgezogen:<\/p>\n Sie können das im Formular frmSizes der Beispieldatenbank nachvollziehen, in dem bei Größenänderung die einzelnen Abmessungen in Textfeldern ausgegeben werden (siehe Bild 4).<\/p>\n Neue Abmessungen der Splitter<\/b><\/p>\n Die wichtigsten Resultate der vorherigen Abschnitte sind: <\/p>\n <\/b><\/p>\n Bild 4: Breite und Höhe von Formularbereichen anzeigen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Dreigeteiltes Formular frmSplitted mit „maximierten“ Steuerelementen<\/span><\/b><\/p>\n Werden mehrere Splitter ineinander verschachtelt, so sind von diesen Grundwerten dann lediglich entweder fixe Abmessungen abzuziehen oder die Anmessungen anderer Splitter-Bereiche.<\/p>\n Im Formular aus Bild 1 etwa hängt die Breite des horizontalen Splitters SplitterH außer von der Formularbreite auch noch von der Position des vertikalen Splitters SplitterV ab, dessen rechten Bereich er unterteilt. Sein linker Ursprung ist:<\/p>\n Seine Breite ist:<\/p>\n Der Einfachkeit halber wurde hier die Breite in Abhängigkeit von der linken Position des Splitters errechnet, die selbst wiederum in der Zeile zuvor ermittelt wurde – es kommt hier also auf die Reihenfolge der Code-Zeilen an.<\/p>\n Nachdem also unsere Splitter-Steuerelemente beweglich geworden sind und sich in der Größe dem Formular anpassen, kommt nun der eigentliche Zweck der übung: Die in den durch die Splitter entstandenen Arealen befindlichen anderen Steuerelemente sollen neu ausgerichtet und skaliert werden. <\/p>\n Die Möglichkeiten dazu hängen vom Anwendungszweck ab. In einigen Fällen sollen die Steuerelemente lediglich verschoben werden, sich aber in der Größe nicht verändern. Häufiger anzutreffen ist jedoch, dass ein Steuerelement einen Splitter-Bereich vollständig ausfüllt. Das ist etwa im Formular frmSplitted (siehe Bild 5) aus der Beispieldatenbank der Fall.<\/p>\n Den linken Splitter-Bereich füllt eine Listbox aus, den Bereich rechts oben ein Bildsteuerelement und darunter befindet sich eine Textbox. Da Access-Steuerelemente sich nicht automatisch in solchen Bereichen maximieren können – die Steuerelemente anderer Entwicklungsumgebungen wie Delphi oder VS2005 haben dazu Eigenschaften wie AlignTop, AlignLeft etc. – müssen Positionen und Abmessungen aller Steuerelemente jeweils beim Verschieben der Splitter per VBA neu berechnet werden.<\/p>\n Die Logik folgt dabei bereits den obigen Erläuterungen, wo beispielsweise Abmessungen und Position des horizontalen Splitters selbst neu gesetzt wurden.<\/p>\n Man muss sich dabei zunächst vor allem klar machen, welches Steuerelement von welchem Splitter abhängt. Für die linke Listbox in Bild 5 gilt:<\/p>\n Für das Bildsteuerelement rechts oben gilt:<\/p>\n Nach dem gleichen Schema berechnen Sie schließlich die Textbox im Bereich unten rechts.<\/p>\n Dieser Bereich ist als einziger sowohl in Position wie auch Abmessungen völlig variabel und von den Splittern abhängig.<\/p>\n Wichtig für die komplette Routine, die jedes Mal ausgeführt wird, wenn ein Splitter das Ereignis MouseMove auslöst (siehe weiter oben), ist die korrekte Abfolge der einzelnen Code-Zeilen zur Positionierung der Steuerelemente.<\/p>\n Zuerst werden die Splitter selbst positioniert, dann in Anhängigkeit von deren Eigenschaften Left und Top die weiteren Steuerelemente.<\/p>\n Hilfreich ist es auch, zu Beginn der Routine Breite und Höhe des Formulars in Variablen zwischenzuspeichern und dann auf diese zuzugreifen, damit man den überblick behält und nicht mehrfach Ausdrücke wie Me.InsideWidth in den Berechnungen verwenden muss.<\/p>\n Der Quellcode der kompletten Routine soll hier nicht wiedergegeben werden. Sie finden ihn im Beispielformular frmSplitted in der Prozedur ResizeControls.<\/p>\n Erwähnenswert an dieser ist noch Folgendes: In Abhängigkeit davon, ob nur einer der Splitter bewegt wurde oder das Formular sich in der Größe verändert hat (Parameter direction), werden nur die betroffenen Bereiche samt Steuerelementen neu positioniert.<\/p>\n Das spart Rechenzeit und vermindert das Flackern des Formulars, das sich unweigerlich einstellt, wenn sich schnell hintereinander alle Steuerelemente verschieben. <\/p>\n Das Formular frmSplitted (siehe Bild 5) in der Beispieldatenbank Splitform00.mdb ist möglicherweise nicht besonders repräsentativ für eine Datenbankanwendung, zeigt aber, wie man eine Bildanzeige über die Splitter beliebig vergrößern oder verkleinern kann.<\/p>\n Durchaus häufig dürfte aber die Anordnung mit einem Listenfeld links im Formular sein, das Navigationszwecken dient. Hier könnte auch ein Treeview zum Einsatz kommen.<\/p>\n Da man als Entwickler meist nicht vorher weiß, wie breit die Liste sein muss oder wie verzweigt der Baum eines Treeviews sein wird, weil deren Einträge oft von Benutzereingaben gespeist werden, macht sich ein vertikaler Splitter gut, mit dem der Benutzer den sichtbaren Bereich optimal einstellen kann.<\/p>\n <\/b><\/p>\n Bild 6: Formular mit horizontalem Splitter für Unterformular<\/span><\/b><\/p>\n Ein anderes Problem sind Unterformulare, die häufig am unteren Rand des Hauptformulars platziert sind, wo sie Detaildatensätze anzeigen.<\/p>\n Sind sie in der Höhe zu klein geraten, dann muss der Benutzer den Scrollbalken bemühen, um alle Datensätze zu Gesicht zu bekommen.<\/p>\n Wenn ein solches Unterformular unterhalb eines horizontalen Splitters untergebracht wird, dann kann der Benutzer es in der Höhe verändern und alle Datensätze auf einmal überblicken.<\/p>\n Dass dabei wahrscheinlich andere Steuerelemente oberhalb des Splitters überdeckt werden, mag unschön wirken, ist im Interesse der Funktionalität aber zu verschmerzen.<\/p>\n In frmSplitted2 finden Sie ein Beispiel für so ein Formular, das zudem noch eine Automatik enthält, mit der die Formularbereiche nach dem Loslassen des Splitters wiederhergestellt werden (siehe Bild 6).<\/p>\n Als Gimmick erfolgt dieses Zurücksetzen animiert, also stufenweise. Sie können das ausschalten, indem Sie der Variablen cnt der Prozedur Form_Timer statt 6 den Wert 1 zuweisen.<\/p>\n Splitter-Steuerelemente werten die Ergonomie von Formularen in Access-Anwendungen deutlich auf.<\/p>\n Statt statischer Positionierung von Steuerelementen, die sich häufig an der maximal möglichen und nötigen Breite von Texteingaben orientiert, wird das Formular flexibel und spart wertvolle Fläche ein. Und professionell wirkt es allemal.<\/p>\n Als Steuerelement für die Splitter eignen sich MSForms-Frames am besten. Mit Hilfe des Ereignisses MouseMove werden sie beweglich gemacht.<\/p>\n An diesen Verschiebungen orientiert sich dann die Neuberechnung von Steuerelementpositionen und -abmessungen. Die Berechnungsroutine ist etwas Fleißarbeit, die sich aber lohnt.<\/p>\n Sinnvoll ist es, sich ein Formular wie in Bild 1 zu erstellen, das Sie als Vorlage für weitere Formulare einer Datenbank verwenden können.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Splitform00.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{D118D386-851C-4FDB-908A-6FB0DCA04F52}\/pic002.png\")
<\/p>\nPrivate Sub ctlSplitter_MouseMove( _\r\n ByVal Button As Integer, _\r\n ByVal Shift As Integer, _\r\n ByVal X As Single, _\r\n ByVal Y As Single)\r\n If Button = acLeftButton Then\r\n ctlSplitter.Top = ctlSplitter.Top + Y\r\n Doevents\r\n End If\r\nEnd Sub<\/pre>\n
ctlSplitter.Top = ctlSplitter.Top + Y * 20<\/pre>\n
Private Sub ctlSplitter_MouseMove( _\r\n ByVal Button As Integer, _\r\n ByVal Shift As Integer, _\r\n ByVal X As Single, _\r\n ByVal Y As Single)\r\n Dim YTmp As Long\r\n If Button = acLeftButton Then\r\n YTmp = ctlSplitter.Top + Y\r\n If YTmp < 30 Then YTmp = 30\r\n If YTmp > 5000 Then YTmp = 5000\r\n ctlSplitter.Top = YTmp\r\n Doevents\r\n End If\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{D118D386-851C-4FDB-908A-6FB0DCA04F52}\/pic003.png\")
<\/p>\nBreite eines Formulars<\/h3>\n
Höhe von Formularbereichen<\/h3>\n
Me.Section(acHeader).Height<\/pre>\n
Me.Section(acFooter).Height<\/pre>\n
HöheDetailbereichNeu (H) = _\r\nMe.InsideHeight - _\r\n(Me.Section(acHeader).Height + _\r\nMe.Section(acFooter).Height)<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{D118D386-851C-4FDB-908A-6FB0DCA04F52}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{D118D386-851C-4FDB-908A-6FB0DCA04F52}\/pic005.png\")
<\/p>\nSplitterH.Left = _\r\nSplitterV.Left + SplitterV.Width<\/pre>\n
SplitterH.Width = _\r\nMe.InsideWidth - SplitterH.Left<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{D118D386-851C-4FDB-908A-6FB0DCA04F52}\/pic006.png\")
<\/p>\nDownloads zu diesem Beitrag<\/h3>\n