Module de gestion de langues

Soyez le premier à donner votre avis sur cette source.

Vue 4 269 fois - Téléchargée 422 fois

Description

Voir le fichier TXT du ZIP

Source / Exemple :


Dans le zip

Conclusion :


dans le zip

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Sinsitrus
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
merci bokou Renfield
Merci bokou
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56 -
ah, la langue utilisée par le clavier, ok... fallais le dire de suite

http://www.vb-helper.com/howto_kb_locale.html

EXACTEMENT ce que tu souhaites (me semble)... google est ton ami
Sinsitrus
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Oui je sais et je m'excuse mais tu vois, là par exemple il a fonctionné avec même une autre source et ca m'a donné le meme résultat. Mais depuis l'exe quand je change la langue (Alt+Maj) il ne se modifie pas alors que le clavier lui change. Voilà mon soucis.

Merci pour cette source
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56 -
tu serais pas un peu fainéant sur les bords, Sinsitrus ?

tu as posé exactement la même question sur une autre source qui comportait tou ce qu'il faut (c'est a dire pas grand chose) pour faire ce que tu cherches...



Private Const LOCALE_SCOUNTRY As Long = &H6

Private Declare Function GetLocaleInfo Lib "kernel32.dll" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function GetUserDefaultLCID Lib "kernel32.dll" () As Long

Private Sub Timer1_Timer()
Dim nLength As Long
Dim sBuffer As String
'# On récupère la taille nécessaire pour stocker la valeur
nLength = GetLocaleInfo(GetUserDefaultLCID, LOCALE_SCOUNTRY, sBuffer, 0) + 1
'# On agrandit notre chaine de caractère pour qu'elle puisse accueillir notre valeur
sBuffer = Space$(nLength)
'# On récupère l'info
nLength = GetLocaleInfo(GetUserDefaultLCID, LOCALE_SCOUNTRY, sBuffer, nLength)
'# On place le nom du pays dans le label
Label1.Caption = Left$(sBuffer, nLength)
End Sub
Sinsitrus
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Salut

Tu n'aurais pas une source qui montre depuis un label la langue du systeme utilisé en cours ?
J'aimerai bien savoir comment faire depuis un timer et l'afficher dans un label.

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.