Print Screen to picture

[Bullitt]

Is it possible to make a printscreen in scripting and let this printscreen come in a picture on the form?

thanks

[lotus18]

Is it possible to make a printscreen in scripting and let this printscreen come in a picture on the form?

thanks

try to use an API function for that

[Bullitt]

I solved it this way.

SendKeys "{PRTSC}"

followed by

imgPrintScreen.Picture = Clipboard.GetData

With imgPrintScreen the namen of the image on the screen.

[Bullitt]

I was too fast with my post because now I see that SendKeys "{PRTSC}" isn't working. In API I can only find a way to take printscreen of a window, not of the whole screen.

[Killer42]

This is a standard function performed by screensavers. If you look up how to create a screensaver in VB, you'll find your answer.

[QVeen72]

Hi,

Declare this API on top of the form :

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()
    DoEvents
    Clipboard.Clear
    keybd_event vbKeySnapshot, 0, 0, 0
    DoEvents
    keybd_event vbKeySnapshot, 0, &H2, 0
    DoEvents
    Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    DoEvents
    Me.Refresh
End Sub
 
 

Regards
Veena

[Bullitt]

Thanks for the help.

Know I still have 1 small problem. I want to have the print screen without the form, so I hide the form just before I take the print screen, but the script is too fast, is it possible to wait until the form is really closed? I tried with frmblebleble.Visible but it looks like that parameter changes immediately when you do hide.

[Bullitt]

Ok, problem fixed, just 1 DoEvents in between and it worked like I was hoping.

[crapycoder]

hi bro,

i have a problem with the "vbKeySnapshot".
i am getting an error. where do i declare this??