Sorry for my english
If i have a location, how i con know the name of pushpin that is in that location?
thanks!!!!
![]()
This is a discussion on Pushpin within the MapPoint Desktop Discussion forums, part of the Map Forums category; Sorry for my english If i have a location, how i con know the name of pushpin that is in ...
Sorry for my english
If i have a location, how i con know the name of pushpin that is in that location?
thanks!!!!
![]()
Use the name property of your location object: objLoc.Name
Sorry, but the question is:
i like to know what is the of a PushPin when I press the right Button.
I've not really done much with all this but I played around for a while and this code will make the pushpin name box pop up when you right click on a pushpin
It uses the ObjectsFromPoint() Method to find objects around a screen coordinate. This includes addresses as well as pushpins, but we're only interested in pushpins, so we take only the first record returned by ObjectsFromPoint(). Also this method can return addresses and other locations in addition to pushpins, but that'll screw things up so there is the error handling that ignores the times when a user clicks an area where there is no pushpin.Code:Private Sub objMap_BeforeClick(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean) On Error GoTo Err_OnClick Dim objResults As Mappoint.FindResults Dim objResult As Object If Button = 2 Then 'Display the name of the object best matching where user clicks on map Set objResults = objMap.ObjectsFromPoint(X, Y) objResults.Item(1).BalloonState = geoDisplayName Cancel = True End If Exit_OnClick: If Err <> 0 Then MsgBox Err & " " & Err.Description End If Exit Sub Err_OnClick: 'If the object isn't a pushpin then ignore it If Err = 438 Then Resume Next Else Resume Exit_OnClick End If End Sub
Also, I added the "Cancel = True" to prevent the menu from coming up on the right click (Button = 2)
One more thing, be sure to include the "WithEvents" keyword when you declare you objMap
Hopefully this is along the lines of what you were looking for
-Jake
VERY VERY VERY THANKS.
Hola Eva.
Para hacer lo que necesitas tienes que usar primero el método ObjectsFromPoint (que te coge todos los objetos que hay en un punto), y luego el método objFindResults.Item(1) para tener acceso a ese objeto que haya donde hayas pinchado.
En este caso yo sé que donde pincho hay un objeto pushpin:
Set objFindResults = objMapa.ObjectsFromPoint(x, y)
Set objPin = objFindResults.Item(1)
Lo del botón derecho del ratón creo que lo puedes controlar con If button=2 then .....
There are currently 1 users browsing this thread. (0 members and 1 guests)