MapForums

HI
Using VB6 and MAP OCX methods

When the map is refreshed we re-draw the pushpins with code below -

Dim objLoc As MapPoint.Location

Set objLoc = mc1.ActiveMap.GetLocation(tb!MapLat, tb!maplon)
mc1.ActiveMap.AddPushpin(objLoc, jobText).BalloonState = geoDisplayBalloon

mc1 is the ocx
My question is how can we set the symbol of each pin depending on the record status that is being read?


Thanks in advance

Dim mySymbols As MapPoint.Symbols
Dim mySym As MapPoint.Symbol

Set mySymbols = myApp.ActiveMap.Symbols

'Import a custom symbol
Set mySym = mySymbols.Add("MyBitmap.bmp")

'Set the symbol of the pushpin
myPushpin.Symbol = mySym.ID

You can also use one of the 255 predefined symbols in MapPoint (see helpfile).

Greetings, Jack.

Hi Jack
Thanks for reply, followed it until -

'Set the symbol of the pushpin
myPushpin.Symbol = mySym.ID

The ocx on the form is called mc1 and I can see no way of setting mySym.ID. Any ideas.

Thanks

Got it
Thanks