MapForums

Hi All

I am using the following code to select a pushpin where mc1 = a ocx on the form.

Dim objPin As MapPoint.Pushpin

Set objPin = mc1.ActiveMap.FindPushpin(veh_list)
On Error GoTo er
objPin.Select


This works fine but what I also want to do is centre the map to the pin and then zoom in. Can anyone suggest the best way to do this

Thanks in advance.

Dim objPin As MapPoint.Pushpin

Set objPin = mc1.ActiveMap.FindPushpin(veh_list)

'try this:
mc1.ActiveMap.DataSets.ZoomTo
'-----------------------------------------------

On Error GoTo er
objPin.Select

Hi Rainer
Thanks for the reply, it works in that it centres on all the pins on the grid, I just want to zoom in on the highligted pin.

Dim oRes As FindResults


'Set objPin = mc1.ActiveMap.FindPushpin(veh_list)

' This will zoom the map to a particular pin
' (but maybe you won't like this yellow circle):
Set oRes = mc1.ActiveMap.FindPushpin(veh_list).Location.FindN earby(0.1)
' i hope this helps -> greetings from germany
'forget this:
'mc1.ActiveMap.DataSets.ZoomTo
'-----------------------------------------------

On Error GoTo er
objPin.Select

'sorry for spamming again!
' the ultimate solution:

Dim oLoc As Location
Dim oPin As Pushpin
Dim dbLat As Double
Dim dbLon As Double


Set oLoc = mc1.ActiveMap.FindPushpin(veh_list).Location
Call CalcPos(mc1.ActiveMap, oLoc, dbLat, dbLon)
mc1.ActiveMap.GetLocation(dbLat, dbLon, 0.1).GoTo

'The CalcPos - routine you will find here: (Many thanks to Gilles!!!)
'http://www.mp2kmag.com/articles.asp?ArticleID=13&key=extract.lat.lon

Rainer, you are a star, many thanks bud.