Screen Capturing Routines

You can use it to capture a passed in VB Form or any window with a specified HWND. For example, you could use the GetDeskTopWindow to get the Desk Top HWND and then capture the whole desktop to a VB Picture Object.

Perhaps the best thing about these routines are that they return a standard VB Picture Object. That means that you can incorporate screen capturing routines for many different purposes (and save them to disk with the SavePicture vb statement) - for instance, if your program raises an error, you can capture the screen in your error handling routine and then save it to disk / database / whatever ! - You could even email the saved picture straight to the relevant developer.

Example usage :

'
  set Picture1.Picture = CaptureForm(me)
  PrintPicture Printer, Picture2.Picture
  Printer.EndDoc
'
' or :
'
  Dim oPic as StdPicture

  set oPic = CaptureWindow(0, 0, 0, _
        Screen.Width / Screen.TwipsPerPixelX, _
        Screen.Height / Screen.TwipsPerPixelY)
'
  SavePicture oPic.Picture, "c:\output.bmp"
'

Download Zipped Project and ScreenCapture.BAS module (5k)