Comment créer un ContextMenuStrip dynamique ?

Bjr. Je cherche à faire un menu contextuel dynamique afin de proposer, selon la sélection, un menu différent (proposition du correcteur par exemple).
Code:

1 2 3 ContextMenuStrip1.Items.add("prosition1") ContextMenuStrip1.Items.add("prosition1") etc..
Mais je ne sais pas comment récupérer l'item sur lequel l'utilisateur a cliqué via l'évènement ContextMenuStrip1_Click

comment faire ?

merci.
Langage : VB 2003

Langage : C# ( désolé ... )
Code:

1 2 3 4 5 6 ContextMenuStrip c1 = new ContextMenuStrip(); ToolStripMenuItem menu1 = new ToolStripMenuItem("nouvel item"); c1.Items.Add(menu1); menu1.Click += new EventHandler(...);
en passant, c'est bizarre que tu demandes avec ContextMenuStrip car je pensais que cette classe était disponible à partir de .NET 2.0 :roll: celà dit c'est toujours le même principe : tu crées un MenuItem ou un ToolStripMenuItem et tu le rajoutes à la liste ...

En VB.Net (avec 3 façons)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
 
Public Sub AddContextMenuStat()
 
        'Créer le ContextMenu et l'assigné au boutton cmdCmStat
        Dim ContextMenuStat As New ContextMenu()
        Me.cmdCmStat.ContextMenu = ContextMenuStat
 
        'Créer et ajouter des items au menu
        Dim mnuItemA As New MenuItem()
        Dim mnuItemB As New MenuItem()
        mnuItemA.Text = "A"
        mnuItemA.Name = "cmiA"
        ContextMenuStat.MenuItems.Add(mnuItemA)
        'Ajouter un handler pour que l'évènement Click soit pris en charge
        AddHandler mnuItemA.Click, AddressOf ContextMenu_Click
 
        mnuItemB.Text = "B"
        mnuItemB.Name = "cmiB"
        ContextMenuStat.MenuItems.Add(mnuItemB)
        'Ajouter un handler pour que l'évènement Click soit pris en charge
        AddHandler mnuItemB.Click, AddressOf ContextMenu_Click
 
        'Ajouter des items sous les items déja existants 
        Dim mnuSubItem As New MenuItem()
        mnuSubItem.Text = "BB"
        mnuSubItem.Name = "cmiBB"
        mnuItemB.MenuItems.Add(mnuSubItem)
 
        'Ajouter un handler pour que l'évènement Click soit pris en charge
        AddHandler mnuSubItem.Click, AddressOf ContextMenu_Click
 
    End Sub
 
    Public Sub AddContextMenuDyn2()
        Dim i As String, iCpt As Long
        Dim si As String, sgi As String, siCpt As Long
 
        'Créer le ContextMenu et l'assigné au boutton cmdCmDyn2
        Dim ContextMenuDyn2 As New ContextMenu()
        Me.cmdCmDyn2.ContextMenu = ContextMenuDyn2
 
        'Créer et ajouter des items au menu
        Dim mnuItem As MenuItem
        Dim mnuSubItem As MenuItem
        'Exécute une boucle sur tous les groupes et les ajoutes au menu
        For iCpt = 0 To oData.Tables(0).Rows.Count - 1
            i = oData.Tables(0).Rows(iCpt).Item(0)
            mnuItem = New MenuItem(i)
            mnuItem.Name = "i" & i
            ContextMenuDyn2.MenuItems.Add(mnuItem)
            'Ajouter un handler pour que l'évènement Click soit pris en charge
            AddHandler mnuItem.Click, AddressOf ContextMenu_Click
            'Exécute une boucle sur les items et les ajoutes 
            'dans leurs groupes correspondants
            For siCpt = 0 To oData3.Tables(0).Rows.Count - 1
                si = oData3.Tables(0).Rows(siCpt).Item(0)
                sgi = oData3.Tables(0).Rows(siCpt).Item(2).ToString
                If si = i And sgi <> "" Then
                    mnuSubItem = New MenuItem(sgi)
                    mnuSubItem.Name = "si" & i
                    mnuItem.MenuItems.Add(mnuSubItem)
                    'Ajouter un handler pour que l'évènement Click soit pris en charge
                    AddHandler mnuSubItem.Click, AddressOf ContextMenu_Click
                End If
            Next
        Next
    End Sub
 
    Public Sub AddContextMenuDyn3()
        Dim i As String, iCpt As Long
        Dim si As String, sgi As String, siCpt As Long
        Dim ssi As String, ssgi As String, ssiCpt As Long
 
        'Créer le ContextMenu et l'assigné au boutton cmdCmDyn3
        Dim ContextMenuDyn3 As New ContextMenu()
        Me.cmdCmDyn3.ContextMenu = ContextMenuDyn3
 
        'Créer et ajouter des items au menu
        Dim mnuItem As MenuItem
        Dim mnuSubItem As MenuItem
        Dim mnuSSubItem As MenuItem
        'Exécute une boucle sur tous les groupes et les ajoutes au menu
        For iCpt = 0 To oData.Tables(0).Rows.Count - 1
            i = oData.Tables(0).Rows(iCpt).Item(0)
            mnuItem = New MenuItem(i)
            mnuItem.Name = "i" & i
            ContextMenuDyn3.MenuItems.Add(mnuItem)
            'Ajouter un handler pour que l'évènement Click soit pris en charge
            AddHandler mnuItem.Click, AddressOf ContextMenu_Click
            'Exécute une boucle sur les sous-groupes et les ajoutes 
            'dans leurs groupes correspondants
            For siCpt = 0 To oData2.Tables(0).Rows.Count - 1
                si = oData2.Tables(0).Rows(siCpt).Item(0).ToString
                sgi = oData2.Tables(0).Rows(siCpt).Item(1).ToString
                If si = i And sgi <> "" Then
                    mnuSubItem = New MenuItem(sgi)
                    mnuSubItem.Name = "si" & i
                    mnuItem.MenuItems.Add(mnuSubItem)
                    'Ajouter un handler pour que l'évènement Click soit pris en charge
                    AddHandler mnuSubItem.Click, AddressOf ContextMenu_Click
                    'Exécute une boucle sur les items et les ajoutes 
                    'dans leurs sous-groupes correspondants
                    For ssiCpt = 0 To oData3.Tables(0).Rows.Count - 1
                        ssi = oData3.Tables(0).Rows(ssiCpt).Item(1).ToString
                        ssgi = oData3.Tables(0).Rows(ssiCpt).Item(2).ToString
                        If ssi = sgi And ssgi <> "" Then
                            mnuSSubItem = New MenuItem(ssgi)
                            mnuSSubItem.Name = "ssi" & i
                            mnuSubItem.MenuItems.Add(mnuSSubItem)
                            'Ajouter un handler pour que l'évènement Click soit pris en charge
                            AddHandler mnuSSubItem.Click, AddressOf ContextMenu_Click
                        End If
                    Next
                End If
            Next
        Next
    End Sub
 
    Public Sub AddContextMenuStripStat()
 
        'Créer le ContextMenu et l'assigné au boutton cmdCmsStat
        Dim ContextMenuStripStat As New ContextMenuStrip()
        Me.cmdCmsStat.ContextMenuStrip = ContextMenuStripStat
 
        'Créer et ajouter des items au menu
        Dim mnuItemA As New ToolStripMenuItem
        Dim mnuItemB As New ToolStripMenuItem
        mnuItemA.Name = "cmiA"
        mnuItemA.Text = "A"
        ContextMenuStripStat.Items.Add(mnuItemA)
        'Ajouter un handler pour que l'évènement Click soit pris en charge
        AddHandler mnuItemA.Click, AddressOf ContextMenu_Click
 
        mnuItemB.Name = "cmiB"
        mnuItemB.Text = "B"
        ContextMenuStripStat.Items.Add(mnuItemB)
        'Ajouter un handler pour que l'évènement Click soit pris en charge
        AddHandler mnuItemA.Click, AddressOf ContextMenu_Click
 
        'Ajouter des items sous les items déja existants
        Dim mnuSubItem As New ToolStripMenuItem
        mnuSubItem.Name = "cmiBB"
        mnuSubItem.Text = "BB"
        mnuItemB.DropDownItems.Add(mnuSubItem)
 
        'Ajouter un handler pour que l'évènement Click soit pris en charge
        AddHandler mnuSubItem.Click, AddressOf ContextMenu_Click
 
    End Sub
 
    Public Sub AddContextMenuStripDyn2()
        Dim i As String, iCpt As Long
        Dim si As String, sgi As String, siCpt As Long
 
        'Créer le ContextMenu et l'attache à un object
        Dim ContextMenuStripDyn2 As New ContextMenuStrip()
        Me.cmdCmsDyn2.ContextMenuStrip = ContextMenuStripDyn2
 
        'Créer et ajouter des items au menu
        Dim mnuItem As ToolStripMenuItem
        Dim mnuSubItem As ToolStripMenuItem
        'Exécute une boucle sur tous les groupes et les ajoutes au menu
        For iCpt = 0 To rs.count
            i = rs.fileld(0).value
            mnuItem = New ToolStripMenuItem(i, Nothing, Nothing, "i" & i)
            ContextMenuStripDyn2.Items.Add(mnuItem)
            'Ajouter un handler pour que l'évènement Click soit pris en charge
            AddHandler mnuItem.Click, AddressOf ContextMenu_Click
            'Exécute une boucle sur les items et les ajoutes 
            'dans leurs groupes correspondants
            For siCpt = 0 To oData3.Tables(0).Rows.Count - 1
                si = oData3.Tables(0).Rows(siCpt).Item(0).ToString
                sgi = oData3.Tables(0).Rows(siCpt).Item(2).ToString
                If si = i And sgi <> "" Then
                    mnuSubItem = New ToolStripMenuItem(sgi, Nothing, Nothing, "si" & si)
                    mnuItem.DropDownItems.Add(mnuSubItem)
                    'Ajouter un handler pour que l'évènement Click soit pris en charge
                    AddHandler mnuSubItem.Click, AddressOf ContextMenu_Click
                End If
            Next
        Next
    End Sub
 
    Public Sub AddContextMenuStripDyn3()
        Dim i As String, iCpt As Long
        Dim si As String, sgi As String, siCpt As Long
        Dim ssi As String, ssgi As String, ssiCpt As Long
 
        'Créer le ContextMenu et l'attache à un object
        Dim ContextMenuStripDyn3 As New ContextMenuStrip()
        Me.cmdCmsDyn3.ContextMenuStrip = ContextMenuStripDyn3
 
        'Créer et ajouter des items au menu
        Dim mnuItem As ToolStripMenuItem
        Dim mnuSubItem As ToolStripMenuItem
        Dim mnuSSubItem As ToolStripMenuItem
        'Exécute une boucle sur tous les groupes et les ajoutes au menu
        For iCpt = 0 To oData.Tables(0).Rows.Count - 1
            i = oData.Tables(0).Rows(iCpt).Item(0)
            mnuItem = New ToolStripMenuItem(i, Nothing, Nothing, "i" & i)
            ContextMenuStripDyn3.Items.Add(mnuItem)
            'Ajouter un handler pour que l'évènement Click soit pris en charge
            AddHandler mnuItem.Click, AddressOf ContextMenu_Click
            'Exécute une boucle sur les sous-groupes et les ajoutes 
            'dans leurs groupes correspondants
            For siCpt = 0 To oData2.Tables(0).Rows.Count - 1
                si = oData2.Tables(0).Rows(siCpt).Item(0).ToString
                sgi = oData2.Tables(0).Rows(siCpt).Item(1).ToString
                If si = i And sgi <> "" Then
                    mnuSubItem = New ToolStripMenuItem(sgi, Nothing, Nothing, "si" & si)
                    mnuItem.DropDownItems.Add(mnuSubItem)
                    'Ajouter un handler pour que l'évènement Click soit pris en charge
                    AddHandler mnuSubItem.Click, AddressOf ContextMenu_Click
                    'Exécute une boucle sur les items et les ajoutes 
                    'dans leurs sous-groupes correspondants
                    For ssiCpt = 0 To oData3.Tables(0).Rows.Count - 1
                        ssi = oData3.Tables(0).Rows(ssiCpt).Item(1).ToString
                        ssgi = oData3.Tables(0).Rows(ssiCpt).Item(2).ToString
                        If ssi = sgi And ssgi <> "" Then
                            mnuSSubItem = New ToolStripMenuItem(ssgi, Nothing, Nothing, "ssi" & ssi)
                            mnuSubItem.DropDownItems.Add(mnuSSubItem)
                            'Ajouter un handler pour que l'évènement Click soit pris en charge
                            AddHandler mnuSSubItem.Click, AddressOf ContextMenu_Click
                        End If
                    Next
                End If
            Next
        Next
    End Sub
 
    Private Sub ContextMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Msgbox(sender.Text)
    End Sub

Citation:

Envoyé par xerico

Code:

1
2
3
4
5
6
 
 
        'Exécute une boucle sur tous les groupes et les ajoutes au menu
        For iCpt = 0 To rs.count
            i = rs.fileld(0).value
            mnuItem = New ToolStripMenuItem(i, Nothing, Nothing, "i" & i)

désolé j'ai fais une erreur:

Code:

1
2
3
4
5
 
        'Exécute une boucle sur tous les groupes et les ajoutes au menu
        For iCpt = 0 To oData.Tables(0).Rows.Count - 1
            i = oData.Tables(0).Rows(iCpt).Item(0)
            mnuItem = New MenuItem(i)

Plus simplement

ou bien tout simplement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim SubItem As ToolStripMenuItem
 
        For i as Integer = 0 to n
            SubItem = New ToolStripMenuItem("Menu " & i, Nothing, Nothing, "M" & i)
            MenuPrincipal.DropDownItems.Add(SubItem)
 
            AddHandler SubItem.Click, AddressOf ContextMenu_Click
        Next i
 
Private Sub ContextMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs)
       MsgBox (sender.Text)
       'ou bien: si tu veux recupérer le nom du du sous menu
       'MsgBox (DirectCast(sender, ToolStripMenuItem).Name)
    End Sub

je pense que c'est bon:king: