Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 6 of 6

Pushpin

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 ...

  1. #1
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    Pushpin

    Sorry for my english

    If i have a location, how i con know the name of pushpin that is in that location?

    thanks!!!!

  2. #2
    jdwhytie is offline Member Yellow Belt
    Join Date
    Jun 2004
    Posts
    37
    Use the name property of your location object: objLoc.Name

  3. #3
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    thanks but...

    Sorry, but the question is:

    i like to know what is the of a PushPin when I press the right Button.

  4. #4
    jdwhytie is offline Member Yellow Belt
    Join Date
    Jun 2004
    Posts
    37
    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

    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&#58;
        'If the object isn't a pushpin then ignore it
        If Err = 438 Then
        Resume Next
        Else
        Resume Exit_OnClick
        End If
    
      End Sub
    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.

    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

  5. #5
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    GRACIASSSSSSSSSSSS

    VERY VERY VERY THANKS.

  6. #6
    clavijo is offline Junior Member White Belt
    Join Date
    May 2004
    Posts
    9

    Re: thanks but...

    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 .....

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Finding Pushpin Name by clicking on the Pushpin?(MP 2002)
    By NickSP in forum MapPoint Desktop Discussion
    Replies: 4
    Last Post: 01-10-2003, 01:11 PM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96