Fenster positionieren VB-Version:  VB5, VB6
	Views:  22.931

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