Hi all,

I am new to Mappoint. I just imported couple hundred locations in my Mappoint 2004. I have column Name, Street, City, State, and Zip. However, they show up with little red circle. I would like to show the Name instead of the little circle for all of the location. If I right-click on the red circle and select "Show Name", it would show the name. Is there a way I can show name for ALL at once instead of right-click individual one?

Thanks in advance,

Hi,

I did something like that but progamatically. I can show all the names of the pushpins of some shape ( it's easy with the BalloonState property ).

So you can do that progamatically when you add the pushpins as in this example

Code:

Sub ShowPushpinBalloon()

  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objPin As MapPoint.Pushpin

  'Configure l'application
  Set objMap = objApp.ActiveMap
  objApp.Visible = True
  objApp.UserControl = True

  'Ajoute un clic-infos, puis affiche sa bulle
  Set objPin = objMap.AddPushpin(objMap.FindResults("Seattle, WA")(1))
  objPin.BalloonState = geoDisplayBalloon

  End Sub

Ciao

Hi Mohamed,

Thanks for reply, I have no idea how to do that. is that possible you can give me little instruction where to paste that codes in? or some where I can read about BallloonState property.

Thank you,

Hi,

You can not use code in a standalone executable instance of mappoint. You can only do it if you create your own applciation using the COM object of mappoint. this can be done in a language of your choice.

Thanks for the respond,

Has anyone done something similiar to this? (display a name instead of a circle dot). It sounds like possible but I have no clue where/how to start this. Any help?

Hi,

Programatically you can do everything.
If I understand your question, you want to show a Text instead of a picture
(PushPin). I use that to show my customers in a Paris Map when I have to deliver my couscous. I don't add PushPins by Text with the function AddTextBox.
In that Text , I show the name of my customer, the time of delivery.
The text becomes red when the delivery time is exceeded, and so on.

( In the MapPoint HelpFile, you can read the Chapter about the Activex Component or buy The MapPoint for Dummies to learn things about that.
I a couple of weeks you can do a lot of things with Mappoint. )

Here is an example:

Code:

Sub AddTextboxWithText()

  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objLoc As MapPoint.Location

  'Configure l'application et obtient un objet Location
  Set objMap = objApp.ActiveMap
  objApp.Visible = True
  objApp.UserControl = True
  Set objLoc = objApp.ActiveMap.GetLocation(0, 0)

  'Crée une zone de texte en ce lieu et zoome sur celui-ci
  Set objMap.Location = objLoc
  objMap.Shapes.AddTextbox objLoc, 50, 30
  objMap.Shapes.Item(1).Text = "Texte dans la zone"

  End Sub

Ciao

Mohamed
www.AtlasCouscous.com