Traduire une application
Rédigé par spheris
Aucun commentaire
Classé dans : gambas 3, Tutoriels, traduction

Il vous suffit de créer des fichiers textes contenant respectivement les traductions de vos chaines de caractères dans le meme ordre.
Dans cet exemple , j'ai donc créé 3 fichiers texte : fr, en, et es. (on se passe de l'extention txt bien entendu)
Voici le contenu du fichier texte traduction francaise avec les commentaires :
Exemple de traduction : le titre de la fenetre
Comment aimez-vous le chocolat? : une question dans un label
Salé : le texte du bouton reponse 1
Sucré : le texte du bouton reponse 2
Bravo à vous, c'est très bien : la reponse 1
Non ce n'est pas bon : la reponse 2
Quitter : texte du bouton quitter
Maintenant, il ne vous reste plus qu'à éditer les autres fichiers texte de la même manière.
ensuite, vous pouvez mettre ce code ci dans votre application.
Private mylanguage As String = "fr"
Private answer1 As String
Private answer2 As String
Public Sub _new()
End
Public Sub Form_Open()
Me.Center
updatetranslation()
End
Public Sub bquit_Click()
Me.Close
End
Public Sub bfrench_Click()
mylanguage = "fr"
updatetranslation()
End
Public Sub benglish_Click()
mylanguage = "en"
updatetranslation()
End
Public Sub bspain_Click()
mylanguage = "es"
updatetranslation()
End
Private Sub updatetranslation()
Dim myfile As File
Label1.Text = Null
myfile = Open Application.Path & "/" & mylanguage For Read
Line Input #myfile, Me.Text
Line Input #myfile, lquestion.Text
Line Input #myfile, b1.Text
Line Input #myfile, b2.Text
Line Input #myfile, answer1
Line Input #myfile, answer2
Line Input #myfile, bquit.Text
Close #myfile
End
Public Sub b1_Click()
Label1.Text = answer1
End
Public Sub b2_Click()
Label1.Text = answer2
End
Et voilà, vous avez maintenant le choix de trois langues en instantanné.
Merci de votre attention.