Discussion :

[waspy59]

Bonjour,

J'ai dans mon appli un MenuStrip1 qui est composé de plusieurs éléments:
- PréférencesToolStripMenuItem
- LanguesToolStripMenuItem
- ImpressionToolStripMenuItem
- AideToolStripMenuItem

Jusque là pas de probleme. Seulement je souhaite faire une appli multilangues... pour cela j'utilise des fichier .lng et a la lecture de la form je pioche les bonnes valeurs pour chacun des controles de la form.
Cela fonctionne très bien avec les Button, Listbox, RadioButton ect mais je n'y arrive pas avec le MenuStrip.
En effet quand je scan tous les controles de ma form, je trouve mon MenuStrip1 mais pas moyen d'acceder aux éléments le constituant...

Comment dois je faire avec ce type de controle?

merci

[AP]

Normal les menuitem (et tout ce qui hérite de ToolStripItem) n'héritent pas de control (et donc n'apparaissent pas dans la collection de control)
Tu as alors 2 possibilités:
- Te servir des fonctionnalités de .NET pour la localisation
- Quand tu tombes sur un toolstripitem, parcourir les collections Items et DropDownItems et réaliser le même traitement.

[waspy59]

re,

merci pour ces informations... en effet quand je parcours les controles de la feuille je tombe sur mon Menustrip1 mais pas sur les elements le constituant...

A tu un petit exemple a me donner pour parcourir tous les elements de mon MenuStrip car pour etre franc je debute en VB.net et je galere un peut avec ces histoire de menu...

merci

[AP]

Quand tu as ton menustrip:

Code :

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

1
2
3
For Each oMeniItem as toolstripmenitem in MonMenuStrip.Items
// le code qui va bien
Next

[waspy59]

Re,

J'ai des soucis avec ton exemple. Sur ma form je n'ai qu'un Menustrip (Menustrip1).
Pour changer la langue des differents controles de la forme j'utilise ce 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
 
Public Function ChargeLng(ByVal Feuille As Form, ByVal Strpath As String)
        Dim controle As System.Windows.Forms.Control
 
        Feuille.Text = lectureINI(Feuille.Name, Feuille.Name, Strpath)
        For Each controle In Feuille.Controls
            Select Case TypeName(controle)
                Case "TextBox"
                    controle.Text = lectureINI(Feuille.Name, controle.Name, Strpath)
                Case "Button"
                    controle.Text = lectureINI(Feuille.Name, controle.Name, Strpath)
 
                Case "ListBox"
                    controle.Text = lectureINI(Feuille.Name, controle.Name, Strpath)
 
                Case "RadioButton"
                    controle.Text = lectureINI(Feuille.Name, controle.Name, Strpath)
 
                Case "MenuStrip"
                    Dim menustrip1 As MenuStrip
                    For Each oitem As ToolStripMenuItem In menustrip1.Items
                        oitem.Text = lectureINI(Feuille.Name, oitem.Name, Strpath)
                    Next
                End Select
        Next
    End Function

Ca marche très bien pour les differents controles sauf pour mon Menustrip1 ou j'obtient un message d'erreur....NullReferenceException

D'ou vien le soucis?