Printable View
Trying to use custom pop-up menu on a Mappoint VB application. I got the map object to respond to the mouse down event. Whoever, if you do not resond to the pop-up menu immediately, you get a server error. The same thing happens when you launch a modal form from a map object event. Any feedback would be appreciated.
Also, is there in a VB app to have custom menu items be shown in conjunction with the mappoint menu items?
John:
Thanks for the follow up. The following is the code in the mouse down event in the map object. It just brings up a popup menu on the right button (2):
If Button = 2 Then
frmMain.SSActiveToolBars1.PopupMenu "ID_mnuMap"
End If
The following are my findings:
1. If I put my pop-up menu code in the mouse up event of the map object, it is being ignored and the mappoint menu is poped up.
2. If I put my pop-up menu code in the mouse down event of the map object, then the mappoint popup menu is ignored and my popup menu shows up. Also, if theuser does not respond to this popup menu with few seconds, I get a mappoint generated server error.
What I realy want to be able to do is pop up my menu on the mouse up event. Also I would like to know if there is a way to append my menu items to mappoints menu items.
Vic
Vic,
Put your code in the MouseUp event and this code in the MouseDown Event.
If Button = vbRightButton Then
Set wshshell = CreateObject("wscript.shell")
wshshell.SendKeys "{ESC}"
wshshell.SendKeys "{ESC}"
End If
Let me know if this works for you.
John
john@support-pc.com
Vic,
Lets see the code you have in the Mouse Down event.
John
john.meyer@support-pc.com