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.
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 ...
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.
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
There are currently 1 users browsing this thread. (0 members and 1 guests)