MapForums

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