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

VB 6 et antérieur Discussion :

MsgBox en mode multilingue


Sujet :

VB 6 et antérieur

  1. #1
    Membre habitué Avatar de excalybur
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2014
    Messages
    305
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2014
    Messages : 305
    Points : 181
    Points
    181
    Par défaut MsgBox en mode multilingue
    bonsoir,

    Je me pose la question suivante : Lorsque l'opérateur change de langue dans le programme comment remplacer les message vbOkNo du français Oui/Non vers l'anglais YES/NO ou l'allemand YA/NEIN par exemple.

    Mon 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
     
    If langue$ = "FR" Then
          Titre$ = "Nouvelle solution ?"
          Message$ = "Désirez-vous réellement enregistrer ou remplacer la solution ?"
    End If
    If langue$ = "GB" Then
          Titre$ = "New solution"
          Message$ = "Do you really want to save or replace the solution ?"
    End If
    If langue$ = "DE" Then
          Titre$ = "Neue Lösung"
          Message$ = "Wünschen Sie wirklich die Lösung zu registrieren oder zu ersetzen?"
    End If
     
    reponse% = MsgBox(Message$, 4 + 32 + 256, Titre$)
    avec la variable langue$ définit par l'utilisateur y compris son changement pendant l'utilisation du programme.
    si reponse%=6 on valide la sauvegarde sinon on garde la vieille solution

    4 = valeur symbole vbOkNo vbYesNo
    32 = valeur symbole vbQuestion
    256 = valeur symbole vbDefaultButton2 (la touche Non est valider par défaut.

    en résumé comment rendre MsgBox multilingue ?

    A vous lire
    La Connaissance est comme le rire elle est contagieuse en la partageant!

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 805
    Points
    5 805
    Par défaut
    Le texte des boutons dépend de la plateforme : FR, EU, DE, AR ....
    Pour aboutir au résultat voulu, on doit gérer soit un fichier de ressources, soit un fichier de configuration qu'on utilise si l'OS utilise une langue différente de celle de l'EDI.(au lancement du programme, on vérifie la langue utilisée par l'OS et on agit en conséquence)
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Rédacteur
    Avatar de DarkVader
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 130
    Points : 3 118
    Points
    3 118
    Par défaut
    Bonjour,
    Cela se fait effectivement automatiquement avec le changement de langue.

    Pour plus de flexibilité :
    vb6i.dll > MsgboxW

  4. #4
    Membre habitué Avatar de excalybur
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2014
    Messages
    305
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2014
    Messages : 305
    Points : 181
    Points
    181
    Par défaut
    Bonjour DarkVader,


    Tu me précise : "Cela se fait effectivement automatiquement avec le changement de langue. Pour plus de flexibilité : vb6i.dll > MsgboxW "

    Peux-tu me donner un exemple avec MsgboxW ?

    Prendre FR, GB et DE par ex. sélectionnable à volonté par l'utilisateur en cour de programme.

    A te lire
    La Connaissance est comme le rire elle est contagieuse en la partageant!

  5. #5
    Rédacteur
    Avatar de DarkVader
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 130
    Points : 3 118
    Points
    3 118
    Par défaut
    Bonjour,
    Il y a un exemple dans la doc à cette adresse :
    http://www.vb6i.com/#Msgbox2_Ex.htm
    soit
    Nom : Msgbox2.gif
Affichages : 185
Taille : 10,9 Ko

    3 méthodes pour saisir le texte :
    - direct avec chrw en utilisant les codes unicode comme dans l'exemple précité
    et via un fichier de ressources
    - en utilisant LoadResstring qui utilise les ressources internes de l'application (language régional)
    ou
    - avec findresourceex qui récupèrera les resources de n'importe quel application tout en gérant le choix de la langue.

  6. #6
    Membre habitué Avatar de excalybur
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2014
    Messages
    305
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2014
    Messages : 305
    Points : 181
    Points
    181
    Par défaut
    Bonjour

    Merci pour la réponse. Je vais étudier l'exemple.

    a+
    La Connaissance est comme le rire elle est contagieuse en la partageant!

Discussions similaires

  1. Le grand mode d'emploi du forum, à lire si vous souhaitez tout savoir !
    Par Anomaly dans le forum Mode d'emploi & aide aux nouveaux
    Réponses: 2
    Dernier message: 03/06/2013, 17h36
  2. [XL-2003] Rendre un MSGBOX multilingue
    Par ThSPB dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 23/05/2011, 12h39
  3. Réponses: 11
    Dernier message: 07/11/2010, 15h18
  4. Réponses: 17
    Dernier message: 17/10/2002, 20h06
  5. Passer en mode 800*600
    Par flavien tetart dans le forum Assembleur
    Réponses: 8
    Dernier message: 30/05/2002, 23h05

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