VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Сохранение скриншота

Visual Basic 6
Сохранение скриншота
Объявления:
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

Код процедуры формы:
Me.AutoRedraw = True
dwRop = &HCC0020
hSrcDC = GetDC(0)
Call BitBlt(Me.hDC, 0, 0, ScaleWidth, ScaleHeight, hSrcDC, 0, 0, dwRop)
SavePicture Me.Image, "C:\path.bmp" 'C:\path.bmp - путь к файлу
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Сохранение скриншота  
Powered by Exponenta -