Discussion :

[toutounesan]

Bonjour,

Je voudrais savoir comment fait-on pour la localisation

J'utilise une combo box pour choisir la langue:

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
  Imports System.Globalization
Imports System.Threading
Imports System.ComponentModel.ComponentResourceManager
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ComboBox1.Items.Add("English")
        ComboBox1.Items.Add("Spanish")
        ComboBox1.Items.Add("French")
        ComboBox1.SelectedIndex = 0
 
 
    End Sub
 
    Private Sub comboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        If comboBox1.SelectedItem.ToString() = "English" Then
            ChangeLanguage("")
        ElseIf ComboBox1.SelectedItem.ToString() = "Roumain" Then
            ChangeLanguage("ro-RO")
        ElseIf ComboBox1.SelectedItem.ToString() = "French" Then
            ChangeLanguage("fr-FR")
        End If
    End Sub

et pour que le programme adapte les bons strings:

Code :

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

1
2
3
4
5
6
  Private Sub ChangeLanguage(ByVal lang As String)
        For Each c As Control In Me.Controls
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
            resources.ApplyResources(c, c.Name, New CultureInfo(lang))
        Next c
    End Sub

J'ai évidemment mis

Code :

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

localizable=true

pour ma forme

que me me manque-t-_il? car il ne se passe rien.
je ne suis pas sûr pour System.ComponentModel.ComponentResourceManager car j'ai du changer ComponentResourceManager en System.ComponentModel.ComponentResourceManager pourtant j'ai importé la librairie

[toutounesan]

j'ai une erreur d'exécution au niveau de

Code :

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

 resources.ApplyResources(c, c.Name, New CultureInfo(lang))

j'ai un exception: argument exception

[toutounesan]

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
33
34
35
36
37
38
39
40
41
42
43
Imports System.Globalization
Imports System.Threading
Imports System.ComponentModel
 
 
Public Class Form1
 
    'Initialisation de la combo box avec les langues
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ComboBox1.Items.Add("French")       'langue française
        ComboBox1.Items.Add("English")      'langue anglaise
        ComboBox1.Items.Add("Roumain")      'langue roumaine
        ComboBox1.SelectedIndex = 0         'Met la combo box sur le 1er élément
 
    End Sub
 
    'Méthode d'affectation des différents éléments de la form1 à la langue choisie
    Private Sub ChangeLanguage(ByVal lang As String)
        For Each c As Control In Me.Controls        'Pour chaque élément de form1
            Dim resources As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
            resources.ApplyResources(c, c.Name, New CultureInfo(lang))  'Application  de texte à la langue choisie
        Next c
    End Sub
 
    'Fermeture de l'application
    Private Sub Fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Close() 'Appel de la méthode  de fermeture
    End Sub
 
 
 
    'Méthode de sélection d'un item de la ComboBox
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem.ToString() = "English" Then       'Si anglais
            ChangeLanguage("en")        'Appel de la méthode changeLanguage avec comme paaramètre(argument) "en"
        ElseIf ComboBox1.SelectedItem.ToString() = "Roumain" Then   'Si roumain
            ChangeLanguage("ro-RO")     'Appel de la méthode changeLanguage avec comme paaramètre(argument) "ro-RO"
        ElseIf ComboBox1.SelectedItem.ToString() = "French" Then    'Si français
            ChangeLanguage("fr-FR")     'Appel de la méthode changeLanguage avec comme paaramètre(argument) "fr-Fr"
        End If
    End Sub
End Class

ça marche mais seulement dynamiquement pas pour les éléments statiques comme les label ou les onglets or je voudrais tout changer