Sujet Précédent Sujet Suivant

MODULE DE GESTION DE LANGUES

Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 8 août 2007 à 15:06
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 8 août 2007 à 16:35

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/1661-module-de-gestion-de-langues

Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015
8 août 2007 à 16:35

merci bokou Renfield
Merci bokou

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 août 2007 à 16:22

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 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015
8 août 2007 à 15:38

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 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 août 2007 à 15:28

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 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015
8 août 2007 à 15:06

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.

Discussions similaires

gestion rendez vous+application open source

Gestion adhérent salle de sport

gestion de stock+douchette de code à barre

interface d'une application Gestion de stock

cahier des charges d'une application de gestion des stocks et achats classique

Votre réponse

Discussions similaires