애드센스와이드


[.net] 듀얼 모니터에서 각 화면 제어하기 VB

예를 들어 모니터 화면 캡쳐 프로그램을 만든다고 하면

모니터가 1개인 화면에서는 저장영역 설정이 수월하다.

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

위와 같이 설정하고 실행하면 해당 모니터의 해상도가 표시된다.
여기서 myScreens(0)은 모니터 1번, myScreens(1)은 모니터 2번이다.
(모니터 번호 확인은 바탕화면에서 마우스 우클릭 - 속성 - 설정에서 확인가능하다.)

위 예제 코드는 스크린이 2개일 때를 표현했으나 2개 이상인 경우는 myScreens.Length = 의 값을 더 높이면 될 것이다.

선언
Public Shared ReadOnly Property AllScreens As Screen()
Get

참고 사이트
http://social.msdn.microsoft.com/Forums/vstudio/en-US/d867a0cd-1f08-4f16-a8aa-db6ff77b3656/vb-net-dual-monitor?forum=vbgeneral
http://msdn.microsoft.com/ko-kr/library/vstudio/system.windows.forms.screen.allscreens(v=vs.100).aspx




덧글

댓글 입력 영역


이 이글루를 링크한 사람 (블랙)

4