Annonce
#1 Thu 11 March 2010 10:12
- bebert_lama
- Participant assidu
- Date d'inscription: 9 Nov 2006
- Messages: 253
ArcGIS code vb : activer/désactiver extension
Bonjour à tous,
J'ai fait une extension à partir des exemples esri : "My Cool Extension".
Pas de problèmes, elle se charge et apparait dans le menu Tools /Extension (voir pièce jointe).
Mon problème est que je n'arrive pas à coder en vb les actions d'activation / désactivation de cette extension.
exemple : Décocher = fait disparaitre ou désactive l'extension, et Cocher = active, fait apparaitre.
Merci de votre aide.
Bebert
Hors ligne
#2 Thu 11 March 2010 12:36
- Cornet Jérémie
- Participant assidu
- Lieu: Nouméa
- Date d'inscription: 6 Apr 2008
- Messages: 229
Re: ArcGIS code vb : activer/désactiver extension
Salut,
Voilà le code VBA d'une fonction qui vérifie si SpatialAnalyst est présent, avec licence et qui l'active si ce n'est pas le cas.
Tu devrais pouvoir t'en inspirer pour ce que tu veux !
Code:
Public Function verif_licence_SpatialAnalyst() As Boolean
' Récupérer l'UID de Spatial Analyst
Dim pUID As UID
Set pUID = New UID
pUID.Value = "esriCore.SAExtension.1"
' Ajouter l'extension spatialAnalyst au gestionnaire de licence
Dim v As Variant
Dim pLicAdmin As IExtensionManagerAdmin
Set pLicAdmin = New ExtensionManager
pLicAdmin.AddExtension pUID, v
' Activer the license
Dim pLicManager As IExtensionManager
Set pLicManager = pLicAdmin
Dim pExtensionConfig As IExtensionConfig
Set pExtensionConfig = pLicManager.FindExtension(pUID)
'On vérifie si on dispose de la licence
If Not pExtensionConfig.State = esriESUnavailable Then
pExtensionConfig.State = esriESEnabled
verif_licence_SpatialAnalyst = True
Else
verif_licence_SpatialAnalyst = False
End If
End FunctionJérémie
Hors ligne
#3 Thu 11 March 2010 14:59
- bebert_lama
- Participant assidu
- Date d'inscription: 9 Nov 2006
- Messages: 253
Re: ArcGIS code vb : activer/désactiver extension
Salut,
merci de ton aide. C'est bien cela que je veux.
Ton code fonctionne très bien, il coche et décoche l'extension Spatial Analyst.
Ce que je n'arrive pas à faire est peut-être impossible ? c'est à dire :
coché = tu vois l'extension
décoché = tu ne vois plus l'extension
Je m'explique : que je coche ou non dans outils /extensions "mon extension", j'ai toujours dans la barre des menus (clic droit) mon extension visible ? Est ce normal ? Et si oui à quoi sert de cocher/décocher dans le menus outils/extensions ?
Merci...
Bebert
Hors ligne
#4 Thu 11 March 2010 15:23
Re: ArcGIS code vb : activer/désactiver extension
Cocher ou décocher ne sert pas à ça.
Cela ne sert vraiment que lorsque les licences sont flottantes. Cela permet juste de réserver l'utilisation de la licence. Si c'est décocher, les fonctions sont inactives, mais toujours visibles. Laisser visible toutes les possibilités est un stratégie qui permet à l'utilisateur de remarquer les fonctions liés à chaque extension.
Jérôme Cuinet
L'avantage de la Chine, c'est que le soleil se couche plus tard !
Hors ligne
#5 Thu 11 March 2010 15:53
- bebert_lama
- Participant assidu
- Date d'inscription: 9 Nov 2006
- Messages: 253
Re: ArcGIS code vb : activer/désactiver extension
Salut Jeirhome,
merci bien...je pouvais donc tourner en rond longtemps....
A+
bebert
Hors ligne
