如何用 VB 來電腦截圖?

有很多人會用電腦中的內建程式或快捷鍵來截圖

在VB中也可以很輕鬆的完成這項工作

只要簡單的幾行程式碼即可完成唷！

程式碼 VB

                Dim sizex As Size = My.Computer.Screen.Bounds.Size
                Dim myImage As New Bitmap(sizex.Width, sizex.Height)
                Dim g As Graphics = Graphics.FromImage(myImage)
                g.CopyFromScreen( New Point (0, 0), New Point(0, 0), sizex)   '截圖座標
                Dim dc1 As IntPtr = g.GetHdc
                g.ReleaseHdc(dc1)
                myImage.Save("C:\test.bmp")

VB 說明

一、「Dim sizex As Size = My.Computer.Screen.Bounds.Size」在讀取你螢幕的大小

二、「g.CopyFromScreen( New Point (0, 0), New Point(0, 0), sizex)」就是你要設定你需要截圖的範圍

三、「myImage.Save("C:\test.bmp")」截圖完後檔案儲存的位置

VB 範例

檔案名稱：VB Warehouse_ScreenSave.rar
檔案大小：108 KB （110,263 個位元組）
適用平台：VB 2010
儲存空間：Google 雲端硬碟
下載連接：下載點  （如何下載？）