banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

Annonce

GEODATA DAYS 2024

#1 Mon 08 October 2007 16:09

KristellDever
Juste Inscrit !
Date d'inscription: 2 May 2006
Messages: 4

Récuperer Zoom VB MapBasic

Bonjour,
Juste une petite question car je suis bloquée et je n'ai pas trouvé ma réponse sur le forum, s'il quelqu'un peux m'aider, ce serait super! Merci d'avance !

J'affiche une carte à partir de MapInfo dans une picturebox, sous VB 2005 à l'aide du code suivant :
       
        mi = Nothing
        mi = CreateObject("MapInfo.application")
        mi.Do("Set Application Window " & Me.Carte.Handle.ToInt32)
        mi.Do("Set Next Document Parent " & Me.Carte.Handle.ToInt32 & " Style 1")
        mi.Do("Run Application """ & chemin1 + "AffichageCarte3bis.mbx""")

Dans cette pictureBox de VB, l'utilisateur peux zoomer et dezommer à sa guise, une fois qu'il a choisi un zoom, j'aimerai récupérer celui-ci !
J'utilise le code suivant :

Sous VB :
mi.Do("Run Application """ & chemin1 + "RecupZoom.mbx""")

Dans le programme RecupZoom.mbx :
SeuilZoom = mapperinfo (FrontWindow(), MAPPER_INFO_zoom)

le seul problème c'est qu'il ne reconnait pas la fenêtre active car c'est sous VB que l'utilisateur zoom et dezomme, pourtant c'est bien une fenêtre sous MapInfo
l'erreur est la suivante "Identifiant de la fenêtre 0 non valide."

Dois-je récuperer le zoom sous VB? non?
Je suis perdue et je ne sais pas comment faire, si quelqu'un a la solution, je le remercie d'avance.
Kristell

Hors ligne

 

#2 Mon 08 October 2007 16:43

Maurice
Membre
Lieu: Montpellier
Date d'inscription: 5 Sep 2005
Messages: 5331

Re: Récuperer Zoom VB MapBasic

Bonjour,
Juste une piste, car je n'utilise pas l'integrated mapping: aller voir l'aide MapBasic sur l'utilisation des "Callbacks" ...

Hors ligne

 

Pied de page des forums

Powered by FluxBB