Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как программно сделать скрин шот ?

Автор: Rostik Ultra 2.2.2005, 08:45

Как программно сделать скрин шот

Автор: boevik 2.2.2005, 09:00

смотри http://support.microsoft.com/default.aspx?scid=kb;en-us;161299

Автор: cardinal 2.2.2005, 20:32

и FAQ...

Автор: Gannibal 3.2.2005, 17:20

Код '16-bit Declare Function GetDesktopWindow Lib "User" () As Integer Declare Function GetWindowDC Lib "User" (ByVal hWnd As Integer) As Integer Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer Global Const SRCCOPY = &HCC0020 '32-bit Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long Declare Function GetWindowDC Lib "user32" Alias "GetWindowDC" (ByVal hwnd As Long) As Long Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (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 dim hdcDWnd as long hdcDWnd=GetWindowDC(GetDesktopWindow()) BitBlt Picture1.hdc,0,0,screen.width\screen.twipsperpixelx,screen.height\screen.twipsperpixely,hdcdwnd,0,0,srccopy

Автор: aclips 8.4.2011, 16:33

Код 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 GetDC Lib "USER32" (ByVal hwnd As Long) As Long Private Sub Form_Load()     Picture1.Width = Screen.Width     Picture1.Height = Screen.Height     Picture1.AutoRedraw = True     BitBlt Picture1.hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, GetDC(0), 0, 0, vbSrcCopy     Picture1.Picture = Picture1.Image End

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)