Discussion :

[waspy59]

bonjour

je me suis mis très récemment au VB.net et j'ai un petit soucis avec la gestion des menus.
Voila j'ai créé un menu Préférence (PréférencesToolStripMenuItem) dans lequel j'ai le sous menu langues (LanguesToolStripMenuItem).
J'ai réussi a lister les langues dispo grace au code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub PréférencesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PréférencesToolStripMenuItem.Click
        Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo(Application.StartupPath & "\lang")
        Dim lang As String
        Dim fichier As IO.FileInfo
        LanguesToolStripMenuItem.DropDownItems.Clear()
        For Each fichier In dir.GetFiles("*.lng")
            lang = fichier.Name
            LanguesToolStripMenuItem.DropDownItems.Add(lang)
        Next
    End Sub

Maintenant je bloque pour le choix de la langue.... en effet les differentes langues dispo apparaissent dans le sous menu LanguesToolStripMenuItem, mais je n'arrive pas à checker la langue choisie

En fait je veux obtenir ceci (voir fichier joint: exemple fait sous VB6)

merci pour votre aide

[Pol63]

le toolstripmenu peut recevoir plusieur type d'objets en guise d'items
pour une menu à cocher il faut lui donner des toolstripbutton à priori

[waspy59]

merci de ta réponse,

Pour l'instant j'ai réussi à checker mais pas au bon endroit... si tu regarde l'image jointe, je souhaite cocher la langue que je veux selectionner... normal me diras tu. Mias avec le code que j'ai essayé (ps: je debute en vb.net) je coche le menu langue... mais pas LA langue en gros ca marche po sniff

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub LanguesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LanguesToolStripMenuItem.Click
 
        If LanguesToolStripMenuItem.Checked = True Then
            LanguesToolStripMenuItem.Checked = False
        Else
            LanguesToolStripMenuItem.Checked = True
        End If
    End Sub

[Pol63]

chaque morceau du menu est un objet
là tu coche le menu général, et pas le sous menu cliqué

il te faudrait dans la sub :

Code :

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

1
2
3
dim mnu as toolstripitembutton*
mnu = directcast(sender,toolstripitembutton)
mnu.checked = not mnu.checked

*: remplacer par la bonne classe si c'est pas la bonne

sender est l'objet qui déclenche l'évènement

[waspy59]

re,

j'ai mis ce code:

Code :

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

1
2
3
4
5
6
 
Private Sub LanguesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LanguesToolStripMenuItem.Click
        Dim mnu As ToolStripMenuItem
        mnu = DirectCast(sender, ToolStripMenuItem)
        mnu.checked = Not mnu.checked
End Sub

Ca ne marche pas... enfin si, ça coche le Menu Langues mais pas LA langue choisi... (même effet que le code de mon précedent post)

J'ai mal déclaré le mnu?

[waspy59]

Personne ne peut m'aider? je suis bloqué dans mon projet sniff

[waspy59]

bon j'ai reussi a avancer un peut... j'arrive a faire apparaitre un msgbox avec le nom de la langue sélectionnée.

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
 
Private Sub PréférencesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PréférencesToolStripMenuItem.Click
        Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo(Application.StartupPath & "\lang")
        Dim lang As String
        Dim fichier As IO.FileInfo
        LanguesToolStripMenuItem.DropDownItems.Clear()
        For Each fichier In dir.GetFiles("*.lng")
            lang = (fichier.Name).Substring(0, ((fichier.Name).Length - 4))
            LanguesToolStripMenuItem.DropDownItems.Add(lang)
        Next
    End Sub
 
    Private Sub MenuDynamique_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(DirectCast(sender, ToolStripMenuItem).Text)
 
    End Sub
 
    Private Sub LanguesToolStripMenuItem_DropDownOpened(ByVal sender As Object, ByVal e As System.EventArgs) Handles LanguesToolStripMenuItem.DropDownOpened
        For Each subitem As ToolStripMenuItem In LanguesToolStripMenuItem.DropDownItems
            AddHandler subitem.Click, AddressOf MenuDynamique_Click
        Next
    End Sub

C'est déjà pas mal, mais ce que je veux au final c'est cocher la langue sélectionnée... et là ça coince

merci de m'aider

[Pol63]

avec DirectCast(sender, ToolStripMenuItem) tu arrives bien à avoir le bon sous menu
alors tu dois pouvoir le checker ...

[waspy59]

Ca y est, j'ai ENFIN réussi.... voici le code:

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
 
Private Sub PréférencesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PréférencesToolStripMenuItem.Click
        Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo(Application.StartupPath & "\lang")
        Dim lang As String
        Dim fichier As IO.FileInfo
        LanguesToolStripMenuItem.DropDownItems.Clear()
        For Each fichier In dir.GetFiles("*.lng")
            lang = (fichier.Name).Substring(0, ((fichier.Name).Length - 4))
            LanguesToolStripMenuItem.DropDownItems.Add(lang)
        Next
    End Sub
 
    Private Sub MenuDynamique_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AppSelectedLang = DirectCast(sender, ToolStripMenuItem).Text
        AppdefaultLang = AppSelectedLang
        Dim noeud As XmlNode
        noeud = xmlDoc.SelectSingleNode("DONNEES/INFO/language")
        noeud.InnerText = AppdefaultLang
        xmlDoc.Save(G_NomficPGF)
    End Sub
 
    Private Sub LanguesToolStripMenuItem_DropDownOpened(ByVal sender As Object, ByVal e As System.EventArgs) Handles LanguesToolStripMenuItem.DropDownOpened
        Dim noeud As XmlNode
        noeud = xmlDoc.SelectSingleNode("DONNEES/INFO/language")
        AppdefaultLang = noeud.InnerText
        For Each subitem In LanguesToolStripMenuItem.DropDownItems
            AddHandler subitem.Click, AddressOf MenuDynamique_Click
            If subitem.Text = AppdefaultLang Then
                subitem.Checked = True
            End If
        Next
    End Sub

Encore merci pour ton aide ;-)

[Pol63]

j'ai pas suivi tout ton code mais si t'as prévu de passer plusieurs fois dans la sub LanguesToolStripMenuItem_DropDownOpened c'est pas bon

car dans ce cas tu ferais plusieurs addhandler, et ceux ci ce cumulent
si 2 addhandler pour meme evenement de meme objet vers meme sub, la sub est appelé 2x de suite pour la levée d'un seul event

[waspy59]

euh.... pas tout compris

[Pol63]

y manquait un mot que j'ai rajouté
enfin si tu comprends pas, dis moi si tu peux passer plusieurs fois dans la sub en question