Discussion :

[Samy_Bel]

Bonjour,
Avec VB 2005, j’ai défini une form qui contient un MENUSTRIP avec une arborescence à 2 niveaux du genre :
1. FILE
1.1. ..........New
1.2. ..........Modify
2. EDITION
2.1. ..........Cut
2.2. ..........Paste
Quand je veux accéder à la liste de TOOLSTRIPMENUITEMs en faisant la boucle suivante:

For Each m As ToolStripItem In MenuStrip1.Items
MessageBox.Show(m.ToString)
Next
Je ne reçois que les éléments de 1er niveau ; à savoir : File et Edition mais pas le 2ème niveau (New, Modify, Cut,Paste).
J’aimerais pouvoir faire une boucle où j’accède à la totalité des items indépendamment de leur niveau.

Merci d’avance pour votre aide.

Samy

[tomlev]

Tu ne peux pas le faire avec une simple boucle, car ce n'est pas une liste "plate" de ToolStripItems. Pour chaque ToolStripItem, il faut que tu parcoures aussi ses sous-menus éventuels. Pour ça l'approche classique est de faire une fonction récursive (i.e. qui s'appelle elle-même) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
ListAllToolStripItems(MenuStrip1.Items)
 
...
 
Private Sub ListAllToolStripItems(items As ToolStripItemCollection)
    For Each m As ToolStripItem In MenuStrip1.Items
        MessageBox.Show(m.ToString)
        If TypeOf m Is ToolStripDropDownItem
            Dim d As ToolStripDropDownItem = CType(m, ToolStripDropDownItem)
            ListAllToolStripItems(d.DropDownItems)
        End If
    Next
End Sub

[Samy_Bel]

C'est bien ça. Je pensais qu'une simple boucle permettrait d'accéder à toutes les occurences du menustrip. Il fallait bien exploiter le ToolStripDropDownItem.

Merci