Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
_gb3.pngUtiliser les fichiers - Traduire une application

TRADUIRE UNE APPLICATION


translation.png
Voici une méthode pour traduire une application en instantanné sans avoir recours au locales de votre distribution préférée.
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.

Date de création : 03/06/2014 @ 00:49
Dernière modification : 03/06/2014 @ 00:49
Catégorie : Utiliser les fichiers
Page lue 3560 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^