Captura de pantalla en Visual Basic .NET

Captura de pantalla en Visual Basic NET

En este ejercicio se propone una manera relativamente sencilla para capturar tanto la pantalla completa como la ventana activa, copiarlas al portapapeles para su uso en otro programa, y almacenarlas en disco como BMP. La aplicación arranca con el aspecto de un formulario que contiene:

los botones de comando para realizar las acciones de captura, bien de la ventana activa, bien de la pantalla completa.
un control PictureBox en el que se muestra la imagen capturada
un botón de ayuda que abre un MessageBox multilínea

A continuación se comentan los detalles más interesantes del código Visual Basic .NET.

Capacidad de utilizar los estilos visuales de Windows XP: Para habilitar los estilos XP sin necesidad de crear un .manifest es necesario definir específicamente el procedimiento Sub Main de entrada al programa pero dejando el objeto formulario como objeto inicial (no el método Sub Main). En el procedimiento Sub Main se coloca el método EnableVisualStyles() de la clase Application para permitir los estilos visuales de XP y se arranca el formulario inicial de la aplicación con el método Run(), también de la clase Application. Para que sea completa la visualización de los estilos XP, en los controles que tengan la propiedad FlatStyle debe asignarse el valor System (por defecto tienen el valor Standard). Si se usa Windows 2000, hay que comentar o borrar todo el bloque <STAThread()> y el procedimiento Sub Main

<STAThread()> _
Public Shared Sub Main()
        Application.EnableVisualStyles()
        Application.Run(New Form1)
    End Sub

#Region " Código generado por el Diseñador de Windows Forms "
'...(código)...
#End Region

Uso de temporizadores para retrasar la captura y para mantener minimizado el formulario mientras se captura la pantalla completa (de no ser así, la ventana de la aplicación saldría en ella)

' Botón que activa el temporizador 1 (intervalo: 2,5 segundos)
    Private Sub btGrab2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGrab2.Click
        Timer1.Enabled = True
        Timer1.Start()
    End Sub

    ' Botón que activa el temporizador 2 (intervalo: 2,5 segundos)
    Private Sub btGrab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGrab.Click
        'minimizar el formulario para que no aparezca en la captura
        Me.WindowState = FormWindowState.Minimized
        Timer2.Enabled = True
        Timer2.Start()
    End Sub

'Temporizador 1 -> llama a la función GetWindowCapture (que captura
    'al portapapeles la ventana activa), guarda la captura como JPG
    'en C:\EmiWin.jpg y la muestra en el PictureBox
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'guardar la captura como JPG
        GetWindowCapture().Save("c:\EmiWin.jpg", ImageFormat.Jpeg)
        'poner la captura en el control imgPantalla
        imgPantalla.Image = GetWindowCapture()
        'formulario al primer plano con el foco
        Me.Activate()
        'detener el temporizador
        Timer1.Stop()
        Timer1.Enabled = False
    End Sub

    ' Temporizador 2 -> llama a la función GetScreenCapture (que captura
    'al portapapeles la pantalla), guarda la captura como JPG
    'en C:\EmiScreen.jpg y la muestra en el PictureBox
    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        'guardar la captura como JPG
        GetScreenCapture().Save("c:\EmiScreen.jpg", ImageFormat.Jpeg)
        'poner la captura en el control imgPantalla
        imgPantalla.Image = GetScreenCapture()
        'detener el temporizador
        Timer2.Stop()
        Timer2.Enabled = False
        'restaurar el formulario a su tamaño normal desde minimizado
        Me.WindowState = FormWindowState.Normal
    End Sub

Clase SendKeys que nos proporciona métodos para enviar pulsaciones de tecla a la aplicación activa. Como parámetro se pasa una cadena que contiene la tecla pulsada. No se puede crear una instancia de esta clase

Para enviar una pulsación de tecla y continuar inmediatamente con el flujo del programa, utilice Send. Para esperar a que terminen los procesos iniciados por la pulsación de tecla, utilice SendWait.
Cada tecla está representada por uno o más caracteres. Para especificar un único carácter del teclado, utilice dicho carácter. Por ejemplo, para representar la letra A, pase la cadena "A" al método. Si se desea representar más de un carácter, agregue cada carácter adicional al que lo precede. Para representar las letras A, B y C, especifique el parámetro como "ABC".
El signo más (+), el signo de intercalación (^), el signo de porcentaje (%), la tilde (~) y los paréntesis () tienen significados especiales para SendKeys. Para especificar uno de estos caracteres, inclúyalo entre llaves ({}). Por ejemplo, para especificar el signo más, utilice "{+}".
Para especificar caracteres que no se muestran al presionar una tecla, como ENTRAR o TAB, y teclas que representan acciones en lugar de caracteres, utilice códigos como:
RETROCESO - usar {BACKSPACE}, {BS} o {BKSP}
ESC - usar {ESC}
IMPR PANT - usar {PRTSC}
Para especificar teclas con cualquier combinación de las teclas MAYÚS, CTRL y ALT, escriba delante del código de la tecla: % para ALT, ^ para CTRL y + para MAYÜS. Para especificar una repetición de teclas, utilice el formato {tecla número}. Hay que separar la tecla y el número con un espacio.

Como ejemplo de todo ello, para enviar 1 pulsación de ALT + IMPR PANT (captura la ventana activa) usaremos %{PRTSC} y para enviar 2 pulsaciones de IMPR PANT (captura la pantalla entera) usaremos {PRTSC 2}

'Función que captura la pantalla mediante el envío de la pulsación de la
'tecla "IMPR PANT". La función devuelve un objeto Image y lo coloca en el portapapeles.
    Public Function GetScreenCapture() As Image
    'variable que guarda la pulsación de la tecla
        Dim objTecla As SendKeys
        '2 pulsaciones de IMPR PANT para capturar la pantalla entera
        objTecla.SendWait("{PRTSC 2}")
        'variable de tipo IDataObject que contiene el portapapeles
        'GetDataObject() es un método de IDataObject
        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        'devolver el portapapeles como mapa de bits
        Return objClipboard.GetData(DataFormats.Bitmap)
    End Function

'Función que captura la ventana mediante el envío de la pulsación de la
'tecla "IMPR PANT". La función devuelve un objeto Image y lo coloca en el portapapeles
    Public Function GetWindowCapture() As Image
        'variable que guarda la pulsación de la tecla
        Dim objTecla As SendKeys
        '1 pulsación de ALT + IMPR PANT para capturar la ventana activa
        objTecla.SendWait("%{PRTSC}")
        'variable de tipo IDataObject que contiene el portapapeles
        'GetDataObject() es un método de IDataObject
        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        'devolver el portapapeles como mapa de bits
        Return objClipboard.GetData(DataFormats.Bitmap)
    End Function

Clase ClipBoard (derivada de la clase Object) que tiene 3 miembros (constructor, GetDataObject y SetDataObject). Esta clase nos permite copiar al o pegar desde el portapapeles

'variable de tipo IDataObject que contiene el portapapeles
'GetDataObject() es un método de IDataObject
Dim objClipboard As IDataObject = Clipboard.GetDataObject()
'devolver el portapapeles como mapa de bits
Return objClipboard.GetData(DataFormats.Bitmap)

Este ejercicio constituye otro ejemplo más de cómo es factible realizar con Visual Basic .NET aplicaciones tan complejas y utilizables como ésta, aunque el programador no tenga un nivel avanzado.
Imagen del programa en funcionamiento:
Pulsa aquí para ver el código completo.