'Fensterpositionierung  2004-02-03
Global Const ci_WNDCENTERSCN As Integer = 0             '"Bildschirmmitte"
Global Const ci_WNDCENTERTOPSCN As Integer = 1          '"Bildschirmmitte oben"
Global Const ci_WNDCENTERBOTTOMSCN As Integer = 2       '"Bildschirmmitte unten"
Global Const ci_WNDCENTERBOTTOMRIGHTSCN As Integer = 3  '"Unten rechts"
Global Const ci_WNDCENTERBOTTOMLEFTSCN As Integer = 4   '"Unten links"
Global Const ci_WNDCENTERTOPRIGHTSCN As Integer = 5     '"Oben rechts"
Global Const ci_WNDCENTERTOPLEFTSCN As Integer = 6      '"Oben links"

Sub sub_PosForm(frmForm As Form, iPos As Integer)
   '
   'Diese Methode platziert eine Form an gewünschter Position des Bildschirms
   '
   Const conlngDIVVALUE As Long = 2000
 
   Select Case iPos
        Case ci_WNDCENTERSCN
            '"Bildschirmmitte"  CenterScreen
            If frmForm.WindowState = 0 Then
               frmForm.Move (Screen.Width - frmForm.Width) \ 2, (Screen.Height _
                 - frmForm.Height) \ 2
            End If
        Case ci_WNDCENTERTOPSCN
            '"Bildschirmmitte oben" CenterTopScreen
            frmForm.Left = (Screen.Width - frmForm.Width) / 2
            frmForm.Top = (Screen.Height - frmForm.Height) / (Screen.Height)
        Case ci_WNDCENTERBOTTOMSCN
            '"Bildschirmmitte unten" CenterBottomScreen
            frmForm.Left = (Screen.Width - frmForm.Width) / 2
            frmForm.Top = (Screen.Height - frmForm.Height)
        Case ci_WNDCENTERBOTTOMRIGHTSCN
            '"Unten rechts" CenterBottomRightScreen
            frmForm.Left = (Screen.Width - frmForm.Width) / 1
            frmForm.Top = (Screen.Height - frmForm.Height)
        Case ci_WNDCENTERBOTTOMLEFTSCN
            '"Unten links" CenterBottomLeftScreen
            frmForm.Left = 0
            frmForm.Top = (Screen.Height - frmForm.Height)
        Case ci_WNDCENTERTOPRIGHTSCN
            '"Oben rechts" CenterTopRightScreen
            frmForm.Left = (Screen.Width - frmForm.Width) / 1
            frmForm.Top = (Screen.Height - frmForm.Height) / conlngDIVVALUE
        Case ci_WNDCENTERTOPLEFTSCN
            '"Oben links" CenterTopLeftScreen
            frmForm.Left = 0
            frmForm.Top = 0
    End Select
End Sub