Visual Basic - capturar imagen

Life is soft - evento anual de software empresarial
 
Vista:

capturar imagen

Publicado por gorka (15 intervenciones) el 18/06/2007 14:31:48
hola a todos!!!
hay alguna de manera de capturar el scrren?para poder asi hacer los ajustes necesarios,por ejemplo ,cortar una parte del scrren y salvarlo como una imagen.Gracias.
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

RE:capturar imagen

Publicado por Andres (4 intervenciones) el 19/06/2007 22:00:26
Con esta funcion puedes capturar la imagen de pentalla y guardarla en un archivo para poder editarla luego...
__________________________

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Function Captura_Screen()

'On Error GoTo aki

Clipboard.Clear

'capturamos
keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0

'mientras no se pueda cojer el contenido
Do While Clipboard.GetData = False
DoEvents
Loop

Picture1.Picture = Clipboard.GetData
'borramos el portapapeles
Clipboard.Clear
SavePicture Picture1.Picture, "c:\sht.jpg"

Do While Len(Dir("c:\sht.bmp")) = 0
DoEvents
Loop
'ya se ha guardado el archivo
'Exit Sub

End Function
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