Gambas France BETA


Pas de compte ? Incription

Exemple 4 :

Changer de langue dans un programme :



1
2
3
4
5
6
7
8
9
10
11
12
13
PUBLIC SUB langue_Click() 'en fonction du menu cliqué

IF mnFRANCAIS.Checked = TRUE THEN mylanguage = "fr"
IF mnANGLAIS.Checked = TRUE THEN mylanguage = "en"
IF mnESPAGNOL.Checked = TRUE THEN mylanguage = "es"
IF mnITALIEN.Checked = TRUE THEN mylanguage = "it"
IF mnPORTUGAL.Checked = TRUE THEN mylanguage = "pt"
IF mnALLEMAND.Checked = TRUE THEN mylanguage = "de"
IF mnRUSSE.Checked = TRUE THEN mylanguage = "ru"

AppliLangues()

END

A chaque click sur une langue du menu, la sub Applilangues est lancée




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PUBLIC SUB AppliLangues() 'application du choix de langue

Message.Title = ("La langue choisie sera appliquée après le redémarrage"
IF Message.Question(("Voulez vous quitter?") & gb.CrLf &
("La langue choisie sera appliquée après le redémarrage du programme."("Oui"), ("Non")) = 2 THEN 'ici par défaut c'est 2 c à d non
langues() 'si non langue de démarrage
ELSE
Settings["General/LangInit"] = mylanguage 'langue choisie
Settings.Save
' Shell "gbx3 " & Application.Path ' ATTENTION Cette ligne doit être décommenté lors du travail dans l'IDE et être commenté avant de générer l'exécutable
SHELL "kill -9 " & Application.id
EXEC [Application.Path & "/" & Application.Name] ' ATTENTION ligne à décommenter avant de générer l'exécutable
ENDIF

END

La langue choisie est conservée dans les Settings pour être utilisée au redémarrage
et le programme est fermé et relancé



La langue choisie est utilisée au redémarrage.



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
PUBLIC SUB langues() 'contrôle de la langue système au démarrage

DIM cLangues AS String[] = ["en", "fr", "es", "it", "pt", "de", "ru"]

IF NOT cLangues.Exist(Left(System.Language, 2)) THEN 'si la langue n'existe pas dans les traductions fournies
Settings["General/LangInit"] = "en" 'alors c'est l'anglais qui est choisi pour peu que la traduction existe.
ELSE IF Settings["General/LangInit"] = "en" THEN
System.Language = "en_US.UTF-8"
ELSE IF Settings["General/LangInit"] = "fr" THEN
System.Language = "fr_FR.UTF-8"
ELSE IF Settings["General/LangInit"] = "es" THEN
System.Language = "es_ES.UTF-8"
ELSE IF Settings["General/LangInit"] = "it" THEN
System.Language = "it_IT.UTF-8"
ELSE IF Settings["General/LangInit"] = "pt" THEN
System.Language = "pt_PT.UTF-8"
ELSE IF Settings["General/LangInit"] = "ru" THEN
System.Language = "ru_RU.UTF-8"
ELSE IF Settings["General/LangInit"] = "de" THEN
System.Language = "de_DE.UTF-8"
ENDIF

END


====================

Commandes utilisées :


Dim
Exec
Shell
Message
Show
Settings

====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--

====================

Documentation :



====================