[비주얼베이직] 전체화면 캡쳐, 영역지정 캡쳐 코드

원하는 기능 구현을 위해 VB.Net 코드를 찾으려고 하면 관련 자료들이 없는건지 못찾아서 그런건지

아무리 찾아봐도 나오지 않아서 C# 코드를 VB.Net 코드로 수정하여 사용했다.

 

# 전체 화면 캡쳐

Public Class Form1 Dim sz As Size Dim bMap As Bitmap Dim gPic As Graphics Private Function getFullScreenImage() As Image '// 전체 스샷을 찍는 함수 Me.sz = New Size(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '// 사이즈는 작업영역의 가로세로 만큼 Me.bMap = New Bitmap(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height, PixelFormat.Format32bppArgb) '// 비트맵 크기도 작업영역 가로세로 만큼 Me.gPic = Graphics.FromImage(bMap) '// 그래픽을 만듬. gPic.CopyFromScreen(0, 0, 0, 0, sz) '// 스크린샷을 찍음. Return bMap '// 스크린샷 정보를 반환 End Function End Class

# 영역 지정 캡쳐

Public Class Form1 Dim sz As Size Dim bMap As Bitmap Dim gPic As Graphics Private Function getAreaScreenImage() As Image '// 영역지정 스샷을 찍기위한 루틴 Dim pnt As Point = PointToScreen(New Point(Panel1.Location.X, Panel1.Location.Y)) '// 시스템화면을 기준으로 좌표를 구함 Me.sz = New Size(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '// 사이즈는 작업영역의 가로세로 만큼 Me.bMap = New Bitmap(Panel1.ClientSize.Width, Panel1.ClientSize.Height, PixelFormat.Format32bppArgb) '// 프로그램 내의 패널 가로세로 만큼 Me.gPic = Graphics.FromImage(bMap) '// gPic.CopyFromScreen(pnt.X, pnt.Y, 0, 0, sz) '// 스크린샷을 찍음. Return bMap '// 스샷찍힌 그래픽을 이미지 형식으로 반환함. End Function End Class