How to constrain a screen-dump to include only the current form...

[MLH]

Last month, I posted this...

http://support.microsoft.com/d*efaul...;en-us;1009*73
shows Function Screendump(). It is code that effectively does the
same thing as pressing SHIFT-PRTSCR on your keyboard. I am
trying to modify that code to copy only the screen image of the
current form to the clipboard, rather than the entire Access window.
Here is a small snippet from the function...
'-----------------------------*----------------------
' Get window handle to Windows and Microsoft Access
'-----------------------------*----------------------
DeskHwnd = GetDesktopWindo w()
AccessHwnd = GetActiveWindow ()
'-----------------------------*----------------------
' Get screen coordinates of Microsoft Access
'-----------------------------*----------------------
Call GetWindowRect(A ccessHwnd, rect)
fwidth = rect.right - rect.left
fheight = rect.bottom - rect.top
'-----------------------------*----------------------
' Get the device context of Desktop and allocate memory
'-----------------------------*----------------------
hdc = GetDC(DeskHwnd)
hdcMem = CreateCompatibl eDC(hdc)
hBitmap = CreateCompatibl eBitmap(hdc, fwidth, fheight)
If its possible to drill down the "Get window handle to Windows
and Microsoft Access" operation and do the same sort of thing
for a specific form displayed in the MS Access window, I would
like to do so. That way, when I paste the clipboard contents into
PBrush.exe, only the subject form's image appears - none of the
surrounding image data.
I need read coordinates and make assignments to rect.right,
rect.left, rect.bottom & rect.top for form in the window rather than
the window itself. Suggestions anyone?

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxx

Terry Kreft was so kind as to post an excellent recommendation. ..

Replace the line
AccessHwnd = GetActiveWindow ()

with
AccessHwnd = Screen.ActiveFo rm.Hwnd

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxx

I would now like to ask for a solution that would capture some
other types of windows. Specifically, the relationships window,
the database window and the macro design window

[Stephen Lebans]

A simple method is to use the FindWindow API. This API allows you to
find a WIndow handle by the Caption of a Window and/or its Window class.
Here is sample code showing you how to find the Relationship window.
http://www.lebans.com/saverelationshipview.htm

If you have access to Spy++ then it is easy to determine the
Caption/Class of any window you want to programmaticall y find. If you do
not have Spy++ then there are several Freeware alternatives out there.
Alternatively, you could go to the Access Web where you'll find a
solution produced by Dev and Terry that can be used to find the
information you require.
http://www.mvps.org/access/modules/mdl0032.htm

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"MLH" <CR**@NorthStat e.net> wrote in message
news:k9******** *************** *********@4ax.c om...

Last month, I posted this...

http://support.microsoft.com/d*efaul...;en-us;1009*73
shows Function Screendump(). It is code that effectively does the
same thing as pressing SHIFT-PRTSCR on your keyboard. I am
trying to modify that code to copy only the screen image of the
current form to the clipboard, rather than the entire Access window.
Here is a small snippet from the function...
'-----------------------------*----------------------
' Get window handle to Windows and Microsoft Access
'-----------------------------*----------------------
DeskHwnd = GetDesktopWindo w()
AccessHwnd = GetActiveWindow ()
'-----------------------------*----------------------
' Get screen coordinates of Microsoft Access
'-----------------------------*----------------------
Call GetWindowRect(A ccessHwnd, rect)
fwidth = rect.right - rect.left
fheight = rect.bottom - rect.top
'-----------------------------*----------------------
' Get the device context of Desktop and allocate memory
'-----------------------------*----------------------
hdc = GetDC(DeskHwnd)
hdcMem = CreateCompatibl eDC(hdc)
hBitmap = CreateCompatibl eBitmap(hdc, fwidth, fheight)
If its possible to drill down the "Get window handle to Windows
and Microsoft Access" operation and do the same sort of thing
for a specific form displayed in the MS Access window, I would
like to do so. That way, when I paste the clipboard contents into
PBrush.exe, only the subject form's image appears - none of the
surrounding image data.
I need read coordinates and make assignments to rect.right,
rect.left, rect.bottom & rect.top for form in the window rather than
the window itself. Suggestions anyone?

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxx

Terry Kreft was so kind as to post an excellent recommendation. ..

Replace the line
AccessHwnd = GetActiveWindow ()

with
AccessHwnd = Screen.ActiveFo rm.Hwnd

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxx

I would now like to ask for a solution that would capture some
other types of windows. Specifically, the relationships window,
the database window and the macro design window