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

My Pushpins !!!!!

This is a discussion on My Pushpins !!!!! within the MapPoint Desktop Discussion forums, part of the Map Forums category; Hi All, first of all thanks to everyone who has helped me out so far I am nearly there with ...

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

    My Pushpins !!!!!

    Hi All,

    first of all thanks to everyone who has helped me out so far I am nearly there with this test.

    BUT.....

    Now I have been asked if when adding a Pushpin progmatically could it please not be added to the 'My Pushpins' set but instead be added to one of the 15 sets we have already loaded into the map. Can anybody help with this one as I can't seem to see how to change the Pushpin set name when you add the pin.

    Thanks Dave.

  2. #2
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    'Change ("My Pushpins") to one of your other datasets.

    Dim objDataSet As MapPointCtl.DataSet
    Dim objmap As MapPointCtl.Map
    Set objmap = MappointControl1.ActiveMap
    Set objDataSet = objmap.DataSets("My Pushpins")

    Set objLoc = objmap.FindResults("Seattle, WA")(1)
    Set objPushpin = objmap.AddPushpin(objLoc, "Sample")
    objPushpin.MoveTo objDataSet

  3. #3
    Joeba is offline Junior Member White Belt
    Join Date
    Sep 2002
    Posts
    7
    I just add the pushpin, and then move it to another pushpinset of my own:

    Set pushP = frmMain.mpControl.ActiveMap.addPushpin(objLoc)
    pushP.MoveTo frmMain.mpControl.ActiveMap.DataSets.item("PP")

    hope this is what you need
    greetz Joeba

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

    I spotted the MoveTo about 20 mins after posting (I really must read the manuals...;-) ) and after all pins have been created then just deleted the 'My Pushpins' data set and everything is as requested by the users.

  5. #5
    blackmap is offline Member Yellow Belt
    Join Date
    Dec 2002
    Posts
    39
    What's wrong with this one?

    Dim pushP As MapPointCtl.Pushpin
    Set objLoc = objMap.XYToLocation(X, Y)
    Set objdataset = objMap.DataSets("Objekte")
    Set pushP = objMap.AddPushpin(objLoc)
    pushP.MoveTo objdataset


    It won't display a pushpin in my set named "Objekte"....

    Puh....


    Peter

  6. #6
    blackmap is offline Member Yellow Belt
    Join Date
    Dec 2002
    Posts
    39
    Maybe the reason why is that the dataset is an imported one?
    Then: How doI transfer the imported dataset into a "normal" one?

  7. #7
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137
    Yeah, imported datasets aren't the same as regular pushpin data sets. They have more columns.

    You can just create new pushpins. Use a recordset to loop through the imported dataset, and call AddPushpin on the normal set. Then delete the puspins in the imported dataset. It's a pain, but it works.

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