Ajouoter de sous menu à un menu strip dynamqiuement
Résolu
binet1
Messages postés
28
Date d'inscription
samedi 26 février 2005
Statut
Membre
Dernière intervention
7 janvier 2009
-
26 nov. 2008 à 19:08
cs_fauve Messages postés 661 Date d'inscription vendredi 2 décembre 2005 Statut Membre Dernière intervention 23 mars 2011 - 27 nov. 2008 à 16:24
cs_fauve Messages postés 661 Date d'inscription vendredi 2 décembre 2005 Statut Membre Dernière intervention 23 mars 2011 - 27 nov. 2008 à 16:24
A voir également:
- Menustrip
- Vb.net menustrip - Meilleures réponses
- Menu strip in vb.net - Meilleures réponses
- Faire un menu en javascript - Forum Javascript / DHTML
- Menu php - Forum PHP
- Menu c++ ✓ - Forum C / C++ / C++.NET
- Génération de menu - Forum PHP
- Créer un menu...? ✓ - Forum C / C++ / C++.NET
2 réponses
cs_fauve
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
27 nov. 2008 à 16:24
27 nov. 2008 à 16:24
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
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
binet1
Messages postés
28
Date d'inscription
samedi 26 février 2005
Statut
Membre
Dernière intervention
7 janvier 2009
26 nov. 2008 à 19:16
26 nov. 2008 à 19:16
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
(Ex. menu Fichier et menu Édition je veux qu'opérer que sur le menu fichier)
Merci