取得螢幕畫面拷貝
hWnd | IntPtr | 4 | 必須 | (無) | 視窗代號 (hWnd) | ||||||||||||||||||||||||||||||||||||||||||
vLocation | Point | - | 必須 | (無) | 起始點,一般為 (0, 0) | ||||||||||||||||||||||||||||||||||||||||||
vSize | Size | - | 必須 | (無) | 擷取尺寸 | ||||||||||||||||||||||||||||||||||||||||||
rocFlags | enuRasterOperationCode | 4 | 可省略 | SRCCOPY | 位元遮罩
|
傳回 Image 物件
' 擷取表單畫面,Windows 內建熱鍵:Alt+PrintScreen Dim vLocation As Point = New Point(0, 0) Dim hWnd As IntPtr = MyFindWindow(, TextBox1.Text) Dim vSize As Size = GetWindowSize(hWnd) PictureBox1.Image = GetScreenShot(hWnd, vLocation, vSize) ' 擷取全螢幕畫面,Windows 內建熱鍵:PrintScreen Dim vLocation As Point = New Point(0, 0) Dim hWnd As IntPtr = GetDesktopWindow() Dim vSize As Size = GetWindowSize(hWnd) PictureBox1.Image = GetScreenShot(hWnd, vLocation, vSize)
本函數並未特別處理滑鼠游標,故擷取之圖片不含游標,游標要另外擷取疊加,此外,擷取表單畫面時,若該表單有其他視窗疊在上方,將顯示最上方之畫面,而非完整表單畫面。
Visual Studio .Net 2002 以後相容版本 | Window.vb
|