Discussion :

[bobby51]

Bonjour à tous
Alors voila mon probleme
Je doit créer une application sous visual basic 2005, utilisé par plusieur utilisateurs, mais dont le menu ne serait pas le meme suivant l'utilisateur
je m'explique jai un fichier xml de user avec login et mot de passe, un fichier menu avec nom du menu,ses sous-menu avec eu aussi leur nom et ces sous-menu avec quelquefois des sous-sous-menus. chaque dernier noeud pointe vers une form
j'ai aussi un fichier liaison qui permet de dire pour tel user il a droit à tel menu
exemple:

pour le fichier menu

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<menu ID="Menuiseries">
		<name>MenuMenuiseries</name> 
		<label>Menuiseries</label>
		<sousmenu ID="Menuiseries1">
			<name>MenuCmdCli</name>
			<label>Commande Client</label>
			<sousousmenu ID="menuiseries1.1">
				<name>MenuDétailCmd</name>
				<label>Détail d'une commande</label>
				         <lien>Detail_de_commande</lien>
</sousousmenu>
			<sousousmenu ID="menuiseries1.2">
				<name>MenuActionCmd</name>
				<label>Action d'une commande</label>
				<lien>Action_d_une_commande</lien>
			</sousousmenu>

pour le fichier user

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
<user id="jaguille">
		<login>jaguille</login>
		<groupe>Chef atelier</groupe>
		<atelier>BM</atelier>

pour le fichier liaison

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
<atelier ID="BM">
		<groupe ID="Chef atelier">
			<menu>Fichier</menu>
			<menu>Production</menu>
			<sousmenu>Menuiseries1</sousmenu>
			<sousmenu>Menuiseries6</sousmenu>

dans mon programme j'arrive pour tels utilisateur a récuperer ses menus et sous menus correspondant
je me retrouve au final avec un tableau de chaine nommé menu contenant le nom des menus a charger et un autre tableau de chaine nommé sous-menu contenant le nom des sous menu à charger (et oui car certain utilisateur n'ont le droit qu'a certain sous-menu d'un menu), je ne m'occupe pas des sous-sous-chaine pour l'instant je considère que dè-s que l'on trouve un sous menus on charge tous ces sous sous menus correspondant
mon probleme vient dans le fait de générer ces menus, sachant que j'aimerai bien une présentation du style MenuStrip (vu l'abondance du menu: fichier xml de 900 ligne)
par exemple si l'on reprend mon extrait de de menu.xml
j'aimerai que cela me donne
menuiseries
commandes clients menuiseries1
menuiseries1
le rouge signifie que je pointe sur des forms a charger
voila j'espere avoir bien bien résumer mon probleme n'hésiter pas a me poser des questions si vous en avez, et merci d'avance pour vos réponses sa fait 2 jours que je galère la dessus

[nikoko34]

Bonjour,

Je verrais bien une création dynamique de componsant de type MenuStrip, tout ceci dans des boucles appropriées, avec alimentation de la propriété Parent pour effectuer le "liant" entre menus

[bobby51]

je te remercie nikoko mais c'est bon j'ai trouvé la solution
je n'ai pas encore géré les evenments liés a ces menus mais la génération de ces menus, sous-menus et sous-sous-menus est nikel
je poste la partie de code en entiers si ca peut en aidé certain (le code n'est pas très optimisé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
 Dim Menu As New MenuStrip 'création du menu
        Dim document3 As XmlDocument = New XmlDocument()
        document3.Load("menu.xml") 'chargement du fichier de menu
        'gestion du tableau de menu
        For i = 0 To z 'pour tout les menus du tableau de menu
            Dim MenuItem1 As New ToolStripMenuItem(tableau_menu(i))
            Menu.Items.Add(MenuItem1) 'j'ajoute le premier menu
            Dim CheminbNoeud As String = "/racine/menu[@ID=" & Chr(34) & tableau_menu(i) & Chr(34) & "]/sousmenu" 'je me place sur ses sous menus
            Dim nbNoeud As XmlNodeList 'je les charge dans une liste de noeud
            nbNoeud = document3.SelectNodes(CheminbNoeud)
            Dim compteur As Integer = nbNoeud.Count 'on compte le nombre de ses sous-menus
            Dim a As Integer
            For a = 0 To compteur - 1 'pour tous les sous-menus
                Dim sousmenu As New ToolStripMenuItem(nbNoeud(a).ChildNodes(1).InnerText) 'je crée un sous-menu correspondant au deuxième enfaut du sous-menu dans le fichier(le label)
                MenuItem1.DropDownItems.Add(sousmenu) 'on ajoute ce sous menu au menu
                Try
                    'on se place sur les sous-sous menus de ce sous-menu
                    Dim cheminbNoeudsousmenu As String = "/racine/menu[@ID=" & Chr(34) & tableau_menu(i) & Chr(34) & "]/sousmenu[@ID=" & Chr(34) & tableau_menu(i) & a + 1 & Chr(34) & "]/sousousmenu"
                    Dim nbNoeudsousmenu As XmlNodeList
                    nbNoeudsousmenu = document3.SelectNodes(cheminbNoeudsousmenu)
                    Dim compteurSousMenu As Integer = nbNoeudsousmenu.Count 'on compte le nombre de ces sous-sousmenus
                    Dim b As Integer
                    For b = 0 To compteurSousMenu - 1 'pour tous les sous-sous menu de ce sous menu
                        Dim soussousmenu As New ToolStripMenuItem(nbNoeudsousmenu(b).ChildNodes(1).InnerText) 'on ajoute le label au sous-sous menu
                        sousmenu.DropDownItems.Add(soussousmenu)
                    Next
 
                Catch ex As Exception
 
                End Try
 
            Next
 
        Next
 
        'gestion du tableau de sous-menu
        i = 0
 
        While i <= k 'tant que i est inférieur ou égal au nombre de sous menus du tableau
 
            Dim changement_conteneur As Boolean
            Dim Parent As String = tableau_sousmenu(i).Substring(0, tableau_sousmenu(i).Length - 1) 'on cherche le menu principal correspondant à ce sous-menu
            Dim menuItem2 As New ToolStripMenuItem(Parent)
            Menu.Items.Add(menuItem2) 'on ajoute ce menu principal au menu
            Dim sousmenu1 As New ToolStripMenuItem(tableau_sousmenu(i))
            menuItem2.DropDownItems.Add(sousmenu1) 'puis on ajoute les sous-menu au menu principal
            Dim chemin1 As String = "/racine/menu/sousmenu[@ID=" & Chr(34) & tableau_sousmenu(i) & Chr(34) & "]/sousousmenu"
            Dim nbnoeudsousmenu1 As XmlNodeList
            nbnoeudsousmenu1 = document3.SelectNodes(chemin1)
            'gestion des sous-sous menu selon le sous-menu comme plus haut
            Dim compteur1 As Integer = nbnoeudsousmenu1.Count
            Dim c As Integer
            For c = 0 To compteur1 - 1
                Dim soussousmenu As New ToolStripMenuItem(nbnoeudsousmenu1(c).ChildNodes(1).InnerText)
                sousmenu1.DropDownItems.Add(soussousmenu)
            Next
            Try
                'si le sous menu d'après a le meme conteneur( le menu principal) que l'actuel
                If (tableau_sousmenu(i).Substring(0, tableau_sousmenu(i).Length - 1)) = tableau_sousmenu(i + 1).Substring(0, tableau_sousmenu(i + 1).Length - 1) Then
                    changement_conteneur = False
                Else
                    changement_conteneur = True
                End If
            Catch ex As Exception
 
            End Try
 
            i = i + 1 'on passe au sous menu d'après
 
            'tant que le sous-menu a le meme conteneur que celui d'avant (voir le if d'au dessus)
            'on crée le sous menu dans le meme conteneur
            'sinon on remonte au premier while et l'on change de conteneur
            While changement_conteneur = False And (i <= k)
 
                Dim sousmenu2 As New ToolStripMenuItem(tableau_sousmenu(i))
                menuItem2.DropDownItems.Add(sousmenu2)
                Dim chemin2 As String = "/racine/menu/sousmenu[@ID=" & Chr(34) & tableau_sousmenu(i) & Chr(34) & "]/sousousmenu"
                Dim nbnoeudsousmenu2 As XmlNodeList
                nbnoeudsousmenu2 = document3.SelectNodes(chemin2)
                Dim compteur2 As Integer = nbnoeudsousmenu2.Count
                Dim a As Integer
                For a = 0 To compteur2 - 1
                    Dim soussousmenu As New ToolStripMenuItem(nbnoeudsousmenu2(a).ChildNodes(1).InnerText)
                    sousmenu2.DropDownItems.Add(soussousmenu)
                Next
                Try
                    If (tableau_sousmenu(i).Substring(0, tableau_sousmenu(i).Length - 1)) = tableau_sousmenu(i + 1).Substring(0, tableau_sousmenu(i + 1).Length - 1) Then
                        changement_conteneur = False
                    Else
                        changement_conteneur = True
                    End If
                Catch ex As Exception
 
                End Try
                i = i + 1
            End While
        End While
 
        'on charge le menu dans notre form
        Me.MainMenuStrip = Menu
        Me.Controls.Add(Menu)

au passage quelqu'un sait comment je pourrai ajouter des évenements à mes menu?