Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic MAP POINT "OPEN MAP"

MAP POINT "OPEN MAP"

3 réponses
Avatar
Manu donatrans
Bonjour,

Je n'arrive pas à programmer le lancement de ma carte sous map point soit
version 2001 soit version 2004. Pour cela il faut utiliser la méthode :
object.OpenMap(Filename, [AddToRecentFiles])

Mon fichier pour faire simple est : C:\map.ptm

j'ai déja référencé la bibliothèque sous Vb6 et Vba.

Il serait sympa de me répondre avec la déclaraton des variables et
l'execution

Merci d'avance

Manu

Réponse à donatrans.pasdepub@wanadoo.fr
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Zoury
Salut Manu ! :O)

Peut-on voir ton code actuel?

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Manu donatrans" ;fr> a écrit dans le message de
news:%
Bonjour,

Je n'arrive pas à programmer le lancement de ma carte sous map point soit
version 2001 soit version 2004. Pour cela il faut utiliser la méthode :
object.OpenMap(Filename, [AddToRecentFiles])

Mon fichier pour faire simple est : C:map.ptm

j'ai déja référencé la bibliothèque sous Vb6 et Vba.

Il serait sympa de me répondre avec la déclaraton des variables et
l'execution

Merci d'avance

Manu

Réponse à




Avatar
Zoury
Manu m'a posté son code pour ceux que ça intéresse.. (et pour les
archives..)
--
Voici mon code qui ne fonctionne pas. Merci beaucoup de l'intétêt que tu
portes à mon problême.

Private Sub Omap()

Dim objApp As MapPoint.Application

Dim objMap As MapPoint.map

Set objApp = New MapPoint.Application

Set objMap = objApp.NewMap

objMap.SaveAs DefaultFilePath + "Map.ptm", geoFormatMap

objApp.NewMap

Set objMap = objApp.OpenMap("C:Map.ptm", False)

End Sub
--


"Zoury" a écrit dans le message de
news:%
Salut Manu ! :O)

Peut-on voir ton code actuel?

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Manu donatrans" ;fr> a écrit dans le message


de
news:%
> Bonjour,
>
> Je n'arrive pas à programmer le lancement de ma carte sous map point


soit
> version 2001 soit version 2004. Pour cela il faut utiliser la méthode :
> object.OpenMap(Filename, [AddToRecentFiles])
>
> Mon fichier pour faire simple est : C:map.ptm
>
> j'ai déja référencé la bibliothèque sous Vb6 et Vba.
>
> Il serait sympa de me répondre avec la déclaraton des variables et
> l'execution
>
> Merci d'avance
>
> Manu
>
> Réponse à
>
>




Avatar
Zoury
Essai plutôt quelque chose comme ceci (je n'ai pas MapPoint je ne peux donc
pas testé) :
'***
' Form1
' 1 CommandButton
Option Explicit

Private m_mpApp As MapPoint.Application
Private m_mpMap As MapPoint.Map

' ouvre la map
Private Sub Command1_Click()

' initialise l'application
Set m_mpApp = New MapPoint.Application

' nous permet de garder le contrôle sur l'application
m_mpApp.UserControl = True
' affiche l'application
m_mpApp.Visible = True

' ouvre la map.. si une autre map était déjà ouverte,
' la fenêtre de sauvegarde de modif apparait automatiquement
Set m_mpMap = m_mpApp.OpenMap(DefaultFilePath & "Map.ptm", False)

End Sub

' libère les ressources
Private Sub Form_Unload(Cancel As Integer)

If (Not m_mpApp Is Nothing) Then
Call m_mpApp.Quit
Set m_mpApp = Nothing
Set m_mpMap = Nothing
End If

End Sub
'***

Note qu'il existe aussi un *contrôle* MapPoint (surement disponible dans la
liste de composantes) qui te permetrait d'afficher la map directement dans
ton logiciel si tu souhaites.

Voici l'endroit où tu peux trouvé l'aide en ligne concernant le pilotage de
MapPoint (MapPoint.Application) ou encore le contrôle..
http://msdn.microsoft.com/library/en-us/mappoint2004/BIZOMAboutOM.asp

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

"Zoury" a écrit dans le message de
news:
Manu m'a posté son code pour ceux que ça intéresse.. (et pour les
archives..)
--
Voici mon code qui ne fonctionne pas. Merci beaucoup de l'intétêt que tu
portes à mon problême.

Private Sub Omap()

Dim objApp As MapPoint.Application

Dim objMap As MapPoint.map

Set objApp = New MapPoint.Application

Set objMap = objApp.NewMap

objMap.SaveAs DefaultFilePath + "Map.ptm", geoFormatMap

objApp.NewMap

Set objMap = objApp.OpenMap("C:Map.ptm", False)

End Sub
--


"Zoury" a écrit dans le message de
news:%
> Salut Manu ! :O)
>
> Peut-on voir ton code actuel?
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> "Manu donatrans" ;fr> a écrit dans le message
de
> news:%
> > Bonjour,
> >
> > Je n'arrive pas à programmer le lancement de ma carte sous map point
soit
> > version 2001 soit version 2004. Pour cela il faut utiliser la méthode


:
> > object.OpenMap(Filename, [AddToRecentFiles])
> >
> > Mon fichier pour faire simple est : C:map.ptm
> >
> > j'ai déja référencé la bibliothèque sous Vb6 et Vba.
> >
> > Il serait sympa de me répondre avec la déclaraton des variables et
> > l'execution
> >
> > Merci d'avance
> >
> > Manu
> >
> > Réponse à
> >
> >
>
>