<\/p>\n
Es ist seit jeher ein Wunsch der Access-Entwickler, Steuerelemente zum Beispiel dynamisch an die Größe des umgebenden Formulars anzupassen. Microsoft hat dem Rechnung getragen, indem es mit der Version 2007 die beiden Eigenschaften „Horizontaler Anker“ und „Vertikaler Anker“ für Steuerelemente hinzugefügt hat. Damit lässt sich allerdings immer nur ein Steuerelement in der horizontalen und der vertikalen Ebene in der Größe anpassen – doch was ist, wenn das Formular mehrere Steuerelemente besitzt, die abwechselnd größer dargestellt werden sollen Dieser Beitrag zeigt, wie dies gelingt.<\/b><\/p>\nTextfelder verankern<\/h2>\n
Das Verankern von Textfeldern gibt es in Access ja schon immer – allerdings nur das Verankern am linken und oberen Rand. Seit Access 2007 können Sie in zwei speziellen Eigenschaften namens Horizontaler Anker <\/b>und Vertikaler Anker <\/b>die drei Werte Links<\/b>, Rechts <\/b>und Beide <\/b>beziehungsweise Oben<\/b>, Unten <\/b>und Beide <\/b>auswählen. Wenn Sie also etwa wünschen, dass ein Textfeld wie das aus Bild 1 beim Vergrößern des Formulars ebenfalls vergrößert wird, müssen Sie nur die beiden Eigenschaften auf den Wert Beide <\/b>einstellen.<\/p>\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2016_02\/pic_1026_001.png\")
<\/p>\n
Bild 1: Einstellen der Anker für ein Textfeld<\/span><\/b><\/p>\n Wenn Sie das Formular dann allerdings ohne weitere Anpassungen vergrößern, treten die zwei Probleme wie in Bild 2 auf: Das Bezeichnungsfeld des Textfeldes wird nach rechts und nach unten verschoben und die Schaltfläche OK <\/b>wird allmählich vom Textfeld überdeckt.<\/p>\n Bild 2: Probleme beim Vergrößern<\/span><\/b><\/p>\n Es reicht also niemals aus, einfach nur die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>des betroffenen Steuerelements einzustellen. Für die Steuerelemente, die sich rechts oder unter dem zu vergrößernden Steuerelement befinden, müssen Sie die Eigenschaft Horizontaler Anker <\/b>auf Rechts <\/b>und die Eigenschaft Vertikaler Anker <\/b>auf Unten <\/b>einstellen.<\/p>\n Außerdem passt Access automatisch die Eigenschaften von Bezeichnungsfeldern an, sofern dem zu vergrößernde Steuerelement eines zugewiesen ist. In unserem Falle gehört ein Bezeichnungsfeld dazu, das für die Eigenschaft Horizontaler Anker <\/b>nun den Wert Rechts <\/b>statt wie zuvor Links <\/b>und für die Eigenschaft Vertikaler Anker <\/b>nun den Wert Unten <\/b>statt Oben <\/b>aufweist.<\/p>\n Also müssen Sie sowohl die rechts und unter den zu vergrößernden Steuerelementen befindlichen Steuerelemente anpassen als auch die automatisch erfolgten Anpassungen der Bezeichnungsfelder der zu vergrößernden Steuerelemente wieder rückgängig machen.<\/p>\n Wenn ein Formular zwei Textfelder enthält, deren Größe sich ändern soll, stellen wir einfach für beide die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>auf Beide<\/b> ein (s. Bild 3).<\/p>\n Bild 3: Zwei Textfelder mit gleichen Anker-Einstellungen<\/span><\/b><\/p>\n Das Ergebnis ist allerdings nicht wie gewünscht: Beide Textfelder vergrößern sich zwar wie beabsichtigt nach rechts, aber nach unten erfolgt eine überlappung – das obere Textfeld legt sich über das untere (s. Bild 4).<\/p>\n <\/p>\n Bild 4: Beim Vergrößern überlappen sich die Textfelder.<\/span><\/b><\/p>\n Damit steht fest: Wir können tatsächlich nur eine Reihe von Steuerelementen in der horizontalen und vertikalen Ebene vergrößern lassen. Zwei nebeneinander liegende Steuerelemente lassen sich ebenso wenig beide horizontal vergrößern wie zwei untereinander liegende Steuerelemente in der vertikalen Ebene.<\/p>\n Letztlich geht es ja beim Verankern um ein Anpassen der Größe der Textfelder, um mehr Inhalt anzuzeigen. Es stellt sich also die Frage, ob man nicht auch vernünftig mit dem Formular arbeiten kann, wenn jeweils nur eines der Textfelder vergrößert dargestellt wird. Soll nur ein Textfeld verankert werden, gelingt das ja problemlos, wie Bild 5 zeigt.<\/p>\n Bild 5: Wenn nur ein Textfeld oben und unten verankert wird, klappt es.<\/span><\/b><\/p>\n Was aber, wenn der Benutzer nun mehr Inhalt des unteren Textfelds sehen will Können wir zur Laufzeit die Verankerungseigenschaften beeinflussen, etwa indem wir das gewünschte Textfeld einfach anklicken<\/p>\n Genau das gelingt: Wenn der Benutzer auf das untere Textfeld klickt, soll das obere Textfeld für die Eigenschaft Vertikaler Anker <\/b>den Wert Oben <\/b>erhalten. Das untere hingegen soll den Wert Beide <\/b>bekommen. Außerdem müssen wir noch dafür sorgen, dass das Bezeichnungsfeld des unteren Textfeldes dann wieder nach oben rutscht (Vertikaler Anker <\/b>gleich Oben <\/b>statt Unten<\/b>).<\/p>\n Dass der Benutzer das untere Textfeld aktiviert hat, erfahren wir durch die Ereignisprozedur, die durch das Ereignis Bei Fokuserhalt <\/b>dieses Steuerelements ausgelöst wird. Für dieses legen wir die folgenden drei Anweisungen an:<\/p>\n Die erste verankert das erste Textfeld oben, sodass dieses nicht mehr nach unten vergrößert wird. Stattdessen verankern wir das zweite Textfeld nicht mehr nur unten, sondern auch oben (Horizontaler Anker <\/b>gleich Beide<\/b>).<\/p>\n Das Bezeichnungsfeld des unteren Textfelds soll auch nach oben rutschen, daher Horizontaler Anker <\/b>gleich Oben<\/b>.<\/p>\n Das Ergebnis nach dem Aktivieren des zweiten Textfeldes sieht wie in Bild 6 aus.<\/p>\n Bild 6: Beim Klick auf das untere Textfeld wird dieses vergrößert.<\/span><\/b><\/p>\n Und wie machen wir dies wieder rückgängig, wenn der Benutzer auf das obere Textfeld klickt Ganz einfach: Wir legen auch für die Ereigniseigenschaft Bei Fokuserhalt <\/b>des oberen Textfeldes eine entsprechende Ereignisprozedur an. Diese enthält allerdings nur zwei Befehle:<\/p>\n Hier stellen wir den vertikalen Anker für das obere Textfeld auf Beide <\/b>und den für das untere Textfeld auf Unten <\/b>ein. Warum aber müssen wir Vertikaler Anker <\/b>für das untere Bezeichnungsfeld nicht wieder zurück auf Unten <\/b>einstellen Ganz einfach: Diese Eigenschaft des Bezeichnungsfeldes wird nicht nur automatisch geändert, wenn Vertikaler Anker <\/b>für das Steuerelement über das Eigenschaftsfenster auf Beide<\/b> eingestellt wird, sondern auch bei der entsprechenden Zuweisung per VBA.<\/p>\n Gelingt uns dies auch mit drei Textfeldern wie in Bild 7 Natürlich, allerdings brauchen wir noch eine Ereignisprozedur mehr für das unterste Textfeld. Außerdem erweitert sich natürlich die Anzahl der Anweisungen für die bereits vorhandenen Textfelder.<\/p>\n Bild 7: Auch mit drei Textfeldern gelingt die wechselseitige Anpassung der Größe.<\/span><\/b><\/p>\n Das Erste muss beim Fokuserhalt nur die Ausgangseinstellungen für die Eigenschaft Vertikaler Anker <\/b>der drei Textfelder wiederherstellen – die der begleitenden Bezeichnungsfelder werden automatisch angepasst:<\/p>\n Erhält das mittlere Textfeld den Fokus, stellen wir den vertikalen Anker des obersten Textfeldes auf Oben<\/b>, den des mittleren auf Beide <\/b>und den des unteren Textfeldes auf Unten <\/b>ein. Außerdem müssen wir den vertikalen Anker des mittleren Bezeichnungsfeldes auf Oben <\/b>einstellen:<\/p>\n![\"Probleme](\"..\/fileadmin\/_temp_\/2016_02\/pic_1026_002.png\")
<\/p>\nZwei Textfelder verankern<\/h2>\n
![\"Zwei](\"..\/fileadmin\/_temp_\/2016_02\/pic_1026_003.png\")
<\/p>\n![\"Beim](\"..\/fileadmin\/_temp_\/2016_02\/pic_1026_004.png\")
<\/p>\nTextfelder abwechselnd vergrößern<\/h2>\n
![\"Wenn](\"..\/fileadmin\/_temp_\/2016_02\/pic_1026_005.png\")
<\/p>\nPrivate Sub <\/span>txt2_GotFocus()\r\n Me!txt1.VerticalAnchor = acVerticalAnchorTop\r\n Me!txt2.VerticalAnchor = acVerticalAnchorBoth\r\n Me!lbl2.VerticalAnchor = acVerticalAnchorTop\r\nEnd Sub<\/span><\/pre>\n![\"Beim](\"..\/fileadmin\/_temp_\/2016_02\/pic_1026_006.png\")
<\/p>\nPrivate Sub <\/span>txt1_GotFocus()\r\n Me!txt1.VerticalAnchor = acVerticalAnchorBoth\r\n Me!txt2.VerticalAnchor = acVerticalAnchorBottom\r\nEnd Sub<\/span><\/pre>\nDrei Textfelder abwechselnd maximieren<\/h2>\n
![\"Auch](\"..\/fileadmin\/_temp_\/2016_02\/pic_1026_007.png\")
<\/p>\nPrivate Sub <\/span>txt1_GotFocus()\r\n Me!txt1.VerticalAnchor = acVerticalAnchorBoth\r\n Me!txt2.VerticalAnchor = acVerticalAnchorBottom\r\n Me!txt3.VerticalAnchor = acVerticalAnchorBottom\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txt2_GotFocus()\r\n Me!txt1.VerticalAnchor = acVerticalAnchorTop\r\n Me!txt2.VerticalAnchor = acVerticalAnchorBoth\r\n Me!txt3.VerticalAnchor = acVerticalAnchorBottom\r\n Me!lbl2.VerticalAnchor = acVerticalAnchorTop\r\nEnd Sub<\/span><\/pre>\n