Problème avec Menustrip

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

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:

---

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

---

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:yaisse2: