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:
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 ;)
