Ajouoter de sous menu à un menu strip dynamqiuement [Résolu]

binet1 28 Messages postés samedi 26 février 2005Date d'inscription 7 janvier 2009 Dernière intervention - 26 nov. 2008 à 19:08 - Dernière réponse : cs_fauve 661 Messages postés vendredi 2 décembre 2005Date d'inscription 23 mars 2011 Dernière intervention
- 27 nov. 2008 à 16:24
bonjour,
   je cherche comment il est possible à partir du code d'ajouter des sous menu à un menustrip et comment y avoir accès par la suite propriété click par ex.)
je cré un menustrip dans la form et veut y ajouter des sous menu dynamiquement ou en retirer comment je fais.
j'utilise vb 2008
Merci
Afficher la suite 

2 réponses

Répondre au sujet
cs_fauve 661 Messages postés vendredi 2 décembre 2005Date d'inscription 23 mars 2011 Dernière intervention - 27 nov. 2008 à 16:24
+3
Utile
Salut,

Voici comment ajouter des menus et des sous menus à un MenuStrip et leurs ajouter un handler :

Ps : MenuStrip1 a été ajouté avec le Concepteur Windows Form

<hr size="2" width="100%" />
Ajouter des menus et des sous menus
<hr size="2" width="100%" />

Dim MS_item As New ToolStripMenuItem
Dim MS_subitem As New ToolStripMenuItem

MS_item = MenuStrip1.Items.Add("Fichier")

MS_subitem = MS_item.DropDownItems.Add("Nouveau")
'Ajouter un handler pour que l'évènement Click soit pris en charge par Nouveau()
AddHandler MS_subitem.Click, AddressOf Nouveau

MS_subitem = MS_item.DropDownItems.Add("Ouvrir")
AddHandler MS_subitem.Click, AddressOf Ouvrir

MS_item = MenuStrip1.Items.Add("Edition")

MS_subitem = MS_item.DropDownItems.Add("Copier")
AddHandler MS_subitem.Click, AddressOf Copier

MS_subitem = MS_item.DropDownItems.Add("Coller")
AddHandler MS_subitem.Click, AddressOf Coller

<hr size="2" width="100%" />
Les fonctions
<hr size="2" width="100%" />   

    Sub Nouveau()
        MsgBox("Vous avez cliqué sur Nouveau du menu Fichier")
    End Sub

    Sub Ouvrir()
        MsgBox("Vous avez cliqué sur Ouvrir du menu Fichier")
    End Sub

    Sub Copier()
        MsgBox("Vous avez cliqué sur Copier du menu Edition")
    End Sub

    Sub Coller()
        MsgBox("Vous avez cliqué sur Coller du menu Edition")
    End Sub

<hr size="2" width="100%" />Pensez : Réponse Acceptée 
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_fauve
binet1 28 Messages postés samedi 26 février 2005Date d'inscription 7 janvier 2009 Dernière intervention - 26 nov. 2008 à 19:16
0
Utile
ah oui j'oubliais, le menustrip contient 2 menu horizontal et je voudrais ajouter, modifier ou supprimer des sous menu que dans le premier
(Ex. menu Fichier et menu Édition je veux qu'opérer que sur  le menu fichier)
Merci
Commenter la réponse de binet1

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.