Hi,
I have a text file with gps coordinate. (North of France)
Latitude Longitude
50.637557 3.071025 (a)
50.638118 3.070740 (b)
50.638902 3.070188 (c)
50.639385 3.069855 (d)

I make a prog with VBasic for move a pushpin in the XY Location a -> b -> c -> d.

Here 's my code:

Private Sub Form_Load()

Dim objMap As MapPointCtl.Map
Dim objLoc As MapPointCtl.Location
Dim Loc As MapPointCtl.DataSet
Dim objPin_A As MapPointCtl.Pushpin

MappointControl1.NewMap geoMapEurope
Set objMap = Form1.MappointControl1.ActiveMap
Set Loc = objMap.DataSets.ImportData("c:\gps01.txt")

objMap.DataSets.ZoomTo

End Sub


But, I have just my 4 pushpin in the map.
What's the solution for move a pushpin.

Thank's.

You will need to delete pushpin the add it at new location.

Originally Posted by John Meyer

You will need to delete pushpin the add it at new location.

Thank's for you answer
But what is the method for delete a pushpin.
Or for put the location in a table (array)
have you a sample...

Thank's

To delete a pushpin named "testpin"

Code:

Set objmap = GetObject(, "MapPoint.Application").ActiveMap
Set objPin = objMap.FindPushpin("testpin")
objPin.Delete

As far as putting the location in a table (arrray) you need to check out this article that shows you how to get the lat/long of a pushpin

http://www.mp2kmag.com/articles.asp?ArticleID=13

Thank's John.

A last question.
When I put this code line,

Code:

Set objMap = Form1.MappointControl1.ActiveMap
    Set Loc = objMap.DataSets.ImportData("c:\gps01.txt")

and my gps01.txt is:

• Latitude Longitude
  50.637557 3.071025
  50.638118 3.070740
  50.638902 3.070188
  50.639385 3.069855
  50.639489 3.069977

I'have my 5 Pushpin on the map. I don't want that.
I just want put my data on a Array and after show my pushpin with a time delay.(they must move and a road)
Tank's ,
Not, I begin with VB.

I think you may have to write a routine to read the text file and fill the array yourself. Here is some sample code that might help you.

Code:

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
Dim objPushPin As MapPointCtl.Pushpin

Dim objLocs(1 To 5) As MapPointCtl.Location
Set objLocs(1) = objmap.GetLocation(50.637557, 3.071025)
Set objLocs(2) = objmap.GetLocation(50.638118, 3.07074)
Set objLocs(3) = objmap.GetLocation(50.638902, 3.070188)
Set objLocs(4) = objmap.GetLocation(50.639385, 3.069855)
Set objLocs(5) = objmap.GetLocation(50.639489, 3.069977)


For i = 1 To 5
Set objPushPin = MappointControl1.ActiveMap.AddPushpin(objLocs(i), "testpin")
objPushPin.Location.GoTo
objmap.Altitude = 2

'put you delay routine here?

Next

Thank's a lot John.
I try it and it fine.
But if I want to put my data in a array, I take a msdn example:

Code:

Sub ImportFromMultipleSources()

  Dim mpApp As MapPoint.Application
  Dim mpDatasets As MapPoint.DataSets
  Dim mpDataSet As MapPoint.DataSet
  Dim myExampleArray(2, 2)

  'Start MapPoint
  Set mpApp = New MapPoint.Application
  mpApp.Visible = True
  mpApp.UserControl = True

  'Get the DataSets collection
  Set mpDatasets = mpApp.NewMap.DataSets

  'Create the ArrayOfFields descriptions

  'Field is specified by name
   myExampleArray(1, 1) = "Latitude"
  'tells MapPoint to use this field as the latitude field
   myExampleArray(1, 2) = geoFieldLatitude

  'Field again specifed by name
  myExampleArray(2, 1) = "Longitude"
  'tells MapPoint to use this field as the longitude field
  myExampleArray(2, 2) = geoFieldLongitude

   'Perform the import
  Set mpDataSet = mpDatasets.ImportData("c:\gps01.txt", myExampleArray)

  'The (x,2) elements are of the type GeoFieldType or string.
  'If string, then they set the new name of the field, and
  'MapPoint assumes that the field is a nongeocoding data field.

End Sub

And the compil VB doesn't want the declaration.
Why.?
Thank's another

Did you add a reference to the the MapPoint type library?

In Visual Basic choose References on the Project menu and check the box for Microsoft MapPoint 9.0 Object Library

i use this code to show where i am with using data form my gps. but all the pushpins stay on the map. how can i just show the last pushpin, or is there another way to show your GPS position?

To create the pushpin:

Dim oPin1 As MapPointCtl.Pushpin
Set oPin1 = MappointControl1.ActiveMap.AddPushpin(MappointCont rol1.ActiveMap.GetLocation(0, 0), "currentLoc")

Later you can move the pushpin (if the pin object is not public, then you have to find the pushpin by using its name first):

Set oPin1 = MappointControl1.ActiveMap.FindPushpin("currentLoc ")
Set oPin1.Location = MappointControl1.ActiveMap.GetLocation(latitude, longitude, altitude)