How does one get the activeX mappoint control to draw a line between pushpins which represent gps lat/lon points as a vehicle moves on the map?
This is a discussion on How does one get the activeX mappoint control to d.... within the MapPoint Desktop Discussion forums, part of the Map Forums category; How does one get the activeX mappoint control to draw a line between pushpins which represent gps lat/lon points as ...
How does one get the activeX mappoint control to draw a line between pushpins which represent gps lat/lon points as a vehicle moves on the map?
You would use the AddLine method. This is a code snippet from the
developer's reference in MapPoint Help (it can also be found on MSDN
Library on the web):
<form><textarea wrap="off" readonly="true" name="code" style="BORDER-BOTTOM: gray 1px inset; BORDER-LEFT: gray 1px inset; BORDER-RIGHT: gray 1px inset; BORDER-TOP: gray 1px inset; OVERFLOW: auto; WIDTH: 100%" rows="12" cols="40"> Sub AddLineToMap()
Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objLoc1 As MapPoint.Location
Dim objLoc2 As MapPoint.Location
'Set up the application
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True
'Get two locations and zoom to it
Set objLoc1 = objMap.FindResults("Seattle, WA").Item(1)
Set objLoc2 = objMap.FindResults("Redmond, WA").Item(1)
Set objMap.Location = objLoc1
'Add a Line from one location to the other
objMap.Shapes.AddLine objLoc1, objLoc2
End Sub </textarea></form>
There are currently 1 users browsing this thread. (0 members and 1 guests)