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 Otter	Bewertung:	Views:  25.665
www.tools4vb.de	System:  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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

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.