<\/p>\n
Verschiedene Anwendungszwecke machen es erforderlich, dass man ein Formular an einer bestimmten Position öffnet. Und selbst wenn es an sich nicht erforderlich ist, steigert es doch die Ergonomie, wenn zum Beispiel ein Popup-Formular an der Stelle erscheint, an der man den Befehl zum Öffnen betätigt hat – beispielsweise durch einen Klick auf eine Schaltfläche oder auf ein anderes Steuerelement. In diesem Beitrag schauen wir uns an, wie wir unabhängig von anderen Elementen ein Formular öffnen und an der Position des Mauszeiters positionieren können. Dazu benötigen wir nichts außer ein paar Ereignisprozeduren und API-Funktionen.<\/b><\/p>\nAusgangsposition<\/h2>\n
Angenommen, wir wollen ein Popupformular (oder auch ein normales Formular) an der Stelle öffnen, an der sich gerade der Mauszeiger befindet. Das ist sinnvoll, denn wer möchte schon weite Wege mit der Maus zurücklegen, wenn er das zu öffnende Element direkt an der Mausposition anzeigen kann? Standardmäßig haben wir die Möglichkeit, für das Popup-Formular die Eigenschaft Automatisch zentrieren <\/b>auf Ja <\/b>einzustellen, dann würde das neue Formular zumindest in der Mitte des Access-Fensters geöffnet werden. Ansonsten könnten wir mit DoCmd.MoveSize <\/b>arbeiten, aber dies verwendet Koordinaten, die innerhalb des Access-Fensters liegen und die wir zuerst auch ermitteln müssen. <\/p>\nZiel dieses Beitrags<\/h2>\n
Am Ende wollen wir eine Lösung haben, mit der wir von einem Formular aus ein weiteres Formular per Mausklick öffnen können. Dabei soll die linke, obere Ecke des geöffneten Formulars sich an der Position des Mauszeigers befinden. Dies könnte ungefähr wie in Bild 1 aussehen.<\/p>\n
![\"Öffnen](\"..\/fileadmin\/_temp_\/2023_06\/pic_1465_001.png\")
<\/p>\n
Bild 1: Öffnen eines Formulars an der Mausposition<\/span><\/b><\/p>\n Also nutzen wir API-Funktionen: Damit können wir nicht nur sehr schnell die aktuelle Position des Mauszeigers ermitteln, sondern auch noch mit einem Befehl die neue Position festlegen. Dazu benötigen wir die folgenden Elemente, zuerst einen Type namens RECT<\/b>, der die vier Eigenschaften Left<\/b>, Top<\/b>, Right <\/b>und Bottom <\/b>enthält. Wenn wir eine API-Funktion beispielsweise zum Ermitteln der aktuellen Position und Größe eines Fensters nutzen, liefert diese immer ein solches Konstrukt mit den entsprechenden Werten zurück:<\/p>\n Daneben benötigen wir zum Ermitteln der Koordinaten eines Punktes wie zum Beispiel für die Position des Mauszeigers einen Type mit dem folgenden Aufbau:<\/p>\n Diese beiden Typen deklarieren wir öffentlich zugänglich in einem Modul namens mdlAPI<\/b>.<\/p>\n Außerdem legen wir dort die drei API-Funktionen aus Listing 1 an. Diese sind bereits für die 64-Bit-Version von Office ausgelegt. Die API-Funktionen haben die folgende Funktion:<\/p>\n Listing 1: Die benötigten API-Funktionen<\/span><\/b><\/p>\n Neben diesen Elementen deklarieren wir im Modul mdlAPI <\/b>noch die folgenden beiden Variablen:<\/p>\n Diese sollen die Position des Mauszeigers beim Aufrufen des zu öffnenden Formulars speichern und im geöffneten Formular zur Abfrage bereitstellen.<\/p>\n Zu Beispielzwecken haben wir die ansonsten leeren Formulare frmMain <\/b>und frmPopup <\/b>angelegt. Wenn der Benutzer irgendwo in das Formular frmMain <\/b>klickt, soll das Formular frmPopup <\/b>an der Position des Mauszeigers erscheinen.<\/p>\n Im Klassenmodul des Formulars frmMain <\/b>deklarieren wir eine Variable namens pt <\/b>mit dem Typ POINTAPI<\/b>:<\/p>\n Den Mausklick fangen wir gleich mit zwei Ereignissen ab – Bei Maustaste ab <\/b>und Bei Maustaste auf<\/b>. Die Frage ist: Wann soll das Formular erscheinen, beim Herunterdrücken der Maustaste oder erst beim Loslassen? Wir haben uns an dem Verhalten zur Anzeige von Kontextmenüs orientiert. Diese werden erst beim Loslassen des Mauszeigers eingeblendet. Und wo soll das neue Formular geöffnet werden – dort, wo sich der Mauszeiger beim Herunterdrücken befindet oder beim Loslassen? Hier gibt es durchaus unterschiedliche Varianten. In Windows-Anwendungen wie dem Windows Explorer oder auch auf dem Desktop wird das Kontextmenü dort geöffnet, wo die Maustaste heruntergedrückt wurde. In Access wird das Kontextmenü dort angezeigt, wo man die Maustaste loslässt. In Word wird das Kontextmenü nur angezeigt, wenn man die Maustaste an der gleichen Stelle loslässt, an der man sie auch gedrückt hat. Wir machen es wie unter Windows – das Formular soll dort erscheinen, wo sich der Mauszeiger befindet, wenn man die Maustaste gedrückt hat. Das erklärt auch, warum wir nicht einfach das Ereignis Beim Klicken <\/b>nutzen können, sondern Bei Maustaste ab <\/b>und Bei Maustaste auf <\/b>nutzen. Wir speichern im Ereignis Bei Maustaste ab <\/b>die Position der Maustaste und im Ereignis Bei Maustaste auf <\/b>öffnen wir das Formular.<\/p>\n Beim Herunterdrücken lösen wir dieses Ereignis aus und prüfen, ob der Benutzer die linke Maustaste gedrückt hat (Button = acLeftButton<\/b>). Falls ja, ermitteln wir die Position des Mauszeigers und speichern diese in pt<\/b>:<\/p>\n Beim Loslassen der Maustaste prüfen wir wieder, ob die linke Taste gedrückt wurde. Dann rufen wir die Prozedur OpenForm <\/b>auf, der wir die Koordinaten der Mausposition übergeben:<\/p>\n Diese Funktion schreibt die übergebenen Parameter in die öffentlichen Variablen lngX <\/b>und lngY <\/b>und ruft das Formular frmPopup <\/b>mit der OpenForm<\/b>-Methode als modalen Dialog auf:<\/p>\nLösung per API<\/h2>\n
Public <\/span>Type RECT\r\n Left As Long<\/span>\r\n Top As Long<\/span>\r\n Right As Long<\/span>\r\n Bottom As Long<\/span>\r\nEnd Type<\/pre>\nPrivate <\/span>Type POINTAPI\r\n X As Long<\/span>\r\n Y As Long<\/span>\r\nEnd Type<\/pre>\nPublic <\/span>Declare PtrSafe Function GetCursorPos Lib \"user32\" (lpPoint As <\/span>POINTAPI) As Long<\/span>\r\nPublic <\/span>Declare PtrSafe Function GetWindowRect Lib \"user32\" (ByVal hwnd As Long<\/span>Ptr, lpRect As <\/span>RECT) As Long<\/span>\r\nPublic <\/span>Declare PtrSafe Function MoveWindow Lib \"user32\" (ByVal hwnd As Long<\/span>Ptr, ByVal x As Long<\/span>, ByVal y As Long<\/span>, _\r\n ByVal nWidth As Long<\/span>, ByVal nHeight As Long<\/span>, ByVal bRepaint As Long<\/span>) As Long<\/span><\/pre>\n\n
Public <\/span>lngX As Long<\/span>\r\nPublic <\/span>lngY As Long<\/span><\/pre>\nBeispiel zum Öffnen des Formulars an der Position des Mauszeigers<\/h2>\n
Private <\/span>pt As <\/span>POINTAPI<\/pre>\nHerunterdrücken der Maustaste<\/h2>\n
Private Sub <\/span>Detailbereich_MouseDown(Button As Integer<\/span>, _\r\n Shift As Integer<\/span>, x As Single<\/span>, y As Single<\/span>)\r\n If <\/span>Button = acLeftButton Then<\/span>\r\n GetCursorPos pt\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nLoslassen der Maustaste<\/h2>\n
Private Sub <\/span>Detailbereich_MouseUp(Button As Integer<\/span>, _\r\n Shift As Integer<\/span>, x As Single<\/span>, y As Single<\/span>)\r\n If <\/span>Button = acLeftButton Then<\/span>\r\n Call<\/span> OpenForm(pt.x, pt.y)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>OpenForm(x As Long<\/span>, y As Long<\/span>)\r\n lngX = x\r\n lngY = y\r\n DoCmd.OpenForm \"frmPopup\", WindowMode:=acDialog\r\nEnd Function<\/span><\/pre>\nIm aufgerufenen Formular<\/h2>\n