Est-ce possible de charger ces ToolStripMenu via une collection ???
(From a In MyJobs.Select(Function(j) j.Environnement).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray()crée une collection castée en tableau, que tu ajoutes d'un coup avec la méthode AddRange.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDans le toolstrip Serveur, il y a tous les serveurs possibles du client.jusque là OK.
Un clic sur le nom d'un serveur va mettre recréer la datagridview (en affichant tous les jobs utilisant ce serveur
et mettre à jour tous les items des menus.là pas OK.
ToolStripMenuEnv.DropDownItems.Clear() ToolStripMenuEnv.DropDown.Items.Add(e.ClickedItem.Text()) et AddRange pour les autres ToolStripMenuApp.DropDownItems.Clear() ToolStripMenuApp.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuJob.DropDownItems.Clear() ToolStripMenuJob.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray()) Private Sub ToolStripMenu_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) _ Handles ToolStripMenuEnv.DropDownItemClicked, ToolStripMenuApp.DropDownItemClicked, ToolStripMenuJob.DropDownItemClicked, ToolStripMenuDDO.DropDownItemClicked, ToolStripMenuServeur.DropDownItemClicked, ToolStripMenuTypeJob.DropDownItemClicked, ToolStripMenuCommentaireApp.DropDownItemClicked, ToolStripMenuCommentaireJob.DropDownItemClicked, ToolStripMenuScript.DropDownItemClicked, ToolStripMenuParametresScript.DropDownItemClicked, ToolStripMenuProfil.DropDownItemClicked, ToolStripMenuTrame.DropDownItemClicked, ToolStripMenuModeExecEnv.DropDownItemClicked, ToolStripMenuModeExecApp.DropDownItemClicked, ToolStripMenuModeExecJob.DropDownItemClicked 'MessageBox.Show(sender.ToString & vbTab & e.ClickedItem.Text) Select Case sender.ToString Case ToolStripMenuEnv.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.Environnement = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.Environnement = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() ToolStripMenuEnv.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuApp.DropDownItems.Clear() ToolStripMenuApp.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuJob.DropDownItems.Clear() ToolStripMenuJob.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuDDO.DropDownItems.Clear() ToolStripMenuDDO.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.DDO).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuServeur.DropDownItems.Clear() ToolStripMenuServeur.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuTypeJob.DropDownItems.Clear() ToolStripMenuTypeJob.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuCommentaireApp.DropDownItems.Clear() ToolStripMenuCommentaireApp.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuCommentaireJob.DropDownItems.Clear() ToolStripMenuCommentaireJob.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuScript.DropDownItems.Clear() ToolStripMenuScript.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Script).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuParametresScript.DropDownItems.Clear() ToolStripMenuParametresScript.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuModeExecEnv.DropDownItems.Clear() ToolStripMenuModeExecEnv.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuModeExecApp.DropDownItems.Clear() ToolStripMenuModeExecApp.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuModeExecJob.DropDownItems.Clear() ToolStripMenuModeExecJob.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuProfil.DropDownItems.Clear() ToolStripMenuProfil.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Profil).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuTrame.DropDownItems.Clear() ToolStripMenuTrame.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Trame).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuCyclique.DropDownItems.Clear() ToolStripMenuCyclique.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuAlarme.DropDownItems.Clear() ToolStripMenuAlarme.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuQueue.DropDownItems.Clear() ToolStripMenuQueue.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.Queue).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuRessourceApp.DropDownItems.Clear() ToolStripMenuRessourceApp.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Select New ToolStripMenuItem(a)).ToArray()) ToolStripMenuRessourcesJob.DropDownItems.Clear() ToolStripMenuRessourcesJob.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Select New ToolStripMenuItem(a)).ToArray()) Case ToolStripMenuApp.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.Application = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.Application = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyScript = (From a In MyFilter.Select(Function(j) j.Script).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.AddRange(MyJob) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.AddRange(MyDDO) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.AddRange(MyServer) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.AddRange(MyTypeJob) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.AddRange(MyCommentaireApp) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.AddRange(MyCommentaireJob) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.AddRange(MyScript) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuJob.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.Job = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.Job = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyScript = (From a In MyFilter.Select(Function(j) j.Script).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.AddRange(MyApp) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.AddRange(MyDDO) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.AddRange(MyServer) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.AddRange(MyTypeJob) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.AddRange(MyCommentaireApp) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.AddRange(MyCommentaireJob) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.AddRange(MyScript) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuDDO.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.DDO = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.DDO = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyScript = (From a In MyFilter.Select(Function(j) j.Script).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.AddRange(MyApp) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.AddRange(MyJob) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.AddRange(MyServer) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.AddRange(MyTypeJob) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.AddRange(MyCommentaireApp) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.AddRange(MyCommentaireJob) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.AddRange(MyScript) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuServeur.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.Serveur = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.Serveur = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyScript = (From a In MyFilter.Select(Function(j) j.Script).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.AddRange(MyApp) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.AddRange(MyJob) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.AddRange(MyDDO) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.AddRange(MyTypeJob) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.AddRange(MyCommentaireApp) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.AddRange(MyCommentaireJob) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.AddRange(MyScript) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuTypeJob.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.TypeJob = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.TypeJob = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyScript = (From a In MyFilter.Select(Function(j) j.Script).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.AddRange(MyApp) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.AddRange(MyJob) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.AddRange(MyDDO) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.AddRange(MyServer) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.AddRange(MyCommentaireApp) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.AddRange(MyCommentaireJob) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.AddRange(MyScript) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuCommentaireApp.Text 'ToolStripMenuCommentaireApp If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.CommentaireApp = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.CommentaireApp = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyScript = (From a In MyFilter.Select(Function(j) j.Script).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.AddRange(MyApp) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.AddRange(MyJob) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.AddRange(MyDDO) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.AddRange(MyServer) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.AddRange(MyTypeJob) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.AddRange(MyCommentaireJob) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.AddRange(MyScript) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuCommentaireJob.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.CommentaireJob = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.CommentaireJob = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyScript = (From a In MyFilter.Select(Function(j) j.Script).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.AddRange(MyApp) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.AddRange(MyJob) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.AddRange(MyDDO) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.AddRange(MyServer) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.AddRange(MyTypeJob) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.AddRange(MyCommentaireApp) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.AddRange(MyScript) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuScript.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.Script = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.Script = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyParameter = (From a In MyFilter.Select(Function(j) j.ParametresScript).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecEnv = (From a In MyFilter.Select(Function(j) j.ModeExecEnv).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecApp = (From a In MyFilter.Select(Function(j) j.ModeExecApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyModeExecJob = (From a In MyFilter.Select(Function(j) j.ModeExecJob).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyProfil = (From a In MyFilter.Select(Function(j) j.Profil).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTrame = (From a In MyFilter.Select(Function(j) j.Trame).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCyclicJob = (From a In MyFilter.Select(Function(j) j.Cyclique).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyAlarm = (From a In MyFilter.Select(Function(j) j.Alarme).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyQueueBatch = (From a In MyFilter.Select(Function(j) j.Queue).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceApp = (From a In MyFilter.Select(Function(j) j.RessourceApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyResourceJob = (From a In MyFilter.Select(Function(j) j.RessourcesJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Me.DataGridView1.DataSource = MyFilter ToolStripMenuEnv.DropDownItems.Clear() : ToolStripMenuEnv.DropDown.Items.AddRange(MyEnv) ToolStripMenuApp.DropDownItems.Clear() : ToolStripMenuApp.DropDown.Items.AddRange(MyApp) ToolStripMenuJob.DropDownItems.Clear() : ToolStripMenuJob.DropDown.Items.AddRange(MyJob) ToolStripMenuDDO.DropDownItems.Clear() : ToolStripMenuDDO.DropDown.Items.AddRange(MyDDO) ToolStripMenuServeur.DropDownItems.Clear() : ToolStripMenuServeur.DropDown.Items.AddRange(MyServer) ToolStripMenuTypeJob.DropDownItems.Clear() : ToolStripMenuTypeJob.DropDown.Items.AddRange(MyTypeJob) ToolStripMenuCommentaireApp.DropDownItems.Clear() : ToolStripMenuCommentaireApp.DropDown.Items.AddRange(MyCommentaireApp) ToolStripMenuCommentaireJob.DropDownItems.Clear() : ToolStripMenuCommentaireJob.DropDown.Items.AddRange(MyCommentaireJob) ToolStripMenuScript.DropDownItems.Clear() : ToolStripMenuScript.DropDown.Items.Add(e.ClickedItem.Text()) ToolStripMenuParametresScript.DropDownItems.Clear() : ToolStripMenuParametresScript.DropDown.Items.AddRange(MyParameter) ToolStripMenuModeExecEnv.DropDownItems.Clear() : ToolStripMenuModeExecEnv.DropDown.Items.AddRange(MyModeExecEnv) ToolStripMenuModeExecApp.DropDownItems.Clear() : ToolStripMenuModeExecApp.DropDown.Items.AddRange(MyModeExecApp) ToolStripMenuModeExecJob.DropDownItems.Clear() : ToolStripMenuModeExecJob.DropDown.Items.AddRange(MyModeExecJob) ToolStripMenuProfil.DropDownItems.Clear() : ToolStripMenuProfil.DropDown.Items.AddRange(MyProfil) ToolStripMenuTrame.DropDownItems.Clear() : ToolStripMenuTrame.DropDown.Items.AddRange(MyTrame) ToolStripMenuCyclique.DropDownItems.Clear() : ToolStripMenuCyclique.DropDown.Items.AddRange(MyCyclicJob) ToolStripMenuAlarme.DropDownItems.Clear() : ToolStripMenuAlarme.DropDown.Items.AddRange(MyAlarm) ToolStripMenuQueue.DropDownItems.Clear() : ToolStripMenuQueue.DropDown.Items.AddRange(MyQueueBatch) ToolStripMenuRessourceApp.DropDownItems.Clear() : ToolStripMenuRessourceApp.DropDown.Items.AddRange(MyResourceApp) ToolStripMenuRessourcesJob.DropDownItems.Clear() : ToolStripMenuRessourcesJob.DropDown.Items.AddRange(MyResourceJob) Case ToolStripMenuParametresScript.Text If ChoiceMenu = True Then MyFilter = MyFilter.Where(Function(c) (c.ParametresScript = e.ClickedItem.Text())).ToList() Else MyFilter = MyJobs.Where(Function(c) (c.ParametresScript = e.ClickedItem.Text())).ToList() ChoiceMenu = True End If Dim MyEnv = (From a In MyFilter.Select(Function(j) j.Environnement).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyApp = (From a In MyFilter.Select(Function(j) j.Application).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyJob = (From a In MyFilter.Select(Function(j) j.Job).Distinct() Select New ToolStripMenuItem(a)).ToArray() Dim MyDDO = (From a In MyFilter.Select(Function(j) j.DDO).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyServer = (From a In MyFilter.Select(Function(j) j.Serveur).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyTypeJob = (From a In MyFilter.Select(Function(j) j.TypeJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireApp = (From a In MyFilter.Select(Function(j) j.CommentaireApp).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray() Dim MyCommentaireJob = (From a In MyFilter.Select(Function(j) j.CommentaireJob).Distinct() Order By a Ascending Select New ToolStripMenuItem(a)).ToArray()
Dim mesMenus As Dictionary(Of String, ToolStripMenuItem) 'Dictionnaire liant le nom de la propriété au menu à initialiser avant mesMenus.Add("Envirronement", ToolStripMenuEnv) mesMenus.Add("Application", ToolStripMenuApp) mesMenus.Add("Job", ToolStripMenuJob) Private Sub ToolStripMenu_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) _ Handles ToolStripMenuEnv.DropDownItemClicked, ToolStripMenuApp.DropDownItemClicked, ToolStripMenuJob.DropDownItemClicked 'MessageBox.Show(sender.ToString & vbTab & e.ClickedItem.Text) Dim monMenu As ToolStripMenuItem = sender For Each key As String In mesMenus.Keys Dim menu As ToolStripMenuItem = mesMenus.Item(key) menu.DropDownItems.Clear() If menu Is monMenu Then menu.DropDownItems.Add(e.ClickedItem.Text()) Else Dim maProp As PropertyInfo = GetType(Job).GetProperties().First(Function(p) p.Name = "Host")'nécessite Imports System.Reflection menu.DropDown.Items.AddRange((From a In MyFilter.Select(Function(j) maProp.GetValue(j).ToString()).Distinct() Select New ToolStripMenuItem(a)).ToArray()) End If Next
Modifié par Whismeril le 28/07/2015 à 10:35
Merci pour tes explications.
Au lancement du formulaire, j'initialise la vingtaine de menu avec
Puis, l'utilisateur peux faire plusieurs choix.
S'il choisit dans le menu Environnement l'item RECETTE, je recalcule les menus en fonction de cette sélection avec MyFilter. Puis l'utilisateur peut faire d'autres sélections.
Je me retrouve avec x lignes répétitives dans le script.
28 juil. 2015 à 10:35
28 juil. 2015 à 10:38
Je reviens plus tard.
28 juil. 2015 à 13:46