2012年12月22日 星期六

如何用 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 雲端硬碟
下載連接:下載點  (如何下載?