Private Declare Function GetForegroundWindow Lib "USER32" () As Long Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Long) As Long Private Declare Function BitBlt Lib "GDI32" (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Long, ByVal hObject As Long) As Long Private Declare Function CreatePalette Lib "GDI32" (lpLogPalette As LOGPALETTE) As Long Private Declare Function GetSystemPaletteEntries Lib "GDI32" (ByVal hDC As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long Private Declare Function GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal iCapabilitiy As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Long) As Long PalPalEntry(255) As PALETTEENTRY ' Enough for 256 colors. ' PrintPictureToFitPage - prints any picture as big as possible on ' CaptureScreen - Captures the entire screen. ' CaptureClient - Captures the client area of a form. ' CaptureForm - Captures the entire form. ' CaptureActiveWindow - Captures the active window on the desktop. ' CaptureWindow - Captures any window given a window handle. ' CreateBitmapPicture - Creates a picture object from a bitmap and ' The routines also have palette support. ' This module contains several routines for capturing windows into a You need a picture box and 7 command buttons. Here's some code I recently found on the web I use it to capture the form image, but I think it'll accomplish what you want.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |