VB怎麽屏幕截圖並

可以用以下代碼實現，僅供參考：

Option?Explicit

Private?Declare?Function?ReleaseDC?Lib?"user32"?(ByVal?hwnd?As?Long,?ByVal?hdc?As?Long)?As?Long

Private?Declare?Function?OpenClipboard?Lib?"user32"?(ByVal?hwnd?As?Long)?As?Long

Private?Declare?Function?EmptyClipboard?Lib?"user32"?()?As?Long

Private?Declare?Function?SetClipboardData?Lib?"user32"?(ByVal?wFormat?As?Long,?ByVal?hMem?As?Long)?As?Long

Private?Declare?Function?SelectObject?Lib?"gdi32"?(ByVal?hdc?As?Long,?ByVal?hObject?As?Long)?As?Long

Private?Declare?Function?DeleteDC?Lib?"gdi32"?(ByVal?hdc?As?Long)?As?Long

Private?Declare?Function?BitBlt?Lib?"gdi32"?(ByVal?hDestDC?As?Long,?ByVal?x?As?Long,?ByVal?Y?As?Long,?ByVal?nWidth?As?Long,?ByVal?nHeight?As?Long,?ByVal?hSrcDC?As?Long,?ByVal?xSrc?As?Long,?ByVal?ySrc?As?Long,?ByVal?dwRop?As?Long)?As?Long

Private?Declare?Function?CreateDC?Lib?"gdi32"?Alias?"CreateDCA"?(ByVal?lpDriverName?As?String,?ByVal?lpDeviceName?As?String,?ByVal?lpOutput?As?String,?lpInitData?As?Long)?As?Long

Private?Declare?Function?CreateCompatibleDC?Lib?"gdi32"?(ByVal?hdc?As?Long)?As?Long

Private?Declare?Function?CreateCompatibleBitmap?Lib?"gdi32"?(ByVal?hdc?As?Long,?ByVal?nWidth?As?Long,?ByVal?nHeight?As?Long)?As?Long

Private?Declare?Function?CloseClipboard?Lib?"user32"?()?As?Long

Private?Sub?Command1_Click()

Call?ScrnCap(0,?0,?800,?600)?'調用函數，4個參數為左上，右下坐標

Image1.Picture?=?Clipboard.GetData()

End?Sub

Sub?ScrnCap(Lt?As?Integer,?top?As?Integer,?Rt?As?Integer,?Bot?As?Integer)?'屏幕截圖核心函數

Dim?rWidth,?rHeight,?SourceDC,?DestDC,?BHandle,?Wnd,?DHandle

rWidth?=?Rt?-?Lt

rHeight?=?Bot?-?top

SourceDC?=?CreateDC("DISPLAY",?0,?0,?0)

DestDC?=?CreateCompatibleDC(SourceDC)

BHandle?=?CreateCompatibleBitmap(SourceDC,?rWidth,?rHeight)

SelectObject?DestDC,?BHandle

BitBlt?DestDC,?0,?0,?rWidth,?rHeight,?SourceDC,?Lt,?top,?&HCC0020

Wnd?=?Screen.ActiveForm.hwnd

OpenClipboard?Wnd

EmptyClipboard

SetClipboardData?2,?BHandle

CloseClipboard

DeleteDC?DestDC

ReleaseDC?DHandle,?SourceDC

End?Sub

上一篇:ADR TDR 什麽意思？

下一篇:ubuntu7.04安裝問題