Rubrik: Oberfläche · Fenster | VB-Versionen: VB4, VB5, VB6 | 26.11.00 |
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