Take Screen shot

[Diab]

How Can I Take Screen Shot Useing Api Function !
like to press PrintScreen Button And Then Past To picture file !

[Rh0ads]

Check this out: http://www.planet-source-code.com/up...1961112000.ZIP
or you can search www.planet-source-code.com

[Vlatko]

Something like this:

Dim handle as Long
handle = GetDesktopWindow
Dim dc as Long
dc = GetDC(handle)

'then use BitBlt to get the whole dc (whole screen).

[Stef]

Is there any easy way to get that image into a direct 3d texture (directx8)? (Preferably not by saving the image to disk and then loading it with D3DX.CreateTextureFromFile)

[Diab]

i have do like this


Dim handle as Long
handle = GetDesktopWindow
Dim dc as Long
dc = GetDC(handle)

'then use BitBlt to get the whole dc (whole screen).

if i want to use the BitBlt but without PictureBox Or Image On My Form
I Need To SAve The Picture In BinaryFile and after that to use it with
another application !

[Stef]

The following code sends a "printscreen button pressed"-event to the active window. Perhaps someone else could modify it (using sendmessage?) to send it to the desktop?

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
 bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT As Byte = 44

'and where you want to send the event place the following code
keybd_event VK_SNAPSHOT, 0, 0, 0
DoEvents 'to allow windows time to take the screenshot
'And finally use clipboard.getdata to put it in 
'a picturebox or something...

When I put this in the form_load sub i got a nice screenshot of the VB window. Perhaps a compiled version will get one of the desktop (haven't tried that yet).