ToolStripMenuItem et DirectCastRésolu

Question

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 arborescenceDim 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

cs_JMO · Answer

Désolé pour cette question posée un peu trop rapidement.
 e.ClickedItem.Text()
jean-marc

ToolStripMenuItem et DirectCast

1 réponse

Votre réponse

Discussions similaires