cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
21 juil. 2015 à 20:12
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
22 juil. 2015 à 07:08
Bonsoir le Forum,
Je créé un MenuStrip dynamique
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Création contrôle MenuStrip Dim menus As New MenuStrip() Dim menu1 As New ToolStripMenuItem("Fichier") Dim menu2 As New ToolStripMenuItem("Edition")
Dim smenu1_1 As New ToolStripMenuItem("Création Plan de Production") Dim smenu1_2 As New ToolStripMenuItem("Export Plan de Production - Format Excel") Dim smenu1_3 As New ToolStripMenuItem("Export Plan de Production - Format Html")
Dim path As New IO.DirectoryInfo(MyRoot) Dim files As IO.FileInfo() = path.GetFiles("export_*.xml")
For Each file As IO.FileInfo In files Dim MyFile As String MyFile = file.Name.Replace(".xml", "").ToString MyFile = MyFile.Replace("export_", "").ToString smenu1_1.DropDownItems.Add(MyFile) smenu1_2.DropDownItems.Add(MyFile) smenu1_3.DropDownItems.Add(MyFile) Next
21 juil. 2015 à 22:27
Merci de ta proposition.
L'ajout de = Nothing sur les contrôles n'évite pas l'erreur sur le Me.Close() du formulaire.
jean-marc