Hatten Sie auch schon mal das Problem, dass Sie ein Fenster an einer ganz bestimmten Position auf dem Bildschirm anzeigen wollten? Dassdas über die Top- und Left-Eigenschaft geht, weiß man ja. Dass man besser das Screen-Objekt mit einbezieht, damit dasGanze auch bei anderer Auflösung funktioniert, ist einigen mit Sicherheit auch bekannt. Spätestens dann, wenn man das Fenster nicht zentriert anzeigen möchte (das findet man ja in fast jedem Buch und auch in derOnline-Hilfe) geht die Rechnerei und Ausprobiererei los. Wie muss ich das jetzt schreiben, damit das Fenster sich auch dort befindet, wo essein soll, z. B. am linken Rand in der Mitte oder rechts oben. Wissen Sie das auswendig? Da ich das Ganze leid war habe ich mir einfach folgende Code-Teile zusammengestellt: ' rechts unten Form1.Top = Screen.Height - Form1.Height Form1.Left = Screen.Width - Form1.Width ' rechter Rand Mitte Form1.Left = Screen.Width - Form1.Width Form1.Top = Screen.Height / 2 - Form1.Height / 2 ' rechts oben Form1.Top = 0 Form1.Left = Screen.Width - Form1.Width ' links oben Form1.Top = 0 Form1.Left = 0 ' linker Rand Mitte Form1.Left = 0 Form1.Top = Screen.Height / 2 - Form1.Height / 2 ' links unten Form1.Top = Screen.Height - Form1.Height Form1.Left = 0 ' oben Mitte Form1.Left = Screen.Width / 2 - Form1.Width / 2 Form1.Top = 0 ' unten Mitte Form1.Left = Screen.Width / 2 - Form1.Width / 2 Form1.Top = Screen.Height - Form1.Height ' zentriert auf dem Bildschirm Form1.Left = Screen.Width / 2 - Form1.Width / 2 Form1.Top = Screen.Height / 2 - Form1.Height / 2 Je nachdem was man braucht - einfach ins Form_Load- oder Form-Resize-Ereignis reinkopieren - fertig Diese Seite wurde bereits 23.052 mal aufgerufen. |
Neu! sevEingabe 3.0 ![]() Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Buchempfehlung Tipp des Monats ![]() Dieter Otter sevTabStrip: Rechtsklick auf Reiter erkennen Eine Funktion, mit der sich prüfen lässt, auf welchen Tab-Reiter ein Mausklick erfolgte Access-Tools Vol.1 ![]() Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |