Visual Basic - screenshot

Life is soft - evento anual de software empresarial
   
Vista:

screenshot

Publicado por vice (27 intervenciones) el 23/10/2007 06:22:25
tengo un codigo que tira un screen shot pero deseo que tire el screen solo a la pantalla activa como si fuera alt+print scren i si es posible que la tire sin el tool option osea la barita te mininize close maximixal

el codigo que tengo es como lo modifico

Option Explicit

'Api para generar un evento de tecla, en este caso Print Screen
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)

' borra el portapapeles
Clipboard.Clear

' Manda la pulsación de teclas para capturar la imagen de la pantalla
Call keybd_event(44, 2, 0, 0)

DoEvents
' Si el formato del clipboard es un bitmap
If Clipboard.GetFormat(vbCFBitmap) Then

'Guardamos la imagen en disco
SavePicture Clipboard.GetData(vbCFBitmap), Path
MsgBox " Captura generada en: " & Path, vbInformation
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
Else
MsgBox " Error ", vbCritical
End If

End Sub

Private Sub Command1_Click()
Call Capturar_Guardar("c:\pantalla.jpg")
End Sub

Private Sub Form_Load()
Command1.Caption = " Capturar pantalla "
End Sub
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:screenshot

Publicado por kavallo (10 intervenciones) el 24/10/2007 21:57:51
Saludos;
Aqui esta un poco de codigo:

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 vbKeySnapshot, 0&, 0&, 0&
'Le decimos a window que se ponga trucha por que ya se copio una imagen al clipboard
DoEvents
End Sub

Link de Interes:
Videos Divertidos
http://kavallo3582.funpic.org

Noticias Tecnologicas, manuales, etc.
http://contenidodesarrollo.blogspot.com
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