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"

Try this code in place of your example #2

Code:

Dim objSymbol As MapPoint.Symbol
'or Dim objSymbol As MapPointctl.Symbol

Set objSymbol = "C:\Documents and Settings\moon\Mijn documenten\MapPointPushpinsNew\257.bmp" 

ppin.Symbol = objSymbol.ID

Hallo John,

What you suggested didn't work, but it helped me on the way to the answer.

I have an array (arX) filled with data, like lat-lon and indexnumber of the pushpins which come with MapPoint. I gave my custom symbols numbers above 256. If a number over 256 is encountered in the for-next statement, then a symbol is added to the Symbols collection, with the Add method.

Thanks!
Monique Vrolijk

Code:

   
Dim j As Integer
Dim L As Location, pPin As Pushpin
Dim objMapNL As MapPointctl.Map
Dim RecInMatrix As Integer '# records in matrix
Dim objSym As MapPointctl.Symbol
Dim objSymbols As MapPointctl.Symbols

   Set objSymbols = objMapNL.Symbols

   For j = 1 To RecInMatrix
      Set L = objMapNL.GetLocation(arX(j).Lat, arX(j).Lon)
      Set pPin = objMapNL.AddPushpin(L, arX(j).KlantID & ": " & arX(j).KlantNaam & "     " & arX(j).Status)
      If arX(j).Pin > 256 Then
         Set objSym = objSymbols.Add("L:\Mappoint\PushPinsNew\" & arX(j).Pin & ".bmp")
         pPin.Symbol = objSym.ID
      Else
         pPin.Symbol = objMapNL.Symbols(arX(j).Pin)
      End If
      pPin.BalloonState = geoDisplayNone
   Next j