![\"Die](\"..\/tl_files\/images\/PropMoveable.png\")
<\/a><\/p>\nBild 1: Die Eigenschaft Verschiebbar eines Formulars<\/p>\n
Das Formular frmFix<\/b> der Beispieldatenbank öffnet sich gleich nach deren Start (Bild 2). In seinem Code Beim Laden <\/b>blendet es zusätzlich den Navigationsbereich aus und außerdem den Ribbon. Von Access bleibt somit nur dessen Rahmen und Titelzeile übrig, und im Arbeitsbereich befindet sich das Formular in der linken oberen Ecke, aus der es auch nicht herausgeholt werden kann. Das Formular schaltet nach 5 Sekunden den Ribbon und Navigationsbereich wieder ein, womit sich die Darstellung aus Bild 3 ergibt. Gibt es nützliche Anwendungsgründe für diese Einstellung<\/p>\n
Bild 2: Am fixierten Modus des Formulars ändert sich auch bei eingeblendetem Ribbon und Navigationsbereich nichts<\/p>\n Bild 3: Das Formular frmFix ist nicht über dessen Titelleiste verschiebbar<\/p>\n Die in der Regel verschiebbaren Formulare von Access werden spätestens dann unerfreulich, wenn mehrere Formulare in der Oberfläche geöffnet sind. Sie überlappen sich dann unter Umständen, oder ein Maximieren des einen überdeckt das andere. Das kann beim Anwender zu Irritationen führen – vor allem dann, wenn die Daten des einen mit denen das anderen in irgendeiner Weise verknüpft sind. Derlei Missverständnisse räumen Sie aus, wenn Sie Formulare an einem vorbestimmten Ort öffnen lassen und gegebenenfalls nebeneinander oder untereinander positionieren.<\/p>\n Sehr praktisch ist, dass die Eigenschaft Verschiebbar<\/b> sich auch über VBA steuern lässt (Form.Moveable<\/b>), und das auch noch zur Laufzeit des Formulars! Sie können also die Modi jederzeit ändern. Das Beispielformular frmFix<\/b> wartet nach Einblenden des Ribbon nochmals 5 Sekunden und schaltet dann die Eigenschaft Verschiebbar<\/b> auf Ja<\/b>, worüber zusätzlich der Schriftzug in ihm informiert:<\/p>\n Falls Sie interessiert, wie der Code zum Ausblenden von Ribbon und Navigationsbereich aussieht, so sehen Sie sich die Prozedur in Listing 1 an. übergeben Sie keinen Parameter für UnHide<\/b>, wodurch der Wert der Variablen automatisch False<\/b> beträgt, so werden die beiden Elemente ausgeblendet. Bei übergabe von True<\/b> werden sie wieder eingeblendet. <\/p>\n Listing 1: Ein- und Ausblenden des Ribbon und Navigationsbereichs<\/p>\n Die Routine setzt zunächst den Fokus auf den Navigationsbereich, indem sie die DoCmd<\/b>-Methode SelectObject<\/b> aufruft ohne ein Objekt anzugeben. Die RunCommand<\/b>-Konstante accCmdWindowHide<\/b> bewirkt allgemein, dass das aktive Fenster in Access ausgeblendet werden soll. Da dies im Moment das eben fokussierte Navigationsfenster ist, verschwindet dieses. Die Konstante accCmdWindowUnhide<\/b> vollzieht den umgekehrten Vorgang.<\/p>\n Den Ribbon<\/b> blendet man über die Methode DoCmd.ShowToolbar<\/b> ein und aus, wobei als Toolbar der Name Ribbon<\/b> übergeben werden muss, und zusätzlich eine Konstante für den gewünschten Zustand, also entweder acToolbarNo<\/b> oder acToolbarYes<\/b>. Die Prozedur können Sie von beliebigem Ort Ihres VBA-Projekt aus aufrufen, und das Formular frmFix<\/b> tut selbiges in seiner Load<\/b>-Ereignisprozedur.<\/p>\n Befindet sich ein Formular in nicht verschiebbarem Zustand, so gilt das nur für die manuellen Oberflächeninteraktionen, nicht aber für VBA. Die Methode Move<\/b> eines Formulars ist weiterhin funktionstüchtig:<\/p>\n oder einfach <\/p>\n Die ersten beiden Parameter der Methode (x<\/b>, y<\/b>) geben an, wohin die linke obere Ecke des Formulars wandern soll. Bei normalen Formularen sind diese Werte relativ zum Arbeitsbereich von Access zu verstehen. Bei Popup<\/b>-Formularen gilt der Desktop als Bezug.<\/p>\n Die beiden weiteren Parameter lassen Größenänderungen des Formulars zu. Hier übergeben Sie die Werte für Breite und Höhe in der Einheit Twips, wobei ein Twip in der Regel 1\/15 eines Punkts oder 1\/567 eines Zentimeters beträgt. Die angegebene Code-Zeile positioniert also das Formular exakt in die linke obere Ecke und setzt seine Größe neu auf 4000 Twips Breite und 3000 Twips Höhe.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nMe.Moveable = True<\/span>\r\nMe!LblInfo.Caption = _\r\n \"Sie können mich jetzt verschieben!\"<\/pre>\nSub <\/span>ShowNavigationPane(Optional<\/span> UnHide As Boolean<\/span>)\r\n On Error Resume Next<\/span>\r\n DoCmd.SelectObject acTable, , True<\/span>\r\n If <\/span>UnHide Then<\/span>\r\n RunCommand acCmdWindowUnhide\r\n DoCmd.ShowToolbar \"Ribbon\", acToolbarYes\r\n Else<\/span>\r\n RunCommand acCmdWindowHide\r\n DoCmd.ShowToolbar \"Ribbon\", acToolbarNo\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nFormulare positionieren<\/h2>\n
Forms(\"frmFix\").Move 0,0, 4000, 3000<\/pre>\n
Me.Move 0,0, 4000, 3000<\/pre>\n
Switchboard<\/h2>\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