Ajouter un évènement ItemClicked pour ContextMenuStrip

Version imprimable

Bonjour,

J'aimerai avoir de l'aide sur un problème relatif à un ContextMenuStrip.
Il est pré-existant sur le formulaire, mais sans items dedans. Les premiers items sont ajoutés par du code et contiennent chacun le texte d'un des 4 boutons présents sur le formulaire.
Par la suite des subitems sont ajoutés a ceux existants.

Lorsque j'utilise l'event ItemClicked cela fonctionne très bien pour les premiers items (ceux avec les noms des boutons), mais rien ne se passe lorsque je clic sur n'importe lequel des subitems.

Quelqu'un peut-il m'aider à comprendre pourquoi svp ?

Voici le code d'ajouts des premiers items :

Code:

1
2
3
4
5
 
  Accueil.CMSNotify.Items.Add(Accueil.Btn01.Text)
        Accueil.CMSNotify.Items.Add(Accueil.Btn02.Text)
        Accueil.CMSNotify.Items.Add(Accueil.Btn03.Text)
        Accueil.CMSNotify.Items.Add(Accueil.Btn04.Text)

Et le code d'ajout des subitems dont le text est récupéré depuis une database, ainsi que poiur l'icone associée au subitem :

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
 
'On rafraîchit également le menu contextuel sur l'icône de l'application réduite
        Dim RequeteCMS As String = "SELECT * FROM PROGRAMMES"
        Dim CommandeCMS As OleDbCommand = New OleDbCommand(RequeteCMS, Connexion)
 
        Dim ImageMenu As IO.MemoryStream
 
        Try
 
            Connexion.Open()
 
            Dim ReaderCMS As OleDbDataReader = CommandeCMS.ExecuteReader()
 
            While ReaderCMS.Read()
 
                'Récupération et écriture du fichier image pour illustrer le programme
                Dim RequeteImage As String = "SELECT Image,NomImage FROM PROGRAMMES WHERE ID=" & ReaderCMS(0)
                Dim CommandeImage As OleDbCommand = New OleDbCommand(RequeteImage, Connexion)
                Dim FichierBytes As Byte()
                Dim NomDuFichier As String = ""
 
                Using sdr As OleDbDataReader = CommandeImage.ExecuteReader
 
                    sdr.Read()
 
                    FichierBytes = DirectCast(sdr(0), Byte())
 
                    NomDuFichier = sdr(1)
 
                End Using
 
                'On reconstruit l'image associée
                Try
 
                    ImageMenu = New IO.MemoryStream(FichierBytes)
 
                Catch ex As Exception
 
                    MsgBox("Une erreur est survenue durant la récupération de l'image d'illustration du programme !" & vbCrLf & vbCrLf & ex.Message, vbOKOnly + vbCritical, "MyLauncher")
                    Exit Sub
 
                End Try
 
                If ReaderCMS(5) = Accueil.Btn01.Text Then
 
                    Dim Entry As New ToolStripMenuItem
                    Entry = Accueil.CMSNotify.Items(0)
 
                    Entry.DropDownItems.Add(ReaderCMS(1), Image.FromStream(ImageMenu))
 
                    ImageMenu.Close()
 
                 ElseIf ReaderCMS(5) = Accueil.Btn02.Text Then
 
                    Dim Entry As New ToolStripMenuItem
                    Entry = Accueil.CMSNotify.Items(1)
 
                    Entry.DropDownItems.Add(ReaderCMS(1), Image.FromStream(ImageMenu))
 
                    ImageMenu.Close()
 
                ElseIf ReaderCMS(5) = Accueil.Btn03.Text Then
 
                    Dim Entry As New ToolStripMenuItem
                    Entry = Accueil.CMSNotify.Items(2)
 
                    Entry.DropDownItems.Add(ReaderCMS(1), Image.FromStream(ImageMenu))
 
                    ImageMenu.Close()
 
                ElseIf ReaderCMS(5) = Accueil.Btn04.Text Then
 
                    Dim Entry As New ToolStripMenuItem
                    Entry = Accueil.CMSNotify.Items(3)
 
                    Entry.DropDownItems.Add(ReaderCMS(1), Image.FromStream(ImageMenu))
 
                    ImageMenu.Close()
 
                End If
 
            End While
 
            Connexion.Close()
 
        Catch ex As Exception
 
            Connexion.Close()
 
            MsgBox(ex.Message)
 
            Exit Sub
 
        End Try

Ici le code simple de l'event ItemClicked pour test :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  Public Sub CMSNotify_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles CMSNotify.ItemClicked
 
           If ListeProgrammes.Contains(e.itemClicked.Text.ToString Then
 
                     MsgBox("Trouvé !")
 
          Else
 
                     MsgBox("Pas trouvé !")
 
           End If
 
    End Sub

Donc lorsque je clic sur les premiers items de la liste, la messagebox affiche bien le texte, mais sur les subitems rien ne se passe.

Si vous avez des questions ou besoin de plus d'infos n'hésitez pas !

Merci d'avance de votre aide.

Bonne journée.

Cordialement-

10/11/2020, 13h59
Phil Rob

Bonjour,

Je ne suis pas sûr de bien comprendre ce dont il s'agit ... :(

Mais, à toutes fins utiles, si la "list" est un ListView, alors il faut modifier sa propriété FullRowSelect : LaListEnQuestion.FullRowSelect = True pour que le clic d'un SubItem ait le même effet qu'un clic en 1ère colonne.

:D

bonjour

Pour gerer des evenements par code l'instruction AddHandler est ton amie

code exemple .vb:

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
 
Public Class Form2
    ' MainShortcutMenu est  un  ContextMenuStrip
 
    Private MenuHello As ToolStripMenuItem 'A menu item named MenuHello
    Private MenuGoodbye As ToolStripMenuItem 'A menu item named MenuGoodbye
 
    Public Sub New()
        InitializeComponent()
 
        ' Attach an event handler 
 
        MenuHello = New ToolStripMenuItem
        MenuHello.Text = "Say Hello"
        AddHandler MenuHello.Click, AddressOf MenuHello_Click
 
 
        MenuGoodbye = New ToolStripMenuItem
        AddHandler MenuGoodbye.Click, AddressOf MenuGoodbye_Click
        MenuGoodbye.Text = "Say Goodbye"
 
        MainShortcutMenu.Items.Add(MenuHello)
        MainShortcutMenu.Items.Add(MenuGoodbye)
 
    End Sub
 
 
    Private Sub MenuHello_Click(sender As Object, e As EventArgs)
        MsgBox("Hello")
    End Sub
 
    Private Sub MenuGoodbye_Click(sender As Object, e As EventArgs)
        MsgBox("Goodbye")
 
    End Sub
 
 
 
End Class

bon code...

Bonjour MABROUKI,

Merci pour ta réponse.

J'avais effectivement entrevu cette solution sur des forums. Le truc c'est que ce code est exécuté dans un module, et l'event est exécuté dans un formulaire. J'ai essayé de faire le lien genre : AddressOf MonForm.MenuGoodBye_Click, mais ça ne fonctionne pas.

Car du coup dans mon module, j'iomagine que le AddHandler va être à ajouter ici :
Code:

1 2 3 4 5 6 7 8 9 Dim Entry As New ToolStripMenuItem Entry = Accueil.CMSNotify.Items(0) Entry.DropDownItems.Add(ReaderCMS(1), Image.FromStream(ImageMenu)) 'ICI AJOUTER LA FONCTION ADDHANDLER ImageMenu.Close()
Mais je ne vois pas trop comment faire.
Mon ContextMenuStrip se nomme : CMSNotify
Mon formulaire où se trouve ce CMS est appelé : Accueil
Mon module d'où est exécuté le code de création des items de ce CMS est appelé : Fonctions

Merci encore pour ton aide.

@Phil Rob : Il ne s'agit pas d'un ListView. Je galère avec un ContextMenuStrip (menu contextuel) dans lequel je parviens à créer mes items "de base", mais lorsque je souhaite créer des subitems à ces derniers, ces subitems ne répondent pas à l'event ItemCLicked. D'où l'idée de MABROUKI d'utiliser un AddHandler avec un AddressOf, mais je ne parviens pas à le mettre en place pour qu'il fonctionne. Je ne vois pas trop comment faire.

Merci pour votre aide à tous les deux. Je vais essayer de faire fonctionner l'idée de MABROUKI en attendant que quelqu'un m'explique, je trouve ça assez abstrait.

Cordialement-

10/11/2020, 18h06
Phil Rob

Ok, en relisant "bien", je me rends compte que j'étais tout à fait à coté de la question.
Sorry ... :(

re-bonjour
Ah .....les subitems ou ToolStripItems ont beau être déclarés dans un module ,du fait qu'ils sont ajoutés aux "items" du ContextMenuStrip et que ce ContextMenuStrip est déclaré dans le Form "Accueil" ils deviennent accessibles dans ce Form .

Et on peut déclarer leurs handlers dans ce form.
code .vb du module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Module Fonctions
    ' MainShortcutMenu est  un  ContextMenuStrip defini au niveau de Form3
    Private MenuHello As ToolStripMenuItem 'A menu item named MenuHello
    Private MenuGoodbye As ToolStripMenuItem 'A menu item named MenuGoodbye
    Public Sub RunMethod()
        ' Attach an event handler 
 
        MenuHello = New ToolStripMenuItem
        MenuHello.Text = "Say Hello"
 
 
        MenuGoodbye = New ToolStripMenuItem
        MenuGoodbye.Text = "Say Goodbye"
 
        Form3.MainShortcutMenu.Items.Add(MenuHello)
        Form3.MainShortcutMenu.Items.Add(MenuGoodbye)
    End Sub
 
End Module

code .vb du Form revu:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Class Form3
 
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Fonctions.RunMethod()
        Dim HelloMenu As ToolStripMenuItem = CType(Me.MainShortcutMenu.Items(0), ToolStripMenuItem)
        Dim MenuGoodbye As ToolStripMenuItem = CType(Me.MainShortcutMenu.Items(1), ToolStripMenuItem)
        AddHandler HelloMenu.Click, AddressOf MenuHello_Click
        AddHandler MenuGoodbye.Click, AddressOf MenuGoodbye_Click
    End Sub
 
    Private Sub MenuHello_Click(sender As Object, e As EventArgs)
        MsgBox("Hello")
    End Sub
 
    Private Sub MenuGoodbye_Click(sender As Object, e As EventArgs)
        MsgBox("Goodbye")
 
    End Sub
 
End Class

bon code....

11/11/2020, 11h23
Shennong

Bonjour,

Bon j'ai retourné le problème dans tous les sens, j'ai essayé plein de choses, mais visiblement on est obligé de savoir à l'avance combien il y aura de sous-items par item du menu contextuel car il faut créer une procédure pour chaque sous-item apparemment, et connaître également à l'avance l'action qui sera menée lors du clic. Or je ne connais rien de tout cela, car ce menu affrichera les programmes qui sont répertoriés dans une base de données, et je ne peux pas prévoir à l'avance combien de programmes l'utilisateur aura ajouté à cette base.

Donc je laisse tomber, je vais essayer de trouver un autre moyen pour afficher les programmes disponibles en mode réduit de l'application.

Donc merci pour l'aide, mais je vais lâcher l'affaire, ça fait 3 jours que je me prends la tête là-dessus, et à chaque que ej pense avoir trouvé une solution, j'ai une erreur incompréhensible qui sort.

Merci donc et bonne journée.

COrdialement-

2 pièce(s) jointe(s)

Bon, j'ai finalement réussi !

J'ai déplacé le code exécuté pour créer les sous-items du menu contextuel dans mon form Accueil sous forme de Sub, puis j'ai créé une autre procédure pour la gestion de l'action pour le sous-item cliqué.
J'ai pu utiliser le Sender.text de ma routine de gestion du clic pour récupérer donc l'intitulé de l'item qui correspond à la donnée "NomAffichage" dans ma table, et comme ça, à partir d'une liste des programmes dans la base contenant (NomAffichage;Chemin), je peux chercher la bonne ligne dans la liste, la spliter et exécuter le programme à l'aide du chemin récupéré.

Voici :

Pièce jointe 583686

Pièce jointe 583687

Et le code complet :

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
 
 '====================================================================================================================
    'PROCEDURE DE RAFRAICHISSEMENT DU MENU CONTEXTUEL EN MODE REDUIT
    '====================================================================================================================
 
    Public Sub RefreshContext()
 
        'On rafraîchit les onglets du menu contextuel de l'application réduite
        Dim MenuBouton1 As New ToolStripMenuItem(Btn01.Text)
        Dim MenuBouton2 As New ToolStripMenuItem(Btn02.Text)
        Dim MenuBouton3 As New ToolStripMenuItem(Btn03.Text)
        Dim MenuBouton4 As New ToolStripMenuItem(Btn04.Text)
 
        CMSNotify.Items.Add(MenuBouton1)
        CMSNotify.Items.Add(MenuBouton2)
        CMSNotify.Items.Add(MenuBouton3)
        CMSNotify.Items.Add(MenuBouton4)
 
        'On rafraîchit par la même occasion le menu contextuel sur l'icône de l'application réduite
        Dim RequeteCMS As String = "SELECT * FROM PROGRAMMES"
        Dim CommandeCMS As OleDbCommand = New OleDbCommand(RequeteCMS, Connexion)
 
        Dim ImageMenu As IO.MemoryStream
 
        Try
 
            Connexion.Open()
 
            Dim ReaderCMS As OleDbDataReader = CommandeCMS.ExecuteReader()
 
            While ReaderCMS.Read()
 
                'Récupération et écriture du fichier image pour illustrer le programme
                Dim RequeteImage As String = "SELECT Image,NomImage FROM PROGRAMMES WHERE ID=" & ReaderCMS(0)
                Dim CommandeImage As OleDbCommand = New OleDbCommand(RequeteImage, Connexion)
                Dim FichierBytes As Byte()
                Dim NomDuFichier As String = ""
 
                Using sdr As OleDbDataReader = CommandeImage.ExecuteReader
 
                    sdr.Read()
 
                    FichierBytes = DirectCast(sdr(0), Byte())
 
                    NomDuFichier = sdr(1)
 
                End Using
 
                'Reconstruction de l'image à partir des bytes
                Try
 
                    ImageMenu = New IO.MemoryStream(FichierBytes)
 
                Catch ex As Exception
 
                    MsgBox("Une erreur est survenue durant la récupération de l'image d'illustration du programme !" & vbCrLf & vbCrLf & ex.Message, vbOKOnly + vbCritical, "MyLauncher")
                    Exit Sub
 
                End Try
 
                If ReaderCMS(5) = Btn01.Text Then
 
                    Dim MenuSubItem1 As New ToolStripMenuItem(ReaderCMS(1).ToString, Image.FromStream(ImageMenu), New EventHandler(AddressOf ContextClick))
                    MenuBouton1.DropDownItems.Add(MenuSubItem1)
 
                    ImageMenu.Close()
 
                ElseIf ReaderCMS(5) = Btn02.Text Then
 
                    Dim MenuSubItem2 As New ToolStripMenuItem(ReaderCMS(1).ToString, Image.FromStream(ImageMenu), New EventHandler(AddressOf ContextClick))
                    MenuBouton2.DropDownItems.Add(MenuSubItem2)
 
                    ImageMenu.Close()
 
                ElseIf ReaderCMS(5) = Btn03.Text Then
 
                    Dim MenuSubItem3 As New ToolStripMenuItem(ReaderCMS(1).ToString, Image.FromStream(ImageMenu), New EventHandler(AddressOf ContextClick))
                    MenuBouton3.DropDownItems.Add(MenuSubItem3)
 
                    ImageMenu.Close()
 
                ElseIf ReaderCMS(5) = Btn04.Text Then
 
                    Dim MenuSubItem4 As New ToolStripMenuItem(ReaderCMS(1).ToString, Image.FromStream(ImageMenu), New EventHandler(AddressOf ContextClick))
                    MenuBouton4.DropDownItems.Add(MenuSubItem4)
 
                    ImageMenu.Close()
 
                End If
 
            End While
 
            Connexion.Close()
 
        Catch ex As Exception
 
            Connexion.Close()
 
            MsgBox(ex.Message)
 
            Exit Sub
 
        End Try
 
    End Sub
 
 
 
    '==================================================================================
    'PROCEDURE DE GESTION DU CLIC SUR UN SUBITEM DU MENU CONTEXTUEL EN MODE REDUIT
    '==================================================================================
 
    Private Sub ContextClick(sender As Object, e As EventArgs)
 
        Dim ValeursItem As List(Of String) = New List(Of String)
 
        'On vide la liste ValeursItem
        ValeursItem.Clear()
 
         'Si un programme est bien sélectionné, on le lance
        For i = 0 To ListeProgrammes.Count - 1
 
            If ListeProgrammes(i).StartsWith(sender.Text) Then
 
                'On récupère les valeurs de l'item sélectionné
                ValeursItem.AddRange(ListeProgrammes(i).Split(";"))
 
                'On lance le programme associé à l'item
                Try
 
                    Process.Start(ValeursItem(1))
 
                Catch ex As Exception
 
                    MsgBox("Une erreur est survenue durant la tentative d'ouverture du programme '" & ValeursItem(0) & "' !" & vbCrLf & vbCrLf & ex.Message, vbOKOnly + vbCritical, "MyLauncher")
 
                    Exit Sub
 
                End Try
 
                'On vide la liste ValeursItem
                ValeursItem.Clear()
 
            End If
 
        Next
 
    End Sub