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

I am trying my hand on Mappoint . I am trying to p....

This is a discussion on I am trying my hand on Mappoint . I am trying to p.... within the MapPoint Desktop Discussion forums, part of the Map Forums category; I am trying my hand on Mappoint . I am trying to plot the routes on the map . but ...

  1. #1
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137
    I am trying my hand on Mappoint . I am trying to plot the routes on the map . but if there are 5 to 6 points it takes a long time to plot and i get a msgbox showing Server busy with three command buttons retry sitch to and cancel but clicking on any one of them shows no effect
    Plz if yu have any solution do come out
    thanks in advance
    nirmal

  2. #2
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137
    Without seeing your code it would be hard to see what is wrong. However, for a test, start a new VB project and add the Mappoint ActiveX Control. Add a command Button and put this code in. I added the form_Load below also to get a map loaded for you. Manually add a bunch of pushpins. I ran a test with about 15 pushpins and did not get the server busy error.(I usuall see that error when there is code in the mouse events) Hopefully this will help you narrow the problem down?



    Private Sub Form_Load()

    Set objMap = MappointControl1.NewMap(geoMapNorthAmerica)

    MappointControl1.Toolbars("Drawing").Visible = True

    End Sub




    Dim objDataSet As MapPointctl.DataSet

    Dim objRecordset As MapPointctl.Recordset

    Dim objMap As MapPointctl.Map

    Dim objRoute As MapPointctl.Route

    Set objMap = MappointControl1.ActiveMap

    Set objRoute = objMap.ActiveRoute

    Set objDataSet = MappointControl1.ActiveMap.DataSets(1) '("My Pushpins")

    Set objRecordset = objDataSet.QueryAllRecords



    objRecordset.MoveFirst

    Do Until objRecordset.EOF

    objRoute.Waypoints.Add objRecordset.Pushpin.Location

    objRecordset.MoveNext



    Loop



    objRoute.Calculate



    John

    john@support-pc.com


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. customized drawing toolbar with circle and free hand only?
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 01-19-2005, 03:37 PM
  2. Just hand it to me
    By PMACAFEE in forum MapPoint Desktop Discussion
    Replies: 3
    Last Post: 01-09-2005, 04:44 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