![\"Formular](\"..\/tl_files\/images\/pic_340_001.png\")
<\/a><\/p>\nBild 1: Formular zur Anzeige der aktuellen Abmessungen des Formulars und des Access-Fensters<\/p>\n
Nun fehle nur noch einige Zeilen VBA-Code, gewürzt mit einigen API-Funktionen, um diese Textfelder zu füllen – optimalerweise im regelmäßigen Abstand, damit Sie gleich beim Ziehen oder Anpassen der Größe von Access-Fenster und dem Formular live die aktuellen Werte angezeigt bekommen.<\/p>\n
Access-Fenster und Formular<\/h2>\n
Wenn wir die Position eines Formulars ermitteln wollen, können wir diese direkt relativ zum Bildschirmrand ermitteln oder relativ zum Rand des Access-Fensters.<\/p>\n
Wenn Sie den Abstand zum Rand des Access-Fensters ermitteln wollen, geht dies nicht direkt, sondern wir müssen dann den Abstand des Formulars zum Bildschirmrand ermitteln und dann den Abstand des Access-Fensters vom Bildschirmrand abziehen. <\/p>\n
Funktion zum Ermitteln Daten des Access-Fensters<\/h2>\n
Also programmieren wir zunächst eine Funktion, welche die Koordinaten des Access-Fensters ermittelt. Diese sieht wie in Listing 1 aus. Diese Funktion namens GetMainWindowPosition<\/b> enthält vier Parameter namens sngLeft, sngTop<\/b>, sngWidth <\/b>und sngHeight<\/b>.<\/p>\n Listing 1: Diese Funktion ermittelt die Koordinaten der Position des Access-Hauptfensters.<\/p>\n Diesen müssen Sie beim Aufruf vier entsprechende Parameter übergeben, die dann gefüllt werden. Dies sieht in einer kleinen Beispielprozedur etwa wie in Listing 2 aus.<\/p>\n Listing 2: Prozedur mit einem Beispielaufruf der Funktion GetMainWindowPosition<\/p>\n Das Ergebnis kommt wie in Bild 2 in Form eines Meldungsfensters. Die Funktion GetMainWindowPosition<\/b>, die wir übrigens im Standardmodul mdlKoordinaten <\/b>hinterlegt haben, deklariert zunächst eine Variable des Typs Rect<\/b>.<\/p>\n Bild 2: Test der Funktion zum Ermitteln von Position und Größe des Access-Fensters<\/p>\n Diesen Typ müssen Sie zunächst noch deklarieren, was wie folgt aussieht:<\/p>\n Diesem benutzerdefinierten Typ können Sie Werte über die Punkt-Syntax zuweisen, wie Sie gleich sehen werden. Einen solchen benutzerdefinierten Typ benötigen wir, um Daten mit API-Funktionen auszutauschen. Eine solche verwenden wir nämlich gleich in der ersten Anweisung der Funktion, nämlich GetWindowRect<\/b>. Diese muss ebenfalls zuerst noch per Deklaration verfügbar gemacht werden:<\/p>\n Nun kann die Funktion die API-Funktion nutzen und dieser mit Application.hWndAccessApp <\/b>ein Handle auf die aktuelle Access-Anwendung sowie die noch leere Variable rectMainWindow <\/b>des Typs Rect <\/b>übergeben. Diese wird dann gefüllt. Die vier Werte des Typs rectMainWindow <\/b>übergeben wir dann an die Rückgabeparameter der Funktion – zum Beispiel so:<\/p>\n Damit kommen wir zur zweiten Funktion namens GetFormPosition<\/b> (siehe Listing 3). Diese erwartet einen Parameter mehr als die vorherige Funktion. Dabei handelt es sich um einen Verweis auf das Formular, das untersucht werden soll. Die Funktion soll die Position des Formulars innerhalb des Access-Fensters zurückgeben. Dazu verwenden wir wieder die bereits weiter oben vorgestellte API-Funktion GetWindowRect<\/b>, und zwar direkt zwei Mal. Beim ersten Mal ermitteln wir die Koordinaten des Formulars, das wir mit der Eigenschaft hWnd <\/b>des Formulars als Handle referenzieren, und speichern diese im Typ rectForm<\/b>. Der zweite Einsatz liefert mit dem Typ rectParent<\/b> die Koordinaten des Hauptfensters.<\/p>\n Listing 3: Diese Funktion ermittelt die Koordinaten der Position eines Formulars relativ zum Access-Hauptfenster.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public Function <\/span>GetMainWindowPosition(sngLeft As Single<\/span>, sngTop As Single<\/span>, sngWidth As Single<\/span>, sngHeight As Single<\/span>)\r\n Dim <\/span>rectMainWindow As <\/span>Rect\r\n GetWindowRect Application.hWndAccessApp, rectMainWindow\r\n sngLeft = rectMainWindow.Left\r\n sngTop = rectMainWindow.Top\r\n sngWidth = rectMainWindow.Right<\/span> - rectMainWindow.Left\r\n sngHeight = rectMainWindow.Bottom - rectMainWindow.Top\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>Test_GetMainWindowPosition()\r\n Dim <\/span>sngLeft As Single<\/span>\r\n Dim <\/span>sngTop As Single<\/span>\r\n Dim <\/span>sngWidth As Single<\/span>\r\n Dim <\/span>sngHeight As Single<\/span>\r\n GetMainWindowPosition sngLeft, sngTop, sngWidth, sngHeight\r\n MsgBox<\/span> \"Aktuelle Position und Größe des Access-Fensters:\" & vbCrLf<\/span> & \"Links: \" & sngLeft & vbCrLf<\/span> & \"Oben: \" & sngTop _\r\n & vbCrLf<\/span> & \"Breite: \" & sngWidth & vbCrLf<\/span> & \"Höhe: \" & sngHeight\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nPublic Type<\/span> 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<\/span><\/pre>\nPublic <\/span>Declare Function GetWindowRect Lib \"user32\" (ByVal hWnd As Long<\/span>, lpRect As <\/span>Rect) As Long<\/span><\/pre>\nsngLeft = rectMainWindow.Left<\/pre>\n
Funktion zum Ermitteln der Daten eines Formulars<\/h2>\n
Public Function <\/span>GetFormPosition(frm As <\/span>Form, sngLeft As Single<\/span>, sngTop As Single<\/span>, sngWidth As Single<\/span>, sngHeight As Single<\/span>)\r\n Dim <\/span>rectForm As <\/span>Rect\r\n Dim <\/span>rectParent As <\/span>Rect\r\n GetWindowRect frm.hWnd, rectForm\r\n GetWindowRect Application.hWndAccessApp, rectParent\r\n sngLeft = rectForm.Left - rectParent.Left\r\n sngTop = rectForm.Top - rectParent.Top\r\n sngWidth = rectForm.Right<\/span> - rectForm.Left\r\n sngHeight = rectForm.Bottom - rectForm.Top\r\nEnd Function<\/span><\/pre>\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