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

Remolve all pushpins

This is a discussion on Remolve all pushpins within the MapPoint Desktop Discussion forums, part of the Map Forums category; Hi. I'm using a MapPoint control inserted in a VB 6 form. Is there a way to remove all pushpins ...

  1. #1
    Josemi is offline Junior Member White Belt
    Join Date
    Mar 2003
    Posts
    5

    Remolve all pushpins

    Hi.
    I'm using a MapPoint control inserted in a VB 6 form. Is there a way to
    remove all pushpins in the map without "FindPushpin" all of them? Sometimes,
    I want to clear the map, I know there must be some pushpins, but I don't
    know their names. So I would need something like "map.RemoveAllPushpins()".

    Thanks in advance.

  2. #2
    Eric Frost's Avatar
    Eric Frost is offline Administrator Black Belt
    Join Date
    Jul 1992
    Posts
    5,094
    Blog Entries
    4
    With the legend open, you should be able to select and delete whole Pushpin sets.
    ~ Order MapPoint MapPoint 2013 Here and Get Free Access to the MapForums Downloads ~
    ~~
    ~ Upgrade to Get Access to the MapForums Downloads ~

  3. #3
    Josemi is offline Junior Member White Belt
    Join Date
    Mar 2003
    Posts
    5
    Thanks for the answer, but I forgot to mention that I want to delete the from VB code.

  4. #4
    Jade is offline Junior Member Yellow Belt
    Join Date
    Mar 2003
    Posts
    18
    I think it is not possible, I am looking for just the same thing.
    But as I looked on many forums, I did not find anything about it, except this: replace the pushpins by "empty" icon's..
    And that's what I did, it's not the most clean solution, but it works...

  5. #5
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    Here is a sample to delete all pushpins

    Code:
    Dim objmap As MapPointCtl.Map
    Dim objdataset As MapPointCtl.DataSet
    Dim objRecordset As MapPointCtl.Recordset
    
    Set objmap = Form1.MappointControl1.ActiveMap
    
      For Each objdataset In objmap.DataSets
        Set objRecordset = objdataset.QueryAllRecords
            Do Until objRecordset.EOF
               objRecordset.Pushpin.Delete
              objRecordset.MoveNext
            Loop
        Next
    another option is to open a new map without saving the current.

    Code:
    Form1.MappointControl1.ActiveMap.Saved = True
    Form1.MappointControl1.NewMap (geoMapNorthAmerica)

  6. #6
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137
    I think this is what you are looking for: (Delphi)

    var
    ONE: OleVariant;
    myMap: TMap;
    begin
    ONE:=1;
    ...
    myMap.DataSets[ONE].Delete;

    This deletes all pushpins the myPushpins dataset. When you add a new pushpin the map, the MyPushpins dataset is recreated. It works as long as you don't have other datasets on your map though. If this is not the case, you would need to look for the proper dataset (myPushpins) first.

    Hope it helps.
    Pascal

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Creating a subset of Pushpins from a set of pushpins
    By paf33 in forum MapPoint Desktop Discussion
    Replies: 3
    Last Post: 08-09-2005, 04:54 AM

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