Discussion :

[webosama80]

Bonjour à tous,

Voila ma question est simple (et pourtant je cherche avec notre ami Google), j'ai créé 4 "buttons" dans mon ruban (par exemple outlook) via visual studio (2010) qui sont eux même dans un "group".
Je souhaiterais lorsque je clique par exemple sur mon "button" EN que cela change le texte qui est ici FR en EN.

Biensur mon ribbon est mis en "localizable" et j'ai déjà créé la ressource fr associée en changeant le texte (par default EN) en FR (quand je fais le debuggage et que je lancer mon ruban je passe direct en français : normal)

Qui aurait une solution SVP ? j'espère avoir été clair

l'image descriptive !

[webosama80]

Bon voila j'ai trouvé, dans mon cas avec 6 langues :

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
Imports Microsoft.Office.Tools.Ribbon
Imports System.Globalization
Imports System.Threading
Imports System.Resources.ResourceManager
Imports System.IO
Imports System.Diagnostics
 
Public Class Ribbon1
 
    Private Sub BtEN_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles btEN.Click
        ' Changement de la culture (langue) pour l'anglais-US
        My.Application.ChangeUICulture("en-US")
        My.Application.ChangeCulture("en-US") '--> Optionnel ($...)
 
        ' Création du ResourceManager auquel on définit la source (Form1)
        Dim RM As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Ribbon1))
 
        ' Lecture des variables de Form1 dans le fichier .resx de la langue
        ' btEN.Label = RM.GetString("btEN.Label")
        Group1.Label = RM.GetString("Group1.Label")
        btSFC.Label = RM.GetString("btSFC.Label")
 
    End Sub
 
    Private Sub btFR_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles btFR.Click
        ' Changement de la culture (langue) pour l'anglais-US
        My.Application.ChangeUICulture("fr-FR")
        My.Application.ChangeCulture("fr-FR") '--> Optionnel ($...)
 
        ' Création du ResourceManager auquel on définit la source (Form1)
        Dim RM As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Ribbon1))
 
        ' Lecture des variables de Form1 dans le fichier .resx de la langue
        ' btEN.Label = RM.GetString("btEN.Label")
        Group1.Label = RM.GetString("Group1.Label")
        btSFC.Label = RM.GetString("btSFC.Label")
    End Sub
 
    Private Sub btDE_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles btDE.Click
        ' Changement de la culture (langue) pour l'anglais-US
        My.Application.ChangeUICulture("de-DE")
        My.Application.ChangeCulture("de-DE") '--> Optionnel ($...)
 
        ' Création du ResourceManager auquel on définit la source (Form1)
        Dim RM As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Ribbon1))
 
        ' Lecture des variables de Form1 dans le fichier .resx de la langue
        ' btEN.Label = RM.GetString("btEN.Label")
        Group1.Label = RM.GetString("Group1.Label")
        btSFC.Label = RM.GetString("btSFC.Label")
    End Sub
 
    Private Sub btES_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles btES.Click
        ' Changement de la culture (langue) pour l'anglais-US
        My.Application.ChangeUICulture("es-ES")
        My.Application.ChangeCulture("es-ES") '--> Optionnel ($...)
 
        ' Création du ResourceManager auquel on définit la source (Form1)
        Dim RM As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Ribbon1))
 
        ' Lecture des variables de Form1 dans le fichier .resx de la langue
        ' btEN.Label = RM.GetString("btEN.Label")
        Group1.Label = RM.GetString("Group1.Label")
        btSFC.Label = RM.GetString("btSFC.Label")
    End Sub
 
    Private Sub btIT_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles btIT.Click
        ' Changement de la culture (langue) pour l'anglais-US
        My.Application.ChangeUICulture("it-IT")
        My.Application.ChangeCulture("it-IT") '--> Optionnel ($...)
 
        ' Création du ResourceManager auquel on définit la source (Form1)
        Dim RM As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Ribbon1))
 
        ' Lecture des variables de Form1 dans le fichier .resx de la langue
        ' btEN.Label = RM.GetString("btEN.Label")
        Group1.Label = RM.GetString("Group1.Label")
        btSFC.Label = RM.GetString("btSFC.Label")
    End Sub
 
    Private Sub btPT_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles btPT.Click
        ' Changement de la culture (langue) pour l'anglais-US
        My.Application.ChangeUICulture("pt-PT")
        My.Application.ChangeCulture("pt-PT") '--> Optionnel ($...)
 
        ' Création du ResourceManager auquel on définit la source (Form1)
        Dim RM As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Ribbon1))
 
        ' Lecture des variables de Form1 dans le fichier .resx de la langue
        ' btEN.Label = RM.GetString("btEN.Label")
        Group1.Label = RM.GetString("Group1.Label")
        btSFC.Label = RM.GetString("btSFC.Label")
    End Sub
 
    Private Sub btSFC_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles btSFC.Click        ' Changement de la culture (langue) pour l'anglais-US
        My.Application.ChangeUICulture("pt-PT")
        My.Application.ChangeCulture("pt-PT") '--> Optionnel ($...)
 
        ' Création du ResourceManager auquel on définit la source (Form1)
        Dim RM As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Ribbon1))
 
        ' Lecture des variables de Form1 dans le fichier .resx de la langue
        btSFC.Label = RM.GetString("btSFC.Label")
        ' Group1.Label = RM.GetString("Group1.Label")
    End Sub
End Class