Главная страницаОбратная связьКарта сайта

Скриншот экрана



'1 Способ.

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 - "Скриншот экрана", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info