OVH Cloud OVH Cloud

Menus

3 réponses
Avatar
cbr
Bonjour et bonne ann=E9e,

Existe t-il une fa=E7on pour r=E9cup=E9rer la liste des menus=20
d'une application avec une boucle de fa=E7on =E0 les=20
param=E9trer par le code ?

Merci

3 réponses

Avatar
Thierry Bertrand
Tu peux les rendre entièrement dynamiques :
Tu peux créer une ébauche de menu indexé ne contenant qu'un menu indéxé à
0, invisible et disabled
puis au load de la forme tu effectues tous les load nécessaires et
suffisants en mettant les propriétés caption, enabled et visible des
menus(i) aux valeurs correctes.
Ensuite il faudra se débrouiller avec les évènements _click et les index
adéquats (utiliser table de procédures avec un select dans l'évènement par
exemple, .. à toi de voir)

Tu peux ensuite compliquer en mettant également des sous menus...

Ou alors se tourner vers les API windows qui permettent de créer
dynamiquement les menus.


"" a écrit dans le message
de news: 199d01c4f714$02ce2f10$
Bonjour et bonne année,

Existe t-il une façon pour récupérer la liste des menus
d'une application avec une boucle de façon à les
paramétrer par le code ?

Merci
Avatar
ng
Salut,

Il suffit de boucler la collection Controls de la form et de vérifier si le
controle est un menu :

Private Sub Form_Load()
Dim oMenu As Object

For Each oMenu In Me.Controls
If TypeOf oMenu Is Menu Then

Debug.Print oMenu.Caption

End If
Next
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

wrote:
Bonjour et bonne année,

Existe t-il une façon pour récupérer la liste des menus
d'une application avec une boucle de façon à les
paramétrer par le code ?

Merci


Avatar
Merci beaucoup, je vais essayer.


-----Message d'origine-----
Salut,

Il suffit de boucler la collection Controls de la form


et de vérifier si le
controle est un menu :

Private Sub Form_Load()
Dim oMenu As Object

For Each oMenu In Me.Controls
If TypeOf oMenu Is Menu Then

Debug.Print oMenu.Caption

End If
Next
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

wrote:
Bonjour et bonne année,

Existe t-il une façon pour récupérer la liste des menus
d'une application avec une boucle de façon à les
paramétrer par le code ?

Merci




.