Show Name in MapPoint 2004

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



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:


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