Salut
Je souhaite à partir de mes formulaires de consultation créer un bouton qui permet d'ouvrir un .wor de MapInfo mais également de zoomer à une certaine echelle définie sur l'entité consulté
Ex : Je consulte le formulaire concernant le lac "Gabas" puis à partir d'un bouton j'ouvre le .wor de MapInfo zoomé sur le lac "Gabas"
Pour ouvrir le .wor j'utilise ce code
Mais je n'ai aucune idée concernant le zoom et la définition de l'échelle
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Commande2_Click() Dim Lance Dim CHEMIN As String CHEMIN = CurrentProject.Path & "\APPLI_CARTO\CARTO.WOR" Lance = Shell("C:\Program Files\MapInfo\Professional 6.5\MAPINFOW.EXE " & CHEMIN, 1) End Sub
merci de m'aider
benji
ciao
Partager