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