Rubrik: Oberfläche · Fenster | VB-Versionen: VB5, VB6 | 27.12.00 |
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: | Views: 21.761 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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