A simple "print-screen" type Q

[sql_lall]

1) What code do you use to get the background or current picture from the screen (including icons and programs running, like pressing "print screen")? Like those weird screensavers which copy what's on the screen then jumble it about.

Oh, and 2) what code can you use to find the current dimensions of the screen (e.g. 680 x 800 etc.)??



Any help will be appreciated

[Sastraxi]

2)

W = Screen.Width / Screen.TwipsPerPixelX
H = Screen.Height / Screen.TwipsPerPixelY

1)

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Function ScreenCapture() As Long
    ScreenCapture = GetDC(GetDesktopWindow)
End Function

If you don't understand something, just tell me.

[sql_lall]

Thanks a lot, i understand it

[sql_lall]

Yeah, i just though:
Is it then possible to change screen size by changing the Screen.Width and .height variables?

[PsychoMark]

Nope, you have to use the ChangeDisplaySettings API...

[Sudhakar]

Hey SasTraxi...


Can you explain me what it is doing and how to test it?

When I tested this I am getting some values for that function.
8126
1918
17666
1914
1906

And they are repeating when I keep pressing Command1.

Regards.

[sql_lall]

Now, how do you use that with:
picture1.picture = (Background)??
I tried but me and my low intellect failed.

[Sastraxi]

Whoops! Left out a doosey- BitBlt. That number is just the location of the desktop graphic - you need to retrieve it.

Declare the API BitBlt:

Function ScreenCapture(Pic As PictureBox) As Long
    ScreenCapture = GetDC(GetDesktopWindow)
    BitBlt Pic.hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, ScreenCapture, 0, 0, vbSrcCopy
End Function

If you want to know more of BitBlt (it's very powerful!) you can see my tutorial on it...

http://vbden.tripod.com/articles/invmask.htm