(I´m sorry for my english)Hello. I have a problem with PushPin ...expect you can help me. Taking(Catching) the information of
a recordset I add a pushpin. When I add the second one I remove the Previous and this way successively.
All This to simulate movement ....but I dont want seen the tour. I have done this code but it is not a good code
and is very slow:

Private Sub Timer1_Timer()




If iTime > 0 Then
iLatid = rs("lat")
iLong = rs("lon")


iContPin = iContPin + 1 'para darle nombre al pushPin

objMap.AddPushpin objMap.GetLocation(iLatid, iLong), iContPin

If sw = False Then
sw = True
Else
Set objPin = objMap.FindPushpin(iContPin - 1)

objPin.Delete
End If

rs.MoveNext

' Si no sobrepasó el final del recordset ...
If rs.EOF Then
' se posiciona en el ultimo
rs.MoveLast
MsgBox " Se está en el ultimo registro ", vbInformation
iTime = 0
End If

End If


End Sub



Thank you very much in advance.

ikercio

Hi,

It is better to move the pushpin instead of every time create one and delete the other. You can move it by just change the Location property of it.

Originally Posted by Wilfried

Hi,

It is better to move the pushpin instead of every time create one and delete the other. You can move it by just change the Location property of it.

ok. The first time To Add a Push pin :


If iTime > 0 Then
iLatid = rs("lat")
iLong = rs("lon")


iContPin = iContPin + 1 'para darle nombre al pushPin

objMap.AddPushpin objMap.GetLocation(iLatid, iLong), iContPin

and....After that.....to move this Pushpin????how can i do it???


Thanks

ikercio

How can I change the Location property of a pushpin to move it??


Thanks


Ikercio

Hi,

From the top of my head:

Code:

// this must be a static variable, so don't put it on the stack
private PushPin pp;

// then routine something like this
Location location = map.GetLocation(lat, lon, 1);
if (pp == null)
   pp = map.AddPushPin(location, name);
else
  pp.Location = location;

Also you have to put the last part into an exception block, because a user can delete the pushpin.

Originally Posted by Wilfried

Hi,

From the top of my head:

Code:

// this must be a static variable, so don't put it on the stack
private PushPin pp;

// then routine something like this
Location location = map.GetLocation(lat, lon, 1);
if (pp == null)
   pp = map.AddPushPin(location, name);
else
  pp.Location = location;

Also you have to put the last part into an exception block, because a user can delete the pushpin.

Thanks but....."Location property (Location)
Returns the specified Location object. Allows access to the location of members of a FindResults collection without determining the type of the result (that is, whether a member of the collection is a Pushpin or Location object). Read-only"

But Location is a OnlyRead Property......no????

something more...please??

Ikercio

Yesssss!!

this is the code for vb to add a PushPin and after to move it:

Private Sub Timer1_Timer()

If iTime > 0 Then
iLatid = rs("lat")
iLong = rs("lon")


iContPin = iContPin + 1 'para darle nombre al pushPin




If sw = False Then
sw = True
Set objPin = objMap.AddPushpin(objMap.GetLocation(iLatid, iLong), iContPin)
Else

Set objLoc = objMap.GetLocation(iLatid, iLong)


Set objPin.Location = objLoc

End If

rs.MoveNext

' Si no sobrepasó el final del recordset ...
If rs.EOF Then
' se posiciona en el ultimo
rs.MoveLast
MsgBox " Se está en el ultimo registro ", vbInformation
iTime = 0
End If

End If


End Sub


Thanks!!!!!!!!!!