vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
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:  Views:  22.341 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2019 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.