Positioning a form on the screen

[Simon]

I would like to be able to position a form on the screen when the Access
Window is minimized. I'm using the apiShowWindow to minimize the Access
Window and the form has to be set to popup. You can't use DoCmd.MoveSize
whent he Access window is minimized, right?
Thanks

 

[Simon]

sure was hoping that an expert would be able to answer this...
anyone know how to position a popup form on the screen?? -- not in the
Access window.

 

[Stuart McCall]

sure was hoping that an expert would be able to answer this...
anyone know how to position a popup form on the screen?? -- not in the
Access window.

http://www.smccall.demon.co.uk/Windows.htm#WinManip

Function CenterPopupForm is the one you want. If you don't want the form
centered, it should be easy to adapt. You just need to change the X&= and
Y&= lines.

 

[Simon]

I think I got it working now.
Thanks for the help!

 

[Stuart McCall]

I think I got it working now.
Thanks for the help!

Great. My apologies for the sloppy variable declarations. Here's a
cleaned-up version:

Public Function CenterPopupForm(f As Object, Optional CenterOnScreen As
Boolean)
'Centers a Popup window
Dim sr As Rect, fr As Rect
Dim X As Long, Y As Long
Dim hw As Long

If IsZoomed(f.hWnd) Then ShowWindow f.hWnd, 1
hw = IIf(CenterOnScreen, GetDesktopWindow(), Application.hWndAccessApp)
sr = WinRect(hw)
fr = FormRect(f)
X = (sr.Left + (sr.Right - sr.Left) / 2) - ((fr.Right - fr.Left) / 2)
Y = (sr.Top + (sr.Bottom - sr.Top) / 2) - ((fr.Bottom - fr.Top) / 2)
SetWindowPos f.hWnd, 0&, X, Y, 0&, 0&, SWP_NOSIZE Or SWP_NOZORDER
End Function

 

[Simon]

your function works well and does the job with a minimal amount of code
nice!

 

[Stuart McCall]

your function works well and does the job with a minimal amount of code
nice!

Thanks. Minimal code is what I like. I hope it serves you well.