Descargar Archivo   Titulo Capturar pantalla Descripcion Puedes capturar toda la pantalla o alguna ventana especifica Descargas 956 Codigo Fuente <pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Option</span> <span style="color: #0000FF">Explicit</span> <span style="color: #0000FF">Option</span> <span style="color: #0000FF">Base</span> 0 <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> PALETTEENTRY peRed <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span> peGreen <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span> peBlue <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span> peFlags <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> LOGPALETTE palVersion <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span> palNumEntries <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span> palPalEntry(255) <span style="color: #0000FF">As</span> PALETTEENTRY <span style="color: #008000">' Enough for 256 colors.</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> GUID Data1 <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> Data2 <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span> Data3 <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span> Data4(7) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> RASTERCAPS <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = 38 <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> RC_PALETTE <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H100 <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> SIZEPALETTE <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = 104 <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> RECT Left <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> Top <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> Right <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> Bottom <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> CreateCompatibleDC Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> CreateCompatibleBitmap Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nWidth <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nHeight <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetDeviceCaps Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> iCapabilitiy <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetSystemPaletteEntries Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wStartIndex <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wNumEntries <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, lpPaletteEntries <span style="color: #0000FF">As</span> PALETTEENTRY) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> CreatePalette Lib <span style="color: #B22222">"GDI32"</span> (lpLogPalette <span style="color: #0000FF">As</span> LOGPALETTE) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SelectObject Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hObject <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> BitBlt Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDCDest <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> XDest <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> YDest <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nWidth <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nHeight <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hDCSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> XSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> YSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> dwRop <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> DeleteDC Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetForegroundWindow Lib <span style="color: #B22222">"USER32"</span> () <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SelectPalette Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hPalette <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> bForceBackground <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> RealizePalette Lib <span style="color: #B22222">"GDI32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetWindowDC Lib <span style="color: #B22222">"USER32"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetDC Lib <span style="color: #B22222">"USER32"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetWindowRect Lib <span style="color: #B22222">"USER32"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, lpRect <span style="color: #0000FF">As</span> RECT) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> ReleaseDC Lib <span style="color: #B22222">"USER32"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetDesktopWindow Lib <span style="color: #B22222">"USER32"</span> () <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> PicBmp Size <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> hBmp <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> hPal <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> Reserved <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> OleCreatePictureIndirect Lib <span style="color: #B22222">"olepro32.dll"</span> (PicDesc <span style="color: #0000FF">As</span> PicBmp, RefIID <span style="color: #0000FF">As</span> GUID, <span style="color: #0000FF">ByVal</span> fPictureOwnsHandle <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, IPic <span style="color: #0000FF">As</span> IPicture) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #008000">' Capture the entire screen.</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click() <span style="color: #0000FF">Set</span> Picture1.Picture = CaptureScreen() <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #008000">' Capture the entire form including title and border.</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command2_Click() <span style="color: #0000FF">Set</span> Picture1.Picture = CaptureForm(<span style="color: #0000FF">Me</span>) <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #008000">' Capture the client area of the form.</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command3_Click() <span style="color: #0000FF">Set</span> Picture1.Picture = CaptureClient(<span style="color: #0000FF">Me</span>) <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #008000">' Capture the active window after two seconds.</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command4_Click() MsgBox <span style="color: #B22222">"En 5 segundos se va a capturar la ventana activa"</span> <span style="color: #008000">' Wait for two seconds.</span> <span style="color: #0000FF">Dim</span> EndTime <span style="color: #0000FF">As</span> <span style="color: #0000FF">Date</span> EndTime = DateAdd(<span style="color: #B22222">"s"</span>, 5, Now) <span style="color: #0000FF">Do</span> <span style="color: #0000FF">Until</span> Now > EndTime DoEvents <span style="color: #0000FF">Loop</span> <span style="color: #0000FF">Set</span> Picture1.Picture = CaptureActiveWindow() <span style="color: #008000">' Set focus back to form.</span> <span style="color: #0000FF">Me</span>.SetFocus <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #008000">' Print the current contents of the picture box.</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command5_Click() PrintPictureToFitPage Printer, Picture1.Picture Printer.EndDoc <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #008000">' Clear out the picture box.</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command6_Click() <span style="color: #0000FF">Set</span> Picture1.Picture = <span style="color: #0000FF">Nothing</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #008000">' CreateBitmapPicture</span> <span style="color: #008000">' - Creates a bitmap type Picture object from a bitmap and</span> <span style="color: #008000">' palette.</span> <span style="color: #008000">'</span> <span style="color: #008000">' hBmp</span> <span style="color: #008000">' - Handle to a bitmap.</span> <span style="color: #008000">'</span> <span style="color: #008000">' hPal</span> <span style="color: #008000">' - Handle to a Palette.</span> <span style="color: #008000">' - Can be null if the bitmap doesn't use a palette.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Returns</span> <span style="color: #008000">' - Returns a Picture object containing the bitmap.</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> CreateBitmapPicture(<span style="color: #0000FF">ByVal</span> hBmp <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hPal <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> Picture <span style="color: #0000FF">Dim</span> r <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> Pic <span style="color: #0000FF">As</span> PicBmp <span style="color: #008000">' IPicture requires a reference to "Standard OLE Types."</span> <span style="color: #0000FF">Dim</span> IPic <span style="color: #0000FF">As</span> IPicture <span style="color: #0000FF">Dim</span> IID_IDispatch <span style="color: #0000FF">As</span> GUID <span style="color: #008000">' Fill in with IDispatch Interface ID.</span> <span style="color: #0000FF">With</span> IID_IDispatch .Data1 = &H20400 .Data4(0) = &HC0 .Data4(7) = &H46 <span style="color: #0000FF">End</span> <span style="color: #0000FF">With</span> <span style="color: #008000">' Fill Pic with necessary parts.</span> <span style="color: #0000FF">With</span> Pic .Size = <span style="color: #0000FF">Len</span>(Pic) <span style="color: #008000">' Length of structure.</span> .<span style="color: #0000FF">Type</span> = vbPicTypeBitmap <span style="color: #008000">' Type of Picture (bitmap).</span> .hBmp = hBmp <span style="color: #008000">' Handle to bitmap.</span> .hPal = hPal <span style="color: #008000">' Handle to palette (may be null).</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">With</span> <span style="color: #008000">' Create Picture object.</span> r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic) <span style="color: #008000">' Return the new Picture object.</span> <span style="color: #0000FF">Set</span> CreateBitmapPicture = IPic <span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #008000">' CaptureWindow</span> <span style="color: #008000">' - Captures any portion of a window.</span> <span style="color: #008000">'</span> <span style="color: #008000">' hWndSrc</span> <span style="color: #008000">' - Handle to the window to be captured.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Client</span> <span style="color: #008000">' - If True CaptureWindow captures from the client area of the</span> <span style="color: #008000">' window.</span> <span style="color: #008000">' - If False CaptureWindow captures from the entire window.</span> <span style="color: #008000">'</span> <span style="color: #008000">' LeftSrc, TopSrc, WidthSrc, HeightSrc</span> <span style="color: #008000">' - Specify the portion of the window to capture.</span> <span style="color: #008000">' - Dimensions need to be specified in pixels.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Returns</span> <span style="color: #008000">' - Returns a Picture object containing a bitmap of the specified</span> <span style="color: #008000">' portion of the window that was captured.</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #5C5C5C">''''''</span> <span style="color: #008000">'</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> CaptureWindow(<span style="color: #0000FF">ByVal</span> hWndSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> Client <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>, <span style="color: #0000FF">ByVal</span> LeftSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> TopSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> WidthSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> HeightSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> Picture <span style="color: #0000FF">Dim</span> hDCMemory <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> hBmp <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> hBmpPrev <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> r <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> hDCSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> hPal <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> hPalPrev <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> RasterCapsScrn <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> HasPaletteScrn <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> PaletteSizeScrn <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> LogPal <span style="color: #0000FF">As</span> LOGPALETTE <span style="color: #008000">' Depending on the value of Client get the proper device context.</span> <span style="color: #0000FF">If</span> Client <span style="color: #0000FF">Then</span> hDCSrc = GetDC(hWndSrc) <span style="color: #008000">' Get device context for client area.</span> <span style="color: #0000FF">Else</span> hDCSrc = GetWindowDC(hWndSrc) <span style="color: #008000">' Get device context for entire</span> <span style="color: #008000">' window.</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #008000">' Create a memory device context for the copy process.</span> hDCMemory = CreateCompatibleDC(hDCSrc) <span style="color: #008000">' Create a bitmap and place it in the memory DC.</span> hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc) hBmpPrev = SelectObject(hDCMemory, hBmp) <span style="color: #008000">' Get screen properties.</span> RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS) <span style="color: #008000">' Raster</span> <span style="color: #008000">' capabilities.</span> HasPaletteScrn = RasterCapsScrn <span style="color: #0000FF">And</span> RC_PALETTE <span style="color: #008000">' Palette</span> <span style="color: #008000">' support.</span> PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE) <span style="color: #008000">' Size of</span> <span style="color: #008000">' palette.</span> <span style="color: #008000">' If the screen has a palette make a copy and realize it.</span> <span style="color: #0000FF">If</span> HasPaletteScrn <span style="color: #0000FF">And</span> (PaletteSizeScrn = 256) <span style="color: #0000FF">Then</span> <span style="color: #008000">' Create a copy of the system palette.</span> LogPal.palVersion = &H300 LogPal.palNumEntries = 256 r = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0)) hPal = CreatePalette(LogPal) <span style="color: #008000">' Select the new palette into the memory DC and realize it.</span> hPalPrev = SelectPalette(hDCMemory, hPal, 0) r = RealizePalette(hDCMemory) <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #008000">' Copy the on-screen image into the memory DC.</span> r = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, LeftSrc, TopSrc, vbSrcCopy) <span style="color: #008000">' Remove the new copy of the on-screen image.</span> hBmp = SelectObject(hDCMemory, hBmpPrev) <span style="color: #008000">' If the screen has a palette get back the palette that was</span> <span style="color: #008000">' selected in previously.</span> <span style="color: #0000FF">If</span> HasPaletteScrn <span style="color: #0000FF">And</span> (PaletteSizeScrn = 256) <span style="color: #0000FF">Then</span> hPal = SelectPalette(hDCMemory, hPalPrev, 0) <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #008000">' Release the device context resources back to the system.</span> r = DeleteDC(hDCMemory) r = ReleaseDC(hWndSrc, hDCSrc) <span style="color: #008000">' Call CreateBitmapPicture to create a picture object from the</span> <span style="color: #008000">' bitmap and palette handles. Then return the resulting picture</span> <span style="color: #008000">' object.</span> <span style="color: #0000FF">Set</span> CaptureWindow = CreateBitmapPicture(hBmp, hPal) <span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #008000">' CaptureScreen</span> <span style="color: #008000">' - Captures the entire screen.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Returns</span> <span style="color: #008000">' - Returns a Picture object containing a bitmap of the screen.</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> CaptureScreen() <span style="color: #0000FF">As</span> Picture <span style="color: #0000FF">Dim</span> hWndScreen <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #008000">' Get a handle to the desktop window.</span> hWndScreen = GetDesktopWindow() <span style="color: #008000">' Call CaptureWindow to capture the entire desktop give the handle</span> <span style="color: #008000">' and return the resulting Picture object.</span> <span style="color: #0000FF">Set</span> CaptureScreen = CaptureWindow(hWndScreen, <span style="color: #0000FF">False</span>, 0, 0, Screen.<span style="color: #0000FF">Width</span> \ Screen.TwipsPerPixelX, Screen.Height \ Screen.TwipsPerPixelY) <span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #008000">' CaptureForm</span> <span style="color: #008000">' - Captures an entire form including title bar and border.</span> <span style="color: #008000">'</span> <span style="color: #008000">' frmSrc</span> <span style="color: #008000">' - The Form object to capture.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Returns</span> <span style="color: #008000">' - Returns a Picture object containing a bitmap of the entire</span> <span style="color: #008000">' form.</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> CaptureForm(frmSrc <span style="color: #0000FF">As</span> Form) <span style="color: #0000FF">As</span> Picture <span style="color: #008000">' Call CaptureWindow to capture the entire form given its window</span> <span style="color: #008000">' handle and then return the resulting Picture object.</span> <span style="color: #0000FF">Set</span> CaptureForm = CaptureWindow(frmSrc.hWnd, <span style="color: #0000FF">False</span>, 0, 0, frmSrc.ScaleX(frmSrc.<span style="color: #0000FF">Width</span>, vbTwips, vbPixels), frmSrc.ScaleY(frmSrc.Height, vbTwips, vbPixels)) <span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #008000">' CaptureClient</span> <span style="color: #008000">' - Captures the client area of a form.</span> <span style="color: #008000">'</span> <span style="color: #008000">' frmSrc</span> <span style="color: #008000">' - The Form object to capture.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Returns</span> <span style="color: #008000">' - Returns a Picture object containing a bitmap of the form's</span> <span style="color: #008000">' client area.</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> CaptureClient(frmSrc <span style="color: #0000FF">As</span> Form) <span style="color: #0000FF">As</span> Picture <span style="color: #008000">' Call CaptureWindow to capture the client area of the form given</span> <span style="color: #008000">' its window handle and return the resulting Picture object.</span> <span style="color: #0000FF">Set</span> CaptureClient = CaptureWindow(frmSrc.hWnd, <span style="color: #0000FF">True</span>, 0, 0, frmSrc.ScaleX(frmSrc.ScaleWidth, frmSrc.ScaleMode, vbPixels), frmSrc.ScaleY(frmSrc.ScaleHeight, frmSrc.ScaleMode, vbPixels)) <span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #008000">' CaptureActiveWindow</span> <span style="color: #008000">' - Captures the currently active window on the screen.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Returns</span> <span style="color: #008000">' - Returns a Picture object containing a bitmap of the active</span> <span style="color: #008000">' window.</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> CaptureActiveWindow() <span style="color: #0000FF">As</span> Picture <span style="color: #0000FF">Dim</span> hWndActive <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> r <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Dim</span> RectActive <span style="color: #0000FF">As</span> RECT <span style="color: #008000">' Get a handle to the active/foreground window.</span> hWndActive = GetForegroundWindow() <span style="color: #008000">' Get the dimensions of the window.</span> r = GetWindowRect(hWndActive, RectActive) <span style="color: #008000">' Call CaptureWindow to capture the active window given its</span> <span style="color: #008000">' handle and return the Resulting Picture object.</span> <span style="color: #0000FF">Set</span> CaptureActiveWindow = CaptureWindow(hWndActive, <span style="color: #0000FF">False</span>, 0, 0, RectActive.Right - RectActive.Left, RectActive.Bottom - RectActive.Top) <span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #008000">' PrintPictureToFitPage</span> <span style="color: #008000">' - Prints a Picture object as big as possible.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Prn</span> <span style="color: #008000">' - Destination Printer object.</span> <span style="color: #008000">'</span> <span style="color: #008000">' Pic</span> <span style="color: #008000">' - Source Picture object.</span> <span style="color: #5C5C5C">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> <span style="color: #008000">'</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Sub</span> PrintPictureToFitPage(Prn <span style="color: #0000FF">As</span> Printer, Pic <span style="color: #0000FF">As</span> Picture) <span style="color: #0000FF">Const</span> vbHiMetric <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span> = 8 <span style="color: #0000FF">Dim</span> PicRatio <span style="color: #0000FF">As</span> <span style="color: #0000FF">Double</span> <span style="color: #0000FF">Dim</span> PrnWidth <span style="color: #0000FF">As</span> <span style="color: #0000FF">Double</span> <span style="color: #0000FF">Dim</span> PrnHeight <span style="color: #0000FF">As</span> <span style="color: #0000FF">Double</span> <span style="color: #0000FF">Dim</span> PrnRatio <span style="color: #0000FF">As</span> <span style="color: #0000FF">Double</span> <span style="color: #0000FF">Dim</span> PrnPicWidth <span style="color: #0000FF">As</span> <span style="color: #0000FF">Double</span> <span style="color: #0000FF">Dim</span> PrnPicHeight <span style="color: #0000FF">As</span> <span style="color: #0000FF">Double</span> <span style="color: #008000">' Determine if picture should be printed in landscape or portrait</span> <span style="color: #008000">' and set the orientation.</span> <span style="color: #0000FF">If</span> Pic.Height >= Pic.<span style="color: #0000FF">Width</span> <span style="color: #0000FF">Then</span> Prn.Orientation = vbPRORPortrait <span style="color: #008000">' Taller than wide.</span> <span style="color: #0000FF">Else</span> Prn.Orientation = vbPRORLandscape <span style="color: #008000">' Wider than tall.</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #008000">' Calculate device independent Width-to-Height ratio for picture.</span> PicRatio = Pic.<span style="color: #0000FF">Width</span> / Pic.Height <span style="color: #008000">' Calculate the dimentions of the printable area in HiMetric.</span> PrnWidth = Prn.ScaleX(Prn.ScaleWidth, Prn.ScaleMode, vbHiMetric) PrnHeight = Prn.ScaleY(Prn.ScaleHeight, Prn.ScaleMode, vbHiMetric) <span style="color: #008000">' Calculate device independent Width to Height ratio for printer.</span> PrnRatio = PrnWidth / PrnHeight <span style="color: #008000">' Scale the output to the printable area.</span> <span style="color: #0000FF">If</span> PicRatio >= PrnRatio <span style="color: #0000FF">Then</span> <span style="color: #008000">' Scale picture to fit full width of printable area.</span> PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, Prn.ScaleMode) PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, vbHiMetric, Prn.ScaleMode) <span style="color: #0000FF">Else</span> <span style="color: #008000">' Scale picture to fit full height of printable area.</span> PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, Prn.ScaleMode) PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, vbHiMetric, Prn.ScaleMode) <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #008000">' Print the picture using the PaintPicture method.</span> Prn.PaintPicture Pic, 0, 0, PrnPicWidth, PrnPicHeight <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>