• 목록

• 페이스북 공유
• 트위터 공유

현재 화면 설정 시
Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

현재 작업영역 설정 시
Dim ScreenSize1 As Size = New Size(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height)

만약 모니터가 2개인 듀얼 모니터를 구축하고 있다면,

Dim myScreens() As Screen = Screen.AllScreens
If (myScreens.Length = 2) Then
MsgBox("Width: " & myScreens(0).Bounds.Width & "/" & "Height: " & myScreens(0).Bounds.Height) 

        Dim myScreens() As Screen = Screen.AllScreens
        If (myScreens.Length = 2) Then

            'Position form 1 in the middle of screen 1
            Me.Left = myScreens(0).WorkingArea.Width / 2 - Me.Width / 2
            Me.Top = myScreens(0).WorkingArea.Height / 2 - Me.Height / 2

            'Position the top left corner of form 2 in the middle of screen 2
            Dim myForm2 As New Form2
            myForm2.Show()
            myForm2.Left = myScreens(0).Bounds.Width + myScreens(1).WorkingArea.Width / 2
            myForm2.Top = myScreens(1).WorkingArea.Height / 2
        End If