Each time i open the form with the AxMappointControl1, all of the Options in the Route Planner are reset to the default. My idea is to store my settings in a DB and set them each time the AxMappointControl1 is used. Unfortunately, I am not sure how to do this, any thoughts?

I would like to Control the Fuel costs mostly, but I had access to all the options it would make life easier.

Thanks.

Hi,

you cannot just let the control save them but it is very simple. Make a class with all the settings you want to keep persistent. Then stream it to an xml file or whatever you like to have it kept. I can make you an example in C# if you want.

Originally Posted by Wilfried

Hi,

you cannot just let the control save them but it is very simple. Make a class with all the settings you want to keep persistent. Then stream it to an xml file or whatever you like to have it kept. I can make you an example in C# if you want.

hi

can u do exapmle for me for this compilation:
Private Sub OBLICZ()
Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objRoute As MapPoint.Route
Dim objLoc1 As MapPoint.Location
Dim objLoc2 As MapPoint.Location

Set objApp = CreateObject("MapPoint.Application.EU.16")
objApp.Visible = False

Set objMap = objApp.NewMap
Set objRoute = objMap.ActiveRoute
Worksheets("Arkusz1").Cells(1, 3).Value = "ODLEGŁOŚĆ (kms)"
Worksheets("Arkusz1").Cells(1, 4).Value = "Czas(mins)"
Worksheets("Arkusz1").Cells(1, 5).Value = "Koszt(PLN)"
NReadRow = 2

Do While Worksheets("Arkusz1").Cells(NReadRow, 2) <> ""

'Locate the 2 points
Set objLoc1 = objMap.FindResults(Worksheets("Arkusz1").Cells(NRe adRow, 1)).Item(1)
Set objLoc2 = objMap.FindResults(Worksheets("Arkusz1").Cells(NRe adRow, 2)).Item(1)

'Calculate the route
objRoute.Waypoints.Add objLoc1
objRoute.Waypoints.Add objLoc2
objRoute.Calculate

'Drive Distance in kms
Worksheets("Arkusz1").Cells(NReadRow, 3) = objRoute.Distance
'Drive Time in minutes
Worksheets("Arkusz1").Cells(NReadRow, 4) = objRoute.DrivingTime
'Straight Line Distance in kms (as a check)
Worksheets("Arkusz1").Cells(NReadRow, 5) = objRoute.Cost
objRoute.Clear

NReadRow = NReadRow + 1

Loop

End Sub