How to get location of object

[lawdy]

This is a good one!

I have a form that contains 336 text 'caption' boxes. It is for scheduling jobs. Each box does (or can) hold a job name. The job names are entered on this form from another form.

I have built a right click menu to perform different tasks. When I right click on one of these objects, and then select a item from the list, I get the mouse position of the item on the menu. I need the mouse position of the box that I right clicked.

I included my code although you should not need it. Help please.

Sub CreateNewShortcutMenu()
Dim newButton As CommandBarControl
Dim cmbRightClick As Office.CommandBar
Set cmbRightClick = CommandBars.Add("newRightClick", msoBarPopup, False, False)


Set newButton = cmbRightClick.Controls.Add(msoControlButton, 1, , , False)
With newButton
.Style = msoButtonIconAndCaption
.Caption = "&Invoice" ' Menu caption which shows when right clicked
' .Picture = CurrentProject.path & "\Images\Invoice.png" ' Path to the picture
.OnAction = "=Invoice()" ' name of fuction to call
End With

Set newButton = cmbRightClick.Controls.Add(msoControlButton, 1, , , False)
With newButton
.Style = msoButtonIconAndCaption
.Caption = "&Proposal" ' Menu caption which shows when right clicked
' .Picture = CurrentProject.path & "\Images\Invoice.png" ' Path to the picture
.OnAction = "=Proposal()" ' name of fuction to call
End With
End Sub

Public Function Invoice()
' MsgBox "You clicked on Invoice"
Get_Cursor_Pos
End Function

Public Function Proposal()
' MsgBox "You clicked on Invoice"
Get_Cursor_Pos
End Function

Sub Get_Cursor_Pos()
' Main routine to dimension variables, retrieve cursor position,
' and display coordinates
' Dimension the variable that will hold the x and y cursor positions
Dim Hold As POINTAPI
' Place the cursor positions in variable Hold
GetCursorPos Hold
' Display the cursor position coordinates
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
"Y Position is : " & Hold.Y_Pos
End Sub

[pbaldy]

Does this work for you?

Debug.Print Screen.ActiveControl.Top & " : " & Screen.ActiveControl.Left

[lawdy]

Where do I put that code. I am doing this on the right click? I get '0 : 2460' everywhere I right click.

[pbaldy]

Perhaps the right click isn't giving focus to the textbox? In a brief test it did. Can you post the db here?

[lawdy]

Well, I have a new problem now. My database is very large. I am trying to make you a sample, but for the right click, I need a reference to Access objects. The 'reference' object under tools is grayed. I don't know why. Also it is saving the database as a 'mdb' instead of 'accdb'. I am using Access 2010.

[lawdy]

Ok, I have created and attached a sample database. There is one form which has no code attached. There is one module which has all the code. I need to right click on any of the 3 objects on the form and get the mouse position of that object and open the short cut menu. Getting the mouse position of the object will let me know which object was right clicked.

The way I have written the code, I get the mouse position of the mouse when I click the menu selection. I need the mouse position when the box is right clicked.

[rpeare]

on your control can't you just use something like:

Private Sub fld_Test_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = acRightButton Then
             'bring up your right click menu code here
    End If
End Sub

[pbaldy]

You used labels, which can't have focus, which is why my method didn't work. Changing them to textboxes appears to work, but not sure how that fits into what you're trying to accomplish. Chris does a lot with this type of thing, so you may find his drag and drop sample helpful:

http://www.baldyweb.com/ChrisOSamples.htm

I use it in a map application and grab the position of the label as it is moved.

[rpeare]

I downloaded your database and put the mouseup code on the controls in the subform expected results here's a copy of your database back the mouseup commands seem to work for all controls in the subform whether you right click on the label or the text box itself.

test.zip

[lawdy]

I may have found a way to get it done. I am now trying to use the 'mouse move'. With that, I can get the actual object name, instead of having to determine which object based on cursor location. Thank you for trying.

[rpeare]

my example gets the control name, 'object name' is vague. There are two components to a text box the text box itself and the label, if you are trying to get the control name regardless of whether you right click on the text box or the label, the code I gave you will work.

If you are trying to get two different returned values based on whether the user right clicks the label are as opposed to the text box area that's a different matter but I don't know why you'd want to do anything when right clicking on the label of a text box control.

[lawdy]

I am trying to get the control name. I like your way better than mine. Mouse move constantly sends the control name where mouse up does it one time. I thought mouse up only worked with mouse down. Thank you very much.