Hallo,
We made some extra pushpins symbols (the train symbol, but with different colors). I want to use it in a VB6.0 project with the Mappoint control. I already made maps on which I added pushpins in VB (see example 1), but now I want to add the self made symbols. I've put them in a folder. I really don't know how to do this. I tried a path to the location of the pushpin symbol, but doesn't seem to work (example 2).
Can you help me?
Thanks
Monique Vrolijk
Example 1
Code:For j = 1 To AantalInArray If X(j).KlantID = klant Then Set L = objMapZoom.GetLocation(X(j).Latitude, X(j).Longitude) Set ppin = objMapZoom.AddPushpin(L, X(j).Name) Select Case X(j).KleurID Case 1 ppin.Symbol = objMapZoom.Symbols(31) Case 2 ppin.Symbol = objMapZoom.Symbols(32) Case 3 ppin.Symbol = objMapZoom.Symbols(33) End Select End If Next j objMapZoom.DataSets.Item(1).ZoomTo
Example 2
Code:ppin.Symbol = "C:\Documents and Settings\moon\Mijn documenten\MapPointPushpinsNew\257.bmp"