IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Développement Office System .NET Discussion :

Multilangue Ruban Office [Débutant]


Sujet :

Développement Office System .NET

  1. #1
    Membre à l'essai
    Homme Profil pro
    Webdesigner
    Inscrit en
    Janvier 2014
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webdesigner
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Janvier 2014
    Messages : 35
    Points : 18
    Points
    18
    Par défaut Multilangue Ruban Office
    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 !
    Nom : 01-07-2015 12-02-44.png
Affichages : 192
Taille : 7,7 Ko

  2. #2
    Membre à l'essai
    Homme Profil pro
    Webdesigner
    Inscrit en
    Janvier 2014
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webdesigner
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Janvier 2014
    Messages : 35
    Points : 18
    Points
    18
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 13/04/2010, 14h03
  2. Ribbon Ruban Office 2007
    Par abouhafsa dans le forum Windows
    Réponses: 0
    Dernier message: 08/01/2008, 13h34
  3. [vba, xml] modification du ruban office
    Par guyzmot dans le forum Général VBA
    Réponses: 0
    Dernier message: 23/08/2007, 17h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo