Advertisement
ASP_Volume2 Custom Controls/ Forms/ Menus #36482

Take a screenshot (BitBlt and DC's)

My code here will allow you take a screen shot of the entire screen.

AI

AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

源代码
original-source
Public Function CaptureScreen(PicDest As Object)
 
 DeskWnd& = GetDesktopWindow
 deskdc& = GetDC(DeskWnd&)
 
 Call BitBlt(PicDest.hDC, 0&, 0&, Screen.Width, Screen.Height, deskdc&, _
 0&, 0&, SRCCOPY)
 
 Call ReleaseDC(deskdc&, 0&)
 
 PicDest.Refresh
End Function
原始评论 (3)
从 Wayback Machine 恢复