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

#1 Mon 04 August 2008 14:24

nicolas valls
Participant assidu
Date d'inscription: 28 Oct 2005
Messages: 154

Griser les éléments d'un menu en VBA

Bonjour,
je me suis créé un petit menu contenant des UIButtonControl. Je l'ai créé en me servant de la boite de dialogue "Personnaliser" et en y ajoutant les contrôles.
Mon problème est qu'à l'ouverture je fais une vérification et en fonction de ça je veux griser (rendre non cliquable mais visible) les UIButtonControl. Je n'arrive pas à trouver la méthode adéquate. J'en suis rendu là :

Code:

Sub test()
Dim barre As ICommandBar
Dim monmenu As ICommandBar
Dim element As ICommandItem
Dim i As Byte
Set barre = Application.Document.CommandBars.Find(ArcID.MainMenu)
For i = 0 To barre.Count - 1
    If barre.Item(i).Name = "Nouveau menu 1" Then Set monmenu = barre.Item(i): Exit For
Next i
If monmenu Is Nothing Then

Else
    For i = 0 To monmenu.Count - 1
        Set element = monmenu.Item(i)
        ?????????????????????????????
       
    Next i

End If

End Sub

Que faire de la variable element, car bon je récupère les buttons il me faudrait quelque chose du genre .enable=false mais ca n'existe pas.

Par avance merci


Nicolas VALLS
Géomaticen
Cabinet Pierre GRILLET

Hors ligne

 

Pied de page des forums

Powered by FluxBB