Form auf dem Bildschirm ausrichten Mit der hier vorgestellten Routine läßt sich eine Form links, rechts, oben oder unten am Bildschirm positionieren.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  22.499
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit der nachfolgenden Routine läßt sich eine Form entweder links, rechts, oben, unten oder zentriert am Bildschirm positionieren.

' Aufzählung
Public Enum frmAlign
  frmLeft = 0
  frmRight = 1
  frmTop = 2
  frmBottom = 3
  frmCenter = 4
End Enum
 
' Fenster positionieren
Public Sub SetFormPos(Frm As Form, ByVal fAlign As frmAlign)
  If fAlign = frmLeft Then
    Frm.Left = 0
    Frm.Top = Screen.Height / 2 - Frm.Height / 2
  ElseIf fAlign = frmRight Then
    Frm.Left = Screen.Width - Frm.Width
    Frm.Top = Screen.Height / 2 - Frm.Height / 2
  ElseIf fAlign = frmTop Then
    Frm.Left = Screen.Width / 2 - Frm.Width / 2
    Frm.Top = 0
  ElseIf fAlign = frmBottom Then
    Frm.Left = Screen.Width / 2 - Frm.Width / 2
    Frm.Top = Screen.Height - Frm.Height
  ElseIf fAlign = frmCenter Then
    Frm.Left = Screen.Width / 2 - Frm.Width / 2
    Frm.Top = Screen.Height / 2 - Frm.Height / 2
  End If
End Sub

Hier die entsprechenden Beispielsaufrufe:

' Links
SetFormPos Me, frmLeft
 
' Rechts
SetFormPos Me, frmRight
 
' Oben
SetFormPos Me, frmTop
 
' Unten
SetFormPos Me, frmBottom
 
' Zentriert
SetFormPos Me, frmCenter