Menu dynamique et checked

Version imprimable

1 pièce(s) jointe(s)

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:

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 :cry:

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

merci pour votre aide

22/10/2007, 12h00
Pol63

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

1 pièce(s) jointe(s)

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 :aie: en gros ca marche po sniff
Code:

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

22/10/2007, 12h28
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:

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

re,

j'ai mis ce code:
Code:

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?

24/10/2007, 13h50
waspy59

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

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:

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

30/10/2007, 15h32
Pol63

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

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

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
 
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 ;-)

30/10/2007, 16h30
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
30/10/2007, 19h59
waspy59

euh.... pas tout compris :oops:
30/10/2007, 20h41
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