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

Route between postcodes

This is a discussion on Route between postcodes within the Development forums, part of the MapPoint Desktop Discussion category; Hi all The code below calculates the driving and straight line distances between two UK postcodes correctly. But no route ...

  1. #1
    ajanaman is offline Junior Member Yellow Belt
    Join Date
    Dec 2009
    Posts
    13

    Route between postcodes

    Hi all

    The code below calculates the driving and straight line distances between two UK postcodes correctly. But no route shown on the map. I will like to see the route shown on the map, please help if you can. Thanks.

    The code:

    Code:
            MappointControl1.NewMap "c:\ccdmap\cleanmap.ptm"
            Dim oMap As Mappoint.Map
            Dim objLoc1 As Mappoint.Location
            Dim objLoc2 As Mappoint.Location
            Dim oPin As Mappoint.Pushpin
            Label3.Caption = ""
            Label4.Caption = ""
            Label5.Caption = ""
            Set oMap = GetObject(, "MapPoint.Application").ActiveMap
            Set objRoute = oMap.ActiveRoute
            objRoute.Clear
            'Locate the 2 points
            Set objLoc1 = oMap.FindAddressResults(, , , , "SE19 1JX", "UK")(1)
            Set oPin = oMap.AddPushpin(objLoc1)
            objLoc1.GoTo
            Set objLoc2 = oMap.FindAddressResults(, , , , "SW16 2PN", "UK")(1)
            Set oPin = oMap.AddPushpin(objLoc2)
            objLoc2.GoTo
                'Calculate the route
                objRoute.Waypoints.Add objLoc1
                objRoute.Waypoints.Add objLoc2
                objRoute.Calculate
                
                'Drive Distance in kms
                Label3.Caption = "Driving Dist kms: " + Str(objRoute.Distance)
                'Drive Time in minutes
                Label4.Caption = "Driving Time mins: " + Str(objRoute.DrivingTime)
                'Straight Line Distance in kms (as a check)
                Label5.Caption = "Straight line dist kms: " + Str(oMap.Distance(objLoc1, objLoc2))
                
         oMap.Saved = True
         Set objApp = Nothing
         Set oMap = Nothing
         Set objLoc1 = Nothing
         Set objLoc2 = Nothing
         Set objRoute = Nothing
    ayo

  2. #2
    ajanaman is offline Junior Member Yellow Belt
    Join Date
    Dec 2009
    Posts
    13

    Re: Route between postcodes

    I have managed to sort the routing problem. Apparently i was not specifying the activemap correctly. The correct map for me was:

    Set oMap = MappointControl1.ActiveMap

    And that did it. Got the distances and the route displayed ok.

    Thanks to you all.

    ayo

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. UK Postcodes
    By Marktl in forum MapPoint Desktop Discussion
    Replies: 4
    Last Post: 01-12-2009, 06:11 PM
  2. postcodes
    By Tomm in forum MapPoint Desktop Discussion
    Replies: 8
    Last Post: 08-22-2008, 06:46 AM
  3. Riute between Postcodes using VB.net
    By Enigma in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 01-07-2007, 01:49 PM
  4. Optimising a route of postcodes
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 06-19-2003, 12:03 PM
  5. Postcodes mapping
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 08-06-2002, 10:20 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 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127