Visual Basic - Captura de pantalla

Life is soft - evento anual de software empresarial
   
Vista:

Captura de pantalla

Publicado por Jorge (13 intervenciones) el 01/09/2015 00:21:00
Hola a todos.
Encontré el siguiente código que me permite capturar una imagen de la pantalla:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Command1_Click()
'Captura la ventana activa
keybd_event 44, 0, 0&, 0&
End Sub
 
Private Sub Command2_Click()
'Captura toda la pantalla
keybd_event 44, 1, 0&, 0&
End Sub

Tengo la siguiente duda, ojalá puedan ayudarme:
¿Cómo puedo guardar automáticamente, por código, dichas imágenes sin necesidad de "pegarlas", por ejemplo, en Paint? Yo las voy a ir nombrando y las direccionaré, sólo necesito evitarme el tener que abrir el Paint y estar contestando el diálogo de "Save". Quiero que las imágenes se guarden automáticamente al ser capturadas con el formato BMP.

Gracias desde ya.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Captura de pantalla

Publicado por Rafael (65 intervenciones) el 01/09/2015 12:03:25
Se que no esta guardando el BMP pero si un PNG

1
2
3
4
5
6
Dim lData As IDataObject = Clipboard.GetDataObject()
If lData.GetDataPresent(DataFormats.Bitmap) Then
    Dim lPictureBox As New PictureBox
    lPictureBox.Image = lData.GetData(DataFormats.Bitmap,True)
    lPictureBox.Image.Save("c:\Test.bmp",System.Drawing.Imaging.ImageFormat.Bmp)
End If

Nos cuentas como te fue???
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Captura de pantalla

Publicado por Jorge (13 intervenciones) el 01/09/2015 23:13:51
Hola Rafael, gracias por contestar. Ya lo pude resolver exactamente con un PictureBox, guardando en BMP.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar