Menus et sous-menus en vb net

Version imprimable

Bonjour,

Avant de vous explique mon problème, voici la procédure qui le génère :

Code:

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
 
    Sub createMenu(ByVal fileMenus As String)
 
        Dim menuPpal As New MenuStrip
        Dim EltMenus() As ToolStripMenuItem
        Dim cNum As New List(Of Integer)
        Dim cTag As New List(Of String)
        Dim lignes() As String = File.ReadAllLines(fileMenus)
        Dim myarray() As String
        Dim numElt As Integer = 0
 
       *** Dim EltMenu1, EltMenu2, EltMenu3, EltMenu11, EltMenu21, EltMenu31, EltMenu111, EltMenu1111 As New ToolStripMenuItem
       *** EltMenus = {EltMenu1, EltMenu2, EltMenu3, EltMenu11, EltMenu21, EltMenu31, EltMenu111, EltMenu1111}
 
        For Each elt In lignes
            myarray = Split(elt, "|")
            Dim tagElt As String = myarray(0)
            Dim titreElt As String = myarray(1)
            Dim nivElt As Integer = tagElt.Length
            Dim myItem As ToolStripMenuItem = EltMenus(numElt)
            cNum.Add(numElt)
            cTag.Add(tagElt)
            Select Case nivElt
                Case 1
                    With myItem
                        .Text = titreElt
                        .Tag = tagElt
                    End With
                    menuPpal.Items.Add(myItem)
                Case Else
                    With myItem
                        .Text = titreElt
                        .Tag = tagElt
                        Dim tagParent As Integer
                        Dim idxParent As Integer
                        tagParent = tagElt.Substring(0, nivElt - 1)
                        For Each num In cNum
                            If cTag.ElementAt(num) = tagParent Then idxParent = num : Exit For
                        Next
                        EltMenus(idxParent).DropDownItems.Add(myItem)
                    End With
            End Select
            numElt += 1
        Next
 
        Me.Controls.Add(menuPpal)
 
    End Sub

fileMenus est un fichier texte qui contient les éléments du menu écrits sous la forme xx|titre (xx étant le tag de l'élément qui permet de savoir à quel parent le raccrocher)
exemples : 11 sera raccroché à l'élément 1, 324 sera raccroché à l'élément 32...etc...

Ce bout de code marche parfaitement quelque soit le nombre de lignes du fichier MAIS le problème ce sont les deux lignes que j'ai marquées *** (les *** ne sont pas dans le vrai code bien sur)

Elles sont là pour dimensionner et déterminer les éléments du menu pour le code. Il y en a donc autant que de lignes dans le fichier.

Avec le petit fichier exemple ce n'est pas un problème mais avec le vrai fichier qui a 111 lignes...

Mon problème est donc de faire en sorte que ces deux lignes ne doivent pas se faire "en dur" et que cette procédure fonctionne quelque soit le fichier.
Il doit être possible je pense de refondre entièrement cette procédure en utilisant les structures ou les classes mais je ne suis pas du tout à l'aise avec çà...:(

Je vous remercie d'avance pour votre aide.

P.S : J'ai essayé avec un bout de code du style

Code:

1
2
3
4
5
6
        Dim menuitems As New List(Of MenuItem)
        For i As Integer = 0 To nLignesFichier-1
            Dim elt As New MenuItem
            elt.Text = "eltMenu" & Trim(Str(i))
            menuItems.Add(m)
        Next

mais je ne sais pas l'exploiter

Citation:

Envoyé par phantomas13

Bonjour,

P.S : J'ai essayé avec un bout de code du style

Code:

1
2
3
4
5
6
        Dim menuitems As New List(Of MenuItem)
        For i As Integer = 0 To nLignesFichier-1
            Dim elt As New MenuItem
            elt.Text = "eltMenu" & Trim(Str(i))
            menuItems.Add(m)
        Next

mais je ne sais pas l'exploiter

Bonjour
Ca me parait assez simple même si je n'ai pas bien compris la logique de numérotation des ToolStripItem :
A mon avis il suffit de déporter ce code dans un function qui le renverra pour toutes les lignes lues.

code revu et modifie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'Dim EltMenu1, EltMenu2, EltMenu3, EltMenu11, EltMenu21, EltMenu31, EltMenu111, EltMenu1111 As New ToolStripMenuItem
        'EltMenus = {EltMenu1, EltMenu2, EltMenu3, EltMenu11, EltMenu21, EltMenu31, EltMenu111, EltMenu1111}
 
        'AJOUT
        EltMenus = GetEltMenus(lignes.Length)
 
        For Each elt In lignes
            EltMenus = GetEltMenus()
............le reste du code
 
 
  ' LE FUNCTION CHARGE DE LA CORVEE
    Private Function GetEltMenus(nbligne) As ToolStripMenuItem()
        Dim menuitems As New List(Of ToolStripMenuItem)
        For i As Integer = 0 To nbligne - 1
            Dim elt As New ToolStripMenuItem
            elt.Text = "eltMenu" & Trim(Str(i))
            menuitems.Add(elt)
        Next
        Return menuitems.ToArray
 
    End Function

bon code...

Bonjour Mabrouki,

Merci pour le coup de pouce, çà fonctionne nickel (avec une petite modification pour éviter un plantage;)) : supprimer la ligne EltMenus=GetEltMenus() dans la boucle For... Each mais bon je suppose que c'est une erreur de frappe de ta part :)

Pour éclairer ta lanterne concernant la logique des ToolsStripMenuItems : Les nombres qui précèdent les titres des éléments de menus représentent tout bêtement les différents niveaux de l'arborescence. Il n'apparaissent bien entendu pas à l'exécution mais ils me servent pour trouver le parent de chaque élément (y'a peut-être mieux comme méthode mais c'est tout ce que j'ai trouvé)

Si çà peut intéresser d'autres personnes, voici le code complet

Code:

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
    Sub createMenu(ByVal fileMenus As String) 'fileMenus est le fichier texte qui contient tous les éléments du menu écrits sous forme xxx|titre (xxx est le rang du noeud dans l'arborescence)
 
        Dim cNum As New List(Of Integer)
        Dim cTag As New List(Of String)
        Dim lignes() As String = File.ReadAllLines(fileMenus)
        Dim myarray() As String
        Dim numElt As Integer = 0
 
        EltMenus = GetEltMenus(lignes.Length)
 
        For Each elt In lignes
            myarray = Split(elt, "|")
            Dim tagElt As String = myarray(0)
            Dim titreElt As String = myarray(1)
            Dim nivElt As Integer = tagElt.Length
            Dim myItem As ToolStripMenuItem = EltMenus(numElt)
            cNum.Add(numElt)
            cTag.Add(tagElt)
            Select Case nivElt
                Case 1
                    With myItem
                        .Text = titreElt
                        .Tag = tagElt
                        AddHandler .Click, AddressOf item_Click
                    End With
                    menuPpal.Items.Add(myItem)
                Case Else
                    With myItem
                        .Text = titreElt
                        .Tag = tagElt
                        Dim tagParent As Integer
                        Dim idxParent As Integer
                        tagParent = tagElt.Substring(0, nivElt - 1)
                        For Each num In cNum
                            If cTag.ElementAt(num) = tagParent Then idxParent = num : Exit For
                        Next
                        AddHandler .Click, AddressOf item_Click
                        EltMenus(idxParent).DropDownItems.Add(myItem)
                    End With
            End Select
            numElt += 1
        Next
 
    End Sub
 
    Private Function GetEltMenus(ByVal nbLignes As Integer) As ToolStripMenuItem()
 
        Dim menuitems As New List(Of ToolStripMenuItem)
        For i As Integer = 0 To nbLignes - 1
            Dim element As New ToolStripMenuItem
            menuitems.Add(element)
        Next
        Return menuitems.ToArray
 
    End Function