자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

기타 듀얼 모니티 제어 및 폼 띄우기

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 7,838회 작성일 22-04-07 08:33

본문

현재 화면 설정 시
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 

댓글목록

등록된 댓글이 없습니다.