おやじプログラマー日記 : VB.NET:プライマリディスプレイの上でフォームの表示位置設定する方法

今回の記事は、パソコンの画面上で、タスクバーを除いた部分でどの位置に表示するかを制御する簡単なTIPSです。
通常パソコンのディスプレイは１台なのでプライマリディスプレイと言えば表示画面そのものですが、 System.Windows.Forms.Screenクラスのプロパティ PrimaryScreen から画面の情報を取得できます。
PrimaryScreen プロパティはSystem.Windows.Forms.Screenクラスで以下の様なプロパティを持っています。

プロパティ	内容
`BitsPerPixel`	1 ピクセルのデータに関連付けられているメモリのビット数を取得
`Bounds`	ディスプレイの範囲を取得
`WorkingArea`	ディスプレイの作業領域を取得。作業領域とは、ディスプレイのデスクトップ領域からタスクバー、ドッキングされたウィンドウ、およびドッキングされたツールバーを除いた部分

画面の表示は以下の様になります。

以下の今回のソースを示しますが、画面中央、左上、右上、左下、右下のラジオボタンをクリックしボタンをクリックすると、指定位置にフォームが移動します。
タスクバーの領域を除いた部分での画面位置ですので、 WorkingArea プロパティを使います。

Public Class Form1
    'ボタンクリックでフォーム位置移動
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Pos As EnmFrmPosition = EnmFrmPosition.None
        If Me.RadioButton1.Checked Then
            Pos = EnmFrmPosition.Center
        End If
        If Me.RadioButton2.Checked Then
            Pos = EnmFrmPosition.TopLeft
        End If
        If Me.RadioButton3.Checked Then
            Pos = EnmFrmPosition.TopRight
        End If
        If Me.RadioButton4.Checked Then
            Pos = EnmFrmPosition.BottomLeft
        End If
        If Me.RadioButton5.Checked Then
            Pos = EnmFrmPosition.BottomRight    '
        End If
        SetFormPosition(Me, Pos)
    End Sub
End Class

Module TestPos
    'フォーム位置宣言
    Public Enum EnmFrmPosition
        None = 0    '無し
        Center      '中央
        TopRight    '右上
        TopLeft     '左上
        BottomRight '右下
        BottomLeft  '左下
    End Enum

'フォーム位置設定
    Public Sub SetFormPosition(ByVal Frm As Form, ByVal EnmWinPos As EnmFrmPosition)
        With System.Windows.Forms.Screen.PrimaryScreen.WorkingArea
            Select Case EnmWinPos
                Case EnmFrmPosition.Center
                    '中央
                    Frm.Left = CInt(.Width / 2) - CInt(Frm.Width / 2) + .Left
                    Frm.Top = CInt(.Height / 2) - CInt(Frm.Height / 2) + .Top
                Case EnmFrmPosition.TopRight
                    '右上
                    Frm.Left = .Width - Frm.Width
                    Frm.Top = 0
                Case EnmFrmPosition.TopLeft
                    '左上
                    Frm.Left = 0
                    Frm.Top = 0
                Case EnmFrmPosition.BottomRight
                    '右下
                    Frm.Left = .Width - Frm.Width
                    Frm.Top = .Height - Frm.Height
                Case EnmFrmPosition.BottomLeft
                    '左下
                    Frm.Left = 0
                    Frm.Top = .Height - Frm.Height
            End Select
        End With
    End Sub
End Module

この例の関数ですが、仕事で普通に使う場合は、画面中央に表示する場合がほとんどでした。
基礎Visual Basic 2015 基礎シリーズ