Remplir un MenuStrip dynamiquementRésolu

Question

Bonsoir, 
J'ai un MenuStrip est je veux le remplir dynamiquement (Créer des items (ToolStripMenuItem))
je n'ai pas trouvé sur le net ce que je veux et j'avais la méthode pour créer et remplir un TabControl dynamiquement, ce n'été pas difficile d'utiliser cette méthode pour le MenuStrip, voici le code :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim TypesToolStripMenuItem As New ToolStripMenuItem()        TypesToolStripMenuItem.Name = "Type1"        TypesToolStripMenuItem.Text = "Type 1"        TypesToolStripMenuItem.Font = New Font("Georgia", 12)        MenuStrip1.Items.Add(TypesToolStripMenuItem)        AddHandler TypesToolStripMenuItem.Click, AddressOf TypesToolStripMenuItem_Click    End Sub    Private Sub TypesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)    End Sub
j'arrive a créer un ToolStripMenuItem et lui attribuer une action qui va être exécuté si je clique sur lui
mais si je veux créer plusieurs (le nombre n'est pas définie), comment attribuer des actions à chaque item ?
merci pour vos réponses futures et bonne soirée

cs_Le Pivert · Answer

Bonjour,
Voici un exemple avec 1 button:
Public Class Form1
    Dim monmenu As New MenuStrip

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

'ajout d'un élément
        Dim menuitem As New ToolStripMenuItem
        menuitem.Text = "Fichier"

'ajout d'un sous-élément
        Dim itemOuvrir As New ToolStripMenuItem
        itemOuvrir.Text = "Ouvrir"
        itemOuvrir.Tag = "0"
        'abonnement à l'événement click
        AddHandler itemOuvrir.Click, AddressOf item_Click
        menuitem.DropDownItems.Add(itemOuvrir)

'ajout d'un sous-élément
        Dim itemEnregistrer As New ToolStripMenuItem
        itemEnregistrer.Text = "Enregistrer"
        itemEnregistrer.Tag = "1"
        'abonnement à l'événement click
        AddHandler itemEnregistrer.Click, AddressOf item_Click
        menuitem.DropDownItems.Add(itemEnregistrer)

'ajout d'un autre sous-élément
        Dim itemQuitter As New ToolStripMenuItem
        itemQuitter.Text = "Quitter"
        itemQuitter.Tag = "2"
        'abonnement à l'événement click
        AddHandler itemQuitter.Click, AddressOf item_Click
        menuitem.DropDownItems.Add(itemQuitter)

'ajout de l'élément au menustrip
        monmenu.Items.Add(menuitem)

'ajout du menustrip au formulaire
        Me.Controls.Add(monmenu)
    End Sub
    Private Sub item_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim monitem As ToolStripItem = DirectCast(sender, ToolStripItem)
        MessageBox.Show(monitem.Text)
        CType(monmenu.Items(0), ToolStripMenuItem).DropDownItems(1).AllowDrop = True
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim c As ToolStripMenuItem
        c = CType(CType(monmenu.Items(0), ToolStripMenuItem).DropDownItems.Add("Nouveau menu"), ToolStripMenuItem)
        c.Name = "Nouveau menu"
        For lcoount As Integer = 1 To 2
            Dim innerItem As New ToolStripMenuItem()
            innerItem.Text = "Monmenu" & lcoount
            innerItem.Name = lcoount.ToString
            'abonnement à l'événement click
            AddHandler innerItem.Click, AddressOf item_Click
            c.DropDownItems.Add(innerItem)
        Next
        ' CType(monmenu.Items(0), ToolStripMenuItem).DropDownItems(1).Visible = False
    End Sub
End Class
 
a toi de l'adapter suivant tes besoins

cs_JMO · Answer

Bonsoir  
Regarde du côté AddHandler
Exemple:
 Dim menustripmain As New MenuStrip
 Dim menustripmain_itemmenu As New ToolStripMenuItem
 Dim menustripmain_itemviewappweb As ToolStripMenuItem

' Création dynamique du menu et de son arborescence
 menustripmain_itemmenu.Text = "Menu"
 menustripmain_itemmenu.Font = New System.Drawing.Font("Segoe UI", 10.0!)

' Création du menu "Consultation Web Consignes"
 menustripmain_itemviewappweb = CType(CType(menustripmain_itemmenu, ToolStripMenuItem).DropDownItems.Add("Consultation Web Consignes"), ToolStripMenuItem)
 menustripmain_itemviewappweb.Name = "ViewWEB"
 menustripmain_itemviewappweb.Text = "Consultation Web Consignes"
 AddHandler menustripmain_itemviewappweb.Click, AddressOf ToolStripSplitButtonOpenLinkWeb_ButtonClick

' Ajout des éléments au menustrip Menu
  menustripmain.Items.Add(menustripmain_itemmenu)

' Ajout du menustripmain au formulaire
 Me.Controls.Add(menustripmain)

'#####################################################################################
 '# ToolStripSplitButtonOpenLinkWeb pour ouvrir le lien Web des Consignes
 '#####################################################################################
 Private Sub ToolStripSplitButtonOpenLinkWeb_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolStripSplitButtonOpenLinkWeb.ButtonClick
     Process.Start("http://......")
 End Sub
jean-marc
Désolé cs_Le Pivert (bonsoir) je n'avais pas vu ta proposition.

vb95 · Answer

bonsoir Karin.code 
Suffit de leur donner à chacun un nom différent
De plus attention
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     Dim TypesToolStripMenuItem As New ToolStripMenuItem() ' point 1     TypesToolStripMenuItem.Name = "Type1"     TypesToolStripMenuItem.Text = "Type 1"     TypesToolStripMenuItem.Font = New Font("Georgia", 12)     MenuStrip1.Items.Add(TypesToolStripMenuItem)     AddHandler TypesToolStripMenuItem.Click, AddressOf TypesToolStripMenuItem_Click ' point 2    End Sub
1) Tu appelles ta commande de menu avec un nom presque similaire au type menu : risque de se perdre les pinceaux ( j'ai failli me tromper d'ailleurs) . Là  c'est toi qui donne le nom : autant lui donner un nom en français c'est plus parlant ( regarde mon exemple)
2) Le "AddHandler" est incorrect
- le premier paramètre est l'action sur le contrôle 
- le second paramètre est une simple Sub que le programme va exécuter une fois l'évènement déclenché
tu devrais faire 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim ElementMenu As New ToolStripMenuItem() ' nouveau élément menu        ElementMenu.Name = "Enregistrer"        ElementMenu.Text = "Enregistrer"        ElementMenu.Font = New Font("Georgia", 12)        MenuStrip1.Items.Add(ElementMenu)        AddHandler Enregistrer.Click, AddressOf Enregistrement ' adresse Sub à lier à cet évènement         Dim ElementMenu As New ToolStripMenuItem() ' nouveau élément menu        ElementMenu.Name = "Fermer"        ElementMenu.Text = "Fermer"        ElementMenu.Font = New Font("Georgia", 12)        MenuStrip1.Items.Add(ElementMenu)        AddHandler Fermer.Click, AddressOf Fermeture ' adresse Sub à lier à cet évènement     End Sub Private Sub Enregistrement()      ' le code d'enregistrement    End Sub Private Sub Fermeture()      ' le code pour fermer    End Sub

vb95 · Answer

Salut Karin.code
Si je comprends bien tu fais X calculs ( cela peut être 20 comme 200)
A chaque calcul correspond
- un numéro ( Calcul n° 1, Calcul n°2, etc ......
- un résultat qui est une valeur numérique
- une appréciation qui est une chaine de caractères 

somme toute un tableau comme ceci
chaque fois que tu fais un calcul on ajoute une ligne 
Cela me paraît plus simple que tes menus et listbox
tout en sachant que sur une ligne tu peux afficher d'autres informations ou même effacer la ligne
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

Karin.code · Answer

Bonjour 
j'ai fait quelque recherche ce matin et la 1er solution que j'ai trouvé (je l'ai intégré au code de cs_Le Pivert) est :
Public Class Form1    Dim monmenu As New MenuStrip    Dim i As Integer = 0    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        'ajout d'un élément        Dim menuitem As New ToolStripMenuItem        menuitem.Text = "Fichier"        'ajout d'un sous-élément        Dim itemOuvrir As New ToolStripMenuItem        itemOuvrir.Text = "Ouvrir"        itemOuvrir.Tag = "0"        'abonnement à l'événement click        AddHandler itemOuvrir.Click, AddressOf item_Click        menuitem.DropDownItems.Add(itemOuvrir)        'ajout d'un sous-élément        Dim itemEnregistrer As New ToolStripMenuItem        itemEnregistrer.Text = "Enregistrer"        itemEnregistrer.Tag = "1"        'abonnement à l'événement click        AddHandler itemEnregistrer.Click, AddressOf item_Click        menuitem.DropDownItems.Add(itemEnregistrer)        'ajout d'un autre sous-élément        Dim itemQuitter As New ToolStripMenuItem        itemQuitter.Text = "Quitter"        itemQuitter.Tag = "2"        'abonnement à l'événement click        AddHandler itemQuitter.Click, AddressOf item_Click        menuitem.DropDownItems.Add(itemQuitter)        'ajout de l'élément au menustrip        monmenu.Items.Add(menuitem)        'ajout du menustrip au formulaire        Me.Controls.Add(monmenu)    End Sub    Private Sub item_Click(ByVal sender As Object, ByVal e As EventArgs)        ListBox1.SelectedIndex = MenuStrip1.Items.IndexOf(DirectCast(sender, ToolStripItem))        MessageBox.Show(ListBox1.SelectedItem)    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim element As New ToolStripMenuItem()        element.Name = "element" & i        element.Text = "element " & i        AddHandler element.Click, AddressOf item_Click        monmenu.Items.Add(element)        i = i + 1    End SubEnd Class
quand je clique sur le 1er élément ça affiche l'item (1) de la ListBox
quand je clique sur le 2eme élément ça affiche l'item (2) de la ListBox
ainsi de suite
mais le problème est que :
quand je clique sur un sous élément rien ne s'affiche
la 2eme solution que j'ai trouvé est :
Public Class Form1    Dim monmenu As New MenuStrip    Dim i As Integer = 0    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        'ajout d'un élément        Dim menuitem As New ToolStripMenuItem        menuitem.Text = "Fichier"        'ajout d'un sous-élément        Dim itemOuvrir As New ToolStripMenuItem        itemOuvrir.Text = "Ouvrir"        itemOuvrir.Tag = "0"        'abonnement à l'événement click        AddHandler itemOuvrir.Click, AddressOf item_Click        menuitem.DropDownItems.Add(itemOuvrir)        'ajout d'un sous-élément        Dim itemEnregistrer As New ToolStripMenuItem        itemEnregistrer.Text = "Enregistrer"        itemEnregistrer.Tag = "1"        'abonnement à l'événement click        AddHandler itemEnregistrer.Click, AddressOf item_Click        menuitem.DropDownItems.Add(itemEnregistrer)        'ajout d'un autre sous-élément        Dim itemQuitter As New ToolStripMenuItem        itemQuitter.Text = "Quitter"        itemQuitter.Tag = "2"        'abonnement à l'événement click        AddHandler itemQuitter.Click, AddressOf item_Click        menuitem.DropDownItems.Add(itemQuitter)        'ajout de l'élément au menustrip        monmenu.Items.Add(menuitem)        Me.Controls.Add(monmenu)    End Sub    Private Sub item_Click(ByVal sender As Object, ByVal e As EventArgs)        Dim item As ToolStripItem = sender        ListBox1.SelectedIndex = item.Owner.Items.IndexOf(item)        MessageBox.Show(ListBox1.SelectedItem)    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim element As New ToolStripMenuItem()        element.Name = "element" & i        element.Text = "element " & i        AddHandler element.Click, AddressOf item_Click        monmenu.Items.Add(element)        i = i + 1    End SubEnd Class
cette méthode fonction pour les éléments et sous éléments
supposant qu'il y a 5 éléments et dans le 3eme élément il y a 4 sous éléments
quand je clique sur le 1er élément ça affiche l'item (1) de la ListBox
quand je clique sur le 2eme élément ça affiche 'item (2) de la ListBox
quand je clique le 1er sous élément du  3eme élément ça affiche l'item (1) de la ListBox
quand je clique le 2eme sous élément du  3eme élément ça affiche l'item (2) de la ListBox
ainsi de suite
ce n'est pas ce que je veux, moi je veux que ça s'affiche par ordre de création c-à-dire :
le 1er élément du MenuStrips affiche l'item (1) de la ListBox
le 2eme élément du MenuStrips affiche l'item (2) de la ListBox
le 1er sous élément du  3eme élément du MenuStrips affiche l'item (3) de la ListBox
le 2eme sous élément du  3eme élément du MenuStrips affiche l'item (4) de la ListBox
le 3eme sous élément du  3eme élément du MenuStrips affiche l'item (5) de la ListBox
le 4eme sous élément du  3eme élément du MenuStrips affiche l'item (6) de la ListBox
le 4eme élément du MenuStrips affiche l'item (4) de la ListBox
le 5eme élément du MenuStrips affiche l'item (5) de la ListBox
je sais que je demande beaucoup, mais je fais des recherches de mon côté, je n'attend pas que la solution vient par magie
Je vais continuer à rechercher d'autre solution
merci pour votre aide

cs_Le Pivert · Answer

Essaie ceci:
 Private Sub item_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim index As Integer
        index = monmenu.Items.IndexOf(DirectCast(sender, ToolStripItem))
        ListBox1.SelectedIndex = index - 1
        MessageBox.Show(CStr(ListBox1.SelectedItem)) 'nom
        MessageBox.Show(CStr(ListBox1.SelectedIndex)) 'index
    End Sub
    Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim element As New ToolStripMenuItem()
        element.Name = "element" & i
        element.Text = "element " & i
        AddHandler element.Click, AddressOf item_Click
        monmenu.Items.Add(element)
        ListBox1.Items.Add(element.Text)
        i = i + 1
    End Sub 
apprends toi a mettre Option Strict On  et   Option Explicit On pour corriger les erreurs
@+ Le Pivert

Karin.code · Answer

Salut cs_Le Pivert,
C'est déjà un problème réglé Merci
désolé je n'ai pas expliquer pourquoi je veux les sous éléments

Comme le montre l'image si je crée beaucoup d'éléments certain d'entre eux ne s'affiche pas car la taille du MenuStrip est limité
je voulais s'avoir si c'est possiblede faire quelque chose comme ça

si les élements ne peuvent plus être affiché alors il seront créé dans un sous menu ou quelque chose comme ça
cet aspect là est présent dans beaucoup de logiciel (par exemple Microsoft, des navigateur , même dans visual basic express 2010)

paulc · Answer

Bonjour cs_Le Pivert, j'ai un problème de compréhension fondamental au sujet des objets. Le code de la ligne 
c = CType(CType(monmenu.Items(0), ToolStripMenuItem).DropDownItems.Add("Nouveau menu"), ToolStripMenuItem) 
contient une conversion de monmenu.Items(0) à ToolStripMenuItem. 

Avec un breakpoint immédiatement après la ligne ci-dessus j'obtiens dans l'Immediate Window: 

?monmenu.Items(0).gettype.tostring 
"System.Windows.Forms.ToolStripMenuItem" 

Si monmenu.Items(0) est reconnu comme un ToolStripMenuItem pourquoi est-il nécessaire de faire la conversion?

Je ne conteste pas la validité de votre code (il fonctionne) mais j'aimerais comprendre. 

merci

Remplir un MenuStrip dynamiquement

8 réponses

Votre réponse

sur les mêmes thèmes