GESTION DES PARAMÈTRES RÉGIONNAUX

Signaler
Messages postés
345
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
21 mars 2008
-
Messages postés
10
Date d'inscription
lundi 6 novembre 2006
Statut
Membre
Dernière intervention
20 avril 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36929-gestion-des-parametres-regionnaux

Messages postés
10
Date d'inscription
lundi 6 novembre 2006
Statut
Membre
Dernière intervention
20 avril 2009

Salut,

Je n'arrive pas à changer la langue du système. Je voudrais la mettre en anglais us.

J'arrive à changer la "," par un ".", mais pas la langue.

Voila ce que je mets :


'-------------DEBUT---------
Dim str As String
Dim a As Boolean

'enu --> us
'fra --> fr

'pour voir quelle est la langue
str = Module2.GetUserLocaleInfo(LOCALE_SABBREVLANGNAME)
MsgBox (str)

'pour la changer en anglais us
a = Module2.SetUserLocaleInfo(LOCALE_SABBREVLANGNAME, "ENU")

'pour voir quelle est la langue
str = Module2.GetUserLocaleInfo(LOCALE_SABBREVLANGNAME)
MsgBox (str)
'-----------FIN----------------

Quelqu'un peut m'aider svp?
Merci
Messages postés
10
Date d'inscription
lundi 6 novembre 2006
Statut
Membre
Dernière intervention
20 avril 2009

Super ton code. Il m'a bien aidé car j'ai des problèmes entre les version d'excel en fr et en us.
Merci
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
et quand je dis TOUS les éléments ....


Private Sub Timer1_Timer()
'# On place le nom du pays dans le label
Label1.Caption = GetUserLocaleInfo(LOCALE_SCOUNTRY)
End Sub
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
pourquoi vouloir les modifier, c0pyright ?

Sinistrus, tu as, me semble, tous les elements necessaires dans cette source pour réaliser ce que tu souhaite.
néanmoins, utiliser un Timer serait contre-performant.

la doc nous dit :
http://msdn2.microsoft.com/en-us/library/ms776312.aspx

Note: When an application calls this function for an international change to system parameters, it should broadcast the WM_SETTINGCHANGE message to inform other applications. If this is not done, SetLocaleInfo can make unexpected changes to system settings.

en clair, suffit d'attendre WM_SETTINGCHANGE pour être avertit d'un changement de parametres (langue, dans ton cas)
Afficher les 22 commentaires