Discussion :

[GriffinK]

Bonjour tout le monde,

J'aimerais savoir comment déterminer, lors d'un clic dans un menu strip, s'il s'agit du premier deuxième, troisième etc...item de la liste (par exemple: dans le menu fichier de firefox, nouvel onglet est le deuxième) ?
Quelqu'un sait si cela est possible ?

Merci de m'avoir lu

[OhMonBato]

En mettant ca dans la sub qui traite le click sur tes sous menus par exemple (Mon menu principal s'appelant FileToolStripMenuItem dans ce cas) :

Code :

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

1
2
3
4
Dim MenuCollection As ToolStripItemCollection
MenuCollection = FileToolStripMenuItem.DropDownItems
Debug.Print(MenuCollection.IndexOf(sender))

[GriffinK]

En mettant ca dans la sub qui traite le click sur tes sous menus par exemple (Mon menu principal s'appelant FileToolStripMenuItem dans ce cas) :

Code :

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

1
2
3
4
Dim MenuCollection As ToolStripItemCollection
MenuCollection = FileToolStripMenuItem.DropDownItems
Debug.Print(MenuCollection.IndexOf(sender))

Pour chaque item cliqué, le logiciel me retourne -1. Saurais-tu d'où ça vient ?

[OhMonBato]

Peux tu plutot nous donner ton code complet pour la sub ?

[GriffinK]

Peux tu plutot nous donner ton code complet pour la sub ?

Bien sûr:

Code :

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

1
2
3
4
5
    Private Sub Table_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles Table.DropDownItemClicked
        Dim MenuCollection As ToolStripItemCollection
        MenuCollection = Table.DropDownItems
        MsgBox(MenuCollection.IndexOf(sender).ToString)
    End Sub

[OhMonBato]

Alors on recommence... J'ai un menu principal, appele PrincipalToolStripMenuItem. Ce menu comporte 3 sous menus appeles SousMenu1ToolStripMenuItem, SousMenu2ToolStripMenuItem, SousMenu3ToolStripMenuItem

J'ai donc le code :

Code :

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

1
2
3
4
5
6
PrivateSub Click_Pour_SousMenus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SousMenu1ToolStripMenuItem.Click, SousMenu2ToolStripMenuItem.Click, SousMenu3ToolStripMenuItem.Click
Dim MenuCollection As ToolStripItemCollection
MenuCollection = PrincipalToolStripMenuItem.DropDownItems
MsgBox(MenuCollection.IndexOf(sender).ToString)
EndSub

Et ca marche