vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Oberfläche · Fenster   |   VB-Versionen: VB4, VB5, VB626.11.00
Formular/Objekt zentrieren

Mit Hilfe der nachfolgenden Prozedur kann ein Formular oder Objekt entweder auf dem Desktop oder innerhalb eines Elternformulars / -objekts zentrier...

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  25.597 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Mit Hilfe der nachfolgenden Prozedur kann ein Formular oder Objekt entweder auf dem Desktop oder innerhalb eines Elternformulars / -objekts zentriert werden.

Public Sub CenterForm(F As Object, Optional pForm As _
 Object = Nothing)
 
  If pForm Is Nothing Then
    ' Auf dem Desktop zentrieren
    F.left = (Screen.Width - F.Width) / 2
    F.top = (Screen.Height - F.Height) / 2
  Else
    ' Innerhalb eines Fensters/Objekts zentrieren
    Dim left As Long
    Dim top As Long
 
    If TypeOf F Is Form Then
      ' Fenster
      left = pForm.left + (pForm.Width - F.Width) / 2
      top = pForm.top + (pForm.Height - F.Height) / 2
    Else
      ' Objekt
      left = (pForm.Width - F.Width) / 2
      top = (pForm.Height - F.Height) / 2
    End If
 
    If left < 0 Then left = 0
    If top < 0 Then top = 0
 
    F.Move left, top
  End If
 
End Sub

Beispiele

' Formular auf dem Desktop zentrieren
CenterForm Me
 
' Formular innerhalb eines Hauptformulars zentrieren
CenterForm Me, MainForm
 
' Picture-Objekt innerhalb eines Formulars zentrieren
CenterForm Picture1, Me