PDA

View Full Version : So how do i get it to calculate teh distance betwe....



Anonymous
12-19-2001, 07:42 AM
So how do i get it to calculate teh distance between two places on a form and return the distance and cost of travelling.

Walt Cygan
12-19-2001, 07:42 AM
The simplest way is to add waypoints, calculate a route and then use the cost and distance properties of the route. For example, from the VB reference:


Dim objApp As New MapPoint.Application

Dim objMap As MapPoint.Map

Dim objRoute As MapPoint.Route


'Set up application

Set objMap = objApp.ActiveMap

Set objRoute = objMap.ActiveRoute

objApp.Visible = True

objApp.UserControl = True


'Add route stops and calculate the route

objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)

objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)

objRoute.Calculate


'Output the total length and cost of the route

MsgBox "The route distance is: " + CStr(objRoute.Distance)

MsgBox "Cost of route: $" + CStr(objRoute.Cost)


- Walt Cygan (http://www.mp2kmag.com/author.asp?id=9)