Hello,
I would like to know if there is a way to trace a line on a map with Mappoint 2004 between two or more points with VB6.
I need to do so because if I trace a route with the "objMap.ActiveRoute" knowing only some points that are not so close to each other, the calculated route is often wrong.
So I would prefere to show the points and trace some straight lines between them.
I hope I have been clear...
Thank you!
Giacomo from Italy

Hi,

The match of football between Italy and Ghana was exitant yesterday.

Concerning your post, you have this example in Mappoint Help File:

Code:

Sub AddLineToMap()

  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objLoc1 As MapPoint.Location
  Dim objLoc2 As MapPoint.Location

  'Configure l'application
  Set objMap = objApp.ActiveMap
  objApp.Visible = True
  objApp.UserControl = True

  'Obtient deux lieux et les agrandit
  Set objLoc1 = objMap.FindResults("Seattle, WA").Item(1)
  Set objLoc2 = objMap.FindResults("Redmond, WA").Item(1)
  Set objMap.Location = objLoc1

  'Ajoute un trait reliant les deux lieux
  objMap.Shapes.AddLine objLoc1, objLoc2

  End Sub

Ciao

Ciao!
Thank you very much!!!
You're right, I just had to look at the help... sorry!
Now another question (I'm sure it's very simple for you...): how can I delete every shape from the map (I need something like a 'objmap.deleteAllShapes')?
For example, to delete all my pushpins I use this:

Dim objDataSet As MapPointctl.DataSet
For Each objDataSet In objMap.DataSets
If objDataSet.name = "Simboli" Then
objDataSet.Delete
Exit For
End If
Next

But it does'nt work with shapes!
Thank you and.... FORZA ITALIA!!
Bye, Giacomo

Hi,

Code:

Shapes shapes = MP.ActiveMap.Shapes;
foreach (Shape s in shapes)
    s.Delete();