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

## Thanks for the useful article about linking mappoi....

This is a discussion on Thanks for the useful article about linking mappoi.... within the MapPoint Desktop Discussion forums, part of the Map Forums category; Thanks for the useful article about linking mappoint with access to retrive driving directions and map but i was wondering ...

1. Senior Member Black Belt
Join Date
Jul 2002
Posts
5,137
Thanks for the useful article about linking mappoint with access to retrive driving directions and map but i was wondering is it possible to gain directions by using just a postal code as not all addresses have street names.

2. Senior Member Green Belt
Join Date
Aug 2002
Posts
124
Use the FindResults method. Try:

<pre>
Dim oPush(1 To 2) As MapPointCtl.Pushpin
Dim oLoc(1 To 2) As MapPointCtl.Location
Dim oMap As MapPointCtl.Map
Dim oRoute As MapPointCtl.Route
Dim distance As Double

Set oMap = ctlMapPoint.ActiveMap
Set oLoc(1) = oMap.FindResults("SW1X 7XL, United Kingdom")(1)
Set oLoc(2) = oMap.FindResults("SW1P 4RG, United Kingdom")(1)

If Not oLoc(1) Is Nothing Then
Set oPush(1) = oMap.AddPushpin(oLoc(1))
oPush(1).GoTo
oPush(1).Highlight = True
If Not oLoc(2) Is Nothing Then
Set oPush(2) = oMap.AddPushpin(oLoc(2))
oPush(2).GoTo
oPush(2).Highlight = True

Set oRoute = oMap.ActiveRoute
oRoute.Clear
oRoute.Waypoints.Add oLoc(1)
oRoute.Waypoints.Add oLoc(2)
oRoute.Calculate
MsgBox CStr(oRoute.distance)
End If
End If
</pre>

- Walt Cygan

#### Thread Information

##### Users Browsing this Thread

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

#### Posting Permissions

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