Le portail francophone de la géomatique

Bonjour,

L'ActiveX Géoconcept est un outils très intéressant permettant la navigation dans une carte Géoconcept depuis un autre logiciel (Access ou Powerpoint par exemple). Navigation, c'est à dire zoom, déplacement, aller à, choix d'une visibilité pré-établie, affichage des fiches et mini-fiches et quelques autres fonctions simples.
Il n'est pas possible de modifier les objets via l'ActiveX. Il faut une licence Géoconcept classique.

Ce que tu peux faire, si j'ai bien compris ton besoin, c'est travailler dans Access. Tu pourras alors sélectionner un objet dans l'ActiveX en cliquant dessus, et récupérer sons sous-type et son identifiant. Ces informations te permettront d'afficher et modifier un enregistrement Access correspondant à cet objet. Un lien (permanent ou non) établi entre les bases de données d'Access et Géoconcept permettra de répercuter tes modifications dans la base Géoconcept.

Je te conseille une recherche dans le forum, les possibilités de liaisons Géoconcept-Access y sont souvent abordées.

Si les (X,Y) sont déjà corrects dans le SIG Utilise le lien Géoconcept-Access pour renseigner ta table Access avec le contenu de ta table Géoconcept.

C'est beaucoup plus simple et beaucoup plus fiable.

Si j'étais toi, j'essaierai avec la procédure évènementielle '_GEOSelectionChanged' de l'ActiveX, ou '_OnClick' d'un bouton 'Récupérer XY'. Le '_GotFocus' me semble assez peu maitrisable.


Voici un bout de code que j'ai commis pour lire l'identifiant d'un objet sélectionné par clic dans l'ActiveX.
Je n'ai laissé ici que l'essentiel, tu pourrais avoir plus de précautions à prendre.
GCX désigne sur l'ActiveX.

Quand j'ai écrit ça (il y a une dizaine d'années), je n'avais accès qu'aux bibliothèques manipulant l'ActiveX, pas à celles des objets (class, subclass, ...). Il existe sans doute plus simple. Tu peux poser la question sur le Gun (Geoconcept Users Network), qui anime un forum 'développeurs'.

'nombre d'objets SIG sélectionnés
sélection_SIG = GCX.XgoNumberOfSelectedObjects

'si il n'y a qu'un seul objet sélectionné, récupération de la fiche et lecture du Sous-type
If sélection_SIG = 1 Then
    fiche_SIG = GCX.XgoObjectInfo
    'Recherche du champ identifiant : on enlève en boucle le champ le plus à gauche, jusqu'à trouver 'Identifiant'
    While Left(fiche_SIG, 14) <> "IDENTIFIANT : " And fiche_SIG <> Chr(10)  'Chr(10) est le passage à la ligne, qui marque le changement de champ
        fiche_SIG = Right(fiche_SIG, Len(fiche_SIG) - InStr(fiche_SIG, Chr(10)))
    Wend
    'Si on a trouvé le champ, on extrait la valeur
    If Left(fiche_SIG, 14) = "IDENTIFIANT : " Then
        Idt_Station_Hydro = Mid(fiche_SIG, 15, 8)
    End If
End If

Si techniquement ça marche, je continue à penser que la solution est lourde par rapport à un lien de bases de données.

Dernière modification par Renaud (Fri 20 June 2008 16:55)