Share via

ResetSpeeds method

  • Article

Resets the preferences in the Speed property of the DriverProfile object to the MapPoint default values.

Applies to

Objects: DriverProfile

Syntax

object.ResetSpeeds

Parameters

Part

Description

object

Required. An expression that returns a DriverProfile object.

Example

Sub ChangeThenResetSpeeds()

Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objRoute As MapPoint.Route

'Set up the 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

'Change Street speed and then reset it
objRoute.DriverProfile.Speed(geoRoadStreet) = 30
objRoute.DriverProfile.ResetSpeeds

'Recalculate the route
objRoute.Calculate

End Sub

Note   This sample code is specifically for use in MapPoint North America; it is for illustration purposes only.