ToolStripMenuItem et DirectCast [Résolu]

Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
- - Dernière réponse : cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
- 17 oct. 2015 à 11:16
Bonjour le Forum,

Lors de la création dynamique d'un menu, je rencontre un problème pour récupéré l'item cliqué.

Pour créer le menu et son arborescence
Dim menustrip2 As New MenuStrip
Dim menustrip2_itemEnvAppJob As New ToolStripMenuItem
Dim menustrip2_itemenv As New ToolStripMenuItem

' Création dynamique du menu EnvAppJob et de son arborescence
menustrip2_itemEnvAppJob.Text = "Environnement \ Application \ Job"
menustrip2.Items.Add(menustrip2_itemEnvAppJob)

' Ajout au menu ENV / APP/ JOB de l'environnment
Dim innerItemEnv As New ToolStripMenuItem()
innerItemEnv.Text = "Environnement"
innerItemEnv.Name = menustrip2_itemEnvAppJob.Text
menustrip2_itemEnvAppJob.DropDownItems.Add(innerItemEnv)

' Ajout des items dans le sous-menu Environnement
innerItemEnv.DropDown.Items.AddRange((From a In ListOfJob.Select(Function(j) j.Environnement).Distinct()
                                      Order By a Ascending
                                      Select New ToolStripMenuItem(a)).ToArray())

AddHandler innerItemEnv.DropDownItemClicked, AddressOf Menu2_Item_Click


Pour récupérer l'item cliqué
    Private Sub Menu2_Item_Click(sender As Object, e As ToolStripItemClickedEventArgs)
        Dim monitem As ToolStripItem = DirectCast(sender, ToolStripItem)
        MessageBox.Show("monitem.Text   :  " & monitem.Text & Environment.NewLine & _
                        "monitem.Name   :  " & monitem.Name & Environment.NewLine)
    End Sub


Comment puis-je récupérer le nom de l'item cliqué dans le sous-menu Environnement ?

Merci de vos propositions,

jean-marc
Afficher la suite 

1 réponse

Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
0
Merci
Désolé pour cette question posée un peu trop rapidement.
 e.ClickedItem.Text()

jean-marc
Commenter la réponse de cs_JMO