Gestion des paramètres régionnaux

Soyez le premier à donner votre avis sur cette source.

Vue 10 487 fois - Téléchargée 1 273 fois

Description

Ce module me permet de gérer les paramètres régionnaux.

ex : Pour connaitre le séparateur décimal numérique

sDecimal = GetUserLocaleInfo(LOCALE_SDECIMAL) (retourne un string)

ex: Pour initialiser le séparateur décimal numérique avec un point "."

bRegionaux = SetUserLocaleInfo(LOCALE_SDECIMAL, ".") (retourne un booléen)

Voici la liste des paramètres régionnaux consultables/modifiables :

¤ Symbole Monétaire Régional
¤ Symbole Monétaire Internationnal
¤ Nom Anglais de la Devise
¤ Nom natif de la Devise
¤ Identifiant de la langue
¤ Nom complet de la langue en cours
¤ Nom Anglais de la langue en cours
¤ Abbréviation de la langue en cours
¤ Nom de la Langue native
¤ Code du Pays
¤ Nom du Pays
¤ Nom du Pays en Anglais
¤ Nom du Pays abbrégé
¤ Nom du Pays d'origine
¤ Code Langue par défaut
¤ Code du Pays par défaut
¤ Code Page
¤ Séparateur décimal monétaire
¤ Séparateur de millier monétaire
¤ Groupement monétaire
¤ # local monetary digits
¤ # intl monetary digits
¤ positive currency mode
¤ negative currency mode
¤ Séparateur décimal numérique
¤ Séparateur de millier numérique
¤ Séparateur de date
¤ Séparateur de l'heure
¤ Format Date Court (ex: dd/MM/yy)
¤ Format Date Long (ex: dd/MM/yyyy)
¤ Format de l'heure
¤ Affichage Date Courte => 0: M-D-Y; 1: D-M-Y; 2: Y-M-D
¤ Affichage Date Longue => 0: M-D-Y; 1: D-M-Y; 2: Y-M-D
¤ Format de l'heure spécifique => 0: AM/PM; 1: 24H
¤ Format du siècle spécifique => 0: 2 digits; 1: 4 digits
¤ Zéro spécifique pour l'heure => 0: Non; 1: Oui
¤ Zéro spécifique pour le jour => 0: Non; 1: Oui
¤ Zéro spécifique pour le mois => 0: non; 1: Oui
¤ Chaîne remplaçant la chaîne AM
¤ Chaîne remplaçant la chaîne PM

Conclusion :


Voilà, n'hésitez pas à mettre vos commentaires.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Radwane37
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
cs_Radwane37
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
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
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
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
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)
Sinsitrus
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
J'aurai souhaiter un label qui affiche la langue en cours depuis un timer :s j'y arrive :'(

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.