Registrarse

[kakinets]

hola a todos mi problema es el siguiente....

Código:

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 toda la pantalla
keybd_event 44, 0, 0&, 0&
End Sub

Private Sub Command2_Click()
'Captura la ventana activa
keybd_event 44, 1, 0&, 0&
End Sub

Cuando yo presiono uno de esos botones q a la ves se guarde la foto o imagen...Como hago


Muchas gracias

[programatrix]

La imagen pasa al portapapeles y luego tienes que pasarla a al control en cuestión 

[Slasher-K]

Guardas la imagen con el método SavePicture, optenés la imagen del portapapeles con el objeto Clipboard.

Saludos.

[kakinets]

q es objeto Clipboard

[Kizar]

El clipboard es el portapapeles xDD+

Salu2

[Slasher-K]

Código:

Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\Imagen.bmp")

[IvanUgu]

Bien, el code anda 

pero como podria hacer para que me guarde la imagen en formato .JPG ???

Código:

Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\Imagen.jpg")

no eso no anda, va si anda pero me crea la imagen .JPG que pesa 2 MB (como si estubiera en .BMP)

Saludos

[Kizar]

usa este modulo k te captura la pantalla en jpg directamente

http://mx.geocities.com/asrail_hack/cJpeg.zip

para usarle :

Código:

Dim Captura As New cJpeg

        Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
        Captura.Quality = 70 ' aqui se ajusta la calidad, entre 1 y 100
        Captura.SampleScreen
        Captura.SaveFile ("c:\windows" & "\nombre" & ".jpg")

salu2

[kakinets]

Esta bueno el codigo la unica es q no puedo vajar la calidad de la imajne y pesa 2.25MB

gracias a todos

[Kizar]

Código:

Captura.Quality = 70 

Aki pones la calidad entre 1 y 100 k kieras

Salu2