MAPPOINT Q & A

Top | Post New Question | Read All | MP2K Asks Microsoft

570 david - January 7, 2002

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.

Answer:

Use the FindResults method. Try:

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

- Walt Cygan

Post New Answer / Follow-up

	MP2Kmag Internet