Hola a todos.
Veran tengo el siguiente code que captura toda la pantalla.
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()
keybd_event 44, 0, 0&, 0&
End Sub
Mi problema es que no se como puedo transferir la imagen a 1 control PictureBox o Imagebox despues de capturarla.
No me deja guardarla en una variable
Alguien me puede echar 1 mano ?
Gracias
Bueno es sencillo:
pon esto en un command despues de agragar un image
On Error Resume Next
Clipboard.Clear '/* Borra lo que haya en el portapapeles
keybd_event 44, 0, 0, 0 '//Llama a los eventos copiar pegar
keybd_event 44, 0, KEYEVENTF_KEYUP, 0 'para que el archivo de captura se
Do While Clipboard.GetData = False 'quede en el portapapeles
DoEvents
Loop
Image1.Picture = Clipboard.GetData 'la imagen de captura1 sera lo que haya en el
Clipboard.Clear 'portapales, luego borra todo lo que haya ahi
SavePicture Image1.Picture, "c:\tempfile.bmp" 'se guarda el archivo de captura1
Do While Len(Dir("c:\tempfile.bmp")) = 0 'a c:...bmp y asi puede ser enviado
DoEvents
Loop 'y aqui se hace el loop */
si quedó muy amontonado y no entiendes entra a http://es.geocities.com/kontaminator_clan y baja el código fuente de infosys
No sabia manejar el portapapeles de windows.
Ahora me hago una idea de como manejarlo
Gracias Kontaminator !!