Вам понравился наш сайт? Хотите сказать спасибо? Посмотрите объявления, может быть Вас что-нибудь заинтересует:
Сохранение скриншота
Библиотека кодов 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 Оболочка и система Сохранение скриншота
Библиотека кодов Visual Basic 6 Оболочка и система Сохранение скриншота