Ahora vamos a crear un jpg que contenga una captura de la pantalla.
Hemos creado una función que devuelve una imagen, usamos el SendKeys para capturar la pantalla y la extraemos del portapapeles, luego llamaremos a la funcion y el resultado lo guardaremos en una ruta del disco duro.
Mira que bonito olle!
Public Function TrincarImagen() As Image
' Tamaño de lo que queremos copiar
' En este caso el tamaño de la ventana principal
Dim fSize As Size = Screen.PrimaryScreen.Bounds.Size
' Creamos el bitmap con el área que vamos a capturar
Dim bm As New Bitmap(fSize.Width, fSize.Height)
' Un objeto Graphics a partir del bitmap
Dim gr As Graphics = Graphics.FromImage(bm)
' Copiar todo el área de la pantalla
gr.CopyFromScreen(0, 0, 0, 0, fSize)
Return bm
End Function
Ahora solo queda llamar a la funcion y guardar la imagen. Seria algo asi:
Dim Pantallazo As Image
Pantallazo = TrincarImagen()
Pantallazo.Save("RUTA\pantallazo.jpg")
Listo!
1 comentarios:
Dim objClipboard As IDataObject = Clipboard.GetDataObject()
Esto para que sirve???
Me parece que copiaste mal el codigo y le entendiste igual de mal. Mezclaste ejemplos y métodos para realizar esto.
En este caso no necesitas el portapapeles, son la función:
gr2.CopyFromScreen(0, 0, 0, 0, fSize)
Es más que suficiente. suerte
Publicar un comentario en la entrada