Ejemplos usando el Api de windows para Visual basic

196 - Capturar la imagen de un control con GetWindowDC

Contenido:

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo que utiliza la función Api GetWindowDc para capturar el área de pantalla correspondiente a un control o ventana y poder copiar dicha imagen en un picturebox para luego guardar la imagen

El ejemplo además del Api GetWindowDC, usa la función api BitBlt para copiar en el picturebox el Hdc capturado anteriormente.

Colocar un picturebox llamado picture1 que es donde se copia el gráfico, es decir el control.
Un Command1 que es el que copia la imagen. Llama a la rutina Copiar_Imagen pasándole el control que se va a copiar como parámetro
El Command2 guarda la imagen en un archivo de imagen bmp
Agregar algunos controles en el formulario e indicar en la rutina " Copiar_Imagen " , cual es el control a capturar

vista del formulario de ejemplo para capturar la imagen de los controles del formulario y poder guardarla como una mapa de bits o bmp

Código fuente en el formulario

Option Explicit '************************************************************* ' Capturar la imagen de controles ' 1 - Colocar un picturebox llamado picture1, un Command1 y un Command2 _ 2 - Agragar algunos controles _ 3 - Indicar en la Sub " Capturar_Imagen " .. el control a capturar '************************************************************* ' Declaraciones del Api '************************************************************* ' Función BitBlt para copiar la imagen del control en un picturebox 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 ' Recupera la imagen del área del control Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long '************************************************************* ' Sub que copia la imagen del control en un picturebox '************************************************************* Private Sub Capturar_Imagen(Control As Control, Destino As Object) Dim hdc As Long Dim Escala_Anterior As Integer Dim Ancho As Long Dim Alto As Long ' Para que se mantenga la imagen por si se repinta la ventana Destino.AutoRedraw = True On Error Resume Next ' Si da error es por que el control está dentro de un Frame _ ya que los Frame no tiene dicha propiedad Escala_Anterior = Control.Container.ScaleMode If Err.Number = 438 Then ' Si el control está en un Frame, convierte la escala Ancho = ScaleX(Control.Width, vbTwips, vbPixels) Alto = ScaleY(Control.Height, vbTwips, vbPixels) Else ' Si no cambia la escala del contenedor a pixeles Control.Container.ScaleMode = vbPixels Ancho = Control.Width Alto = Control.Height End If ' limpia el error On Error GoTo 0 ' Captura el área de pantalla correspondiente al control hdc = GetWindowDC(Control.hwnd) ' Copia esa área al picturebox BitBlt Destino.hdc, 0, 0, Ancho, Alto, hdc, 0, 0, vbSrcCopy ' Convierte la imagen anterior en un Mapa de bits Destino.Picture = Destino.Image ' Borra la imagen ya que ahora usa el Picture Destino.Cls On Error Resume Next If Err.Number = 0 Then ' Si el control no está en un Frame, restaura la escala del contenedor Control.Container.ScaleMode = Escala_Anterior End If End Sub ' Botón que copia la imagen del _ control en el Picturebox destino (Picture1) '************************************************************* Private Sub Command1_Click() ' Le pasa como contro un FileListBox llamado File1 Call Capturar_Imagen(Frame1, Picture1) End Sub ' Botón que guarda la imagen del control en un archivo Bmp '************************************************************* Private Sub Command2_Click() ' Guarda la imagen del control como bmp. La guarda en el C: SavePicture Picture1.Picture, "c:\imagen_Control.bmp" MsgBox "Imagen guardada en c:\ ", vbInformation End Sub Private Sub Form_Load() Command1.Caption = " Capturar imagen del control " Command2.Caption = " Guardar imagen como Bmp " End Sub

Ejemplo 2

Este otro código , captura la imagen del formulario , similar al método Printform , pero sin incluir la barra de título y los bordes, es decir solo el área cliente de la ventana

El proyecto tiene dos opciones, una para imprimir la imagen mediante el objeto printer de vb y otra para guardar la imagen como formato Bmp con el método SavePicture

Descargar

Recursos visual basic 6

Capturar el área cliente de una ventana de windows

Recursos vb.net

Buscar en Recursos vb