Private Declare Function GetDestktopWindow Lib "user32" () As Long Private Declare Function GetDC Lib "user32" (ByVal hWnd 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 Sub Form_Load() Form1.AutoRedraw = True dwRop = &HCC0020 hSrcDC = GetDC(hwndSrc) Call BitBlt(hdc, 0, 0, ScaleWidth, ScaleHeight, hSrcDC, 0, 0, dwRop) End Sub
'2 Способ.
'Копирует изображение экрана в окно Private Sub Form_Load() Dim hDesk, hDeskDC
hDesk = GetDesktopWindow() hDeskDC = GetDC(hDesk) BitBlt Me.hdc, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY End Sub
'В модуле
Public Declare Function GetDesktopWindow Lib "user32" () As Long Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Public 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 Public Const SRCCOPY = &HCC0020
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Скриншот экрана", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!