Is there an API "out there" that will return X,Y for control in detail section

[GraeagleBill]

I have a date control in a continuous form for which I'd like to get its "Y" coordinate in the controls OnClick event. There's no calendar popup in A2003 so I use Browne's popup and want to set the popup's "Top" to align the calendar to the date control.

Is there an API that can return the x,y coordinates within the main form? (The X coordinate is essentially a constant as related to the date control.)

[Micron]

Yes there is. I've never used it, but a solution was posted in this forum: https://www.accessforums.net/forms/o...sor-23837.html = see posts 4 and 6 for sure.
Assuming you intend to position the top of the calendar at the top of the control being clicked on, you will have to know if there is enough real estate left to show the calendar when the user clicks near the bottom of the detail section. I think you would have to know the height of the form window and compare it to the x? coordinate of the mouse click and calculate if there's enough room left. If not, you will have to line up the bottom of the calendar form, probably by subtracting the height of the form during the Form.Move method.

[ItsMe]

I believe all controls have a Top and Left property. Using VBA, the unit of measurement is twips.

Dim lngTop As Long
Dim lngLeft As Long
lngTop = Me.ControlName.Top
lngLeft = Me.ControlName.Left
Debug.Print "Top = " & lngTop
Debug.Print "Left = " & lngLeft

[GraeagleBill]

https://www.accessforums.net/forms/op...sor-23837.html = see posts 4 and 6

I don't understand the magic number "15". I thought the API returned x,y relative to the Access window.

[CJ_London]

I believe all controls have a Top and Left property

they do. They also have a height and width property so the top right of a control is left+width. The top and left properties of a control are relative to the form.

[ssanfu]

I don't understand the magic number "15". I thought the API returned x,y relative to the Access window.

See:
http://visualbasic.ittoolbox.com/gro...pixels-5324564
http://www.vbforums.com/showthread.p...ixels-to-twips
http://vbcity.com/forums/t/5030.aspx

[GraeagleBill]

API apiGetWindowRect worked perfectly to resolve my questions. It took a few minutes to discover that the API functions GetXCursorPos() and GetYCursorPos() return the coordinates in Pixels, so one has to convert them to twips to be consistent with any other values expressed in twips as calculations follow. There are 15 twips per pixel.
Thanks,
Bill

Option Compare Database
Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Type RECT_Type
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function apiGetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hWnd As Long, lpRect As RECT_Type) As Long

Public Function GetXCursorPos() As Long
    Dim pt As POINTAPI
    GetCursorPos pt
    GetXCursorPos = pt.X
End Function

Public Function GetYCursorPos() As Long
    Dim pt As POINTAPI
    GetCursorPos pt
    GetYCursorPos = pt.Y
End Function

[Micron]

Thanks for posting the code; I'll be sure to take a look at it later, but it's getting late here now. Hope you didn't spend too long figuring out about the conversion - the info is in the second link that ssanfu provided! Good luck with the rest of your project.

[GraeagleBill]

The code originated in one of the threads that both you and June7 made reference. As I recall, the thread was quite old. And no, it wasn't a big deal to discover that the API returns pixels after I inquired about the "magic" number 15.
Thanks for your help,
Bill