( CHANGER / AJOUTER/ SUPPRIMER ) LA LANGUE DU CLAVIER DANS SON APPLICATION
cs_asimengo
Messages postés
280
Date d'inscription
jeudi 24 mars 2005
Statut
Membre
Dernière intervention
18 mars 2009
-
22 juin 2010 à 11:55
chieur Messages postés 67 Date d'inscription dimanche 22 février 2004 Statut Membre Dernière intervention 27 mai 2009 - 18 sept. 2011 à 14:07
chieur Messages postés 67 Date d'inscription dimanche 22 février 2004 Statut Membre Dernière intervention 27 mai 2009 - 18 sept. 2011 à 14:07
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/51939-changer-ajouter-supprimer-la-langue-du-clavier-dans-son-application
https://codes-sources.commentcamarche.net/source/51939-changer-ajouter-supprimer-la-langue-du-clavier-dans-son-application
18 sept. 2011 à 14:07
13 sept. 2011 à 18:17
7 juil. 2010 à 13:25
5 juil. 2010 à 15:23
24 juin 2010 à 23:24
23 juin 2010 à 19:20
En gros on peut voir les apis concernés. Je me suis pris une petite pause pour adapter ta source pour mes besoins de demain au cas ou un jour ...
Pour les internautes, je donne ce lien http://www.devx.com/vb2themax/Tip/19138 qui donne un code de EnumRegistryValues qui permet de lister les valeur d'une clé au besoin.
allez A+
23 juin 2010 à 17:47
23 juin 2010 à 17:46
moi je suis deborde ces derniers jour dois sortir la version 6
d'atlantis crm et faire l'upgrade d'atlantis arhive system ..,
deja poste le code dans la categorie api pas dans projet au cas ou ..
sur mes prog pour recup la valeur precedante du clavier ke je remets apres je mets ca:
Private Const KL_NAMELENGTH As Long = 9
dim OriginalLayoutId As Long
dim OriginalLayoutName As String
Public Sub Langue_Par_Defaut(Remettre As Boolean)
'Recuperer la valeur courante de la langue du clavier
OriginalLayoutId = GetKeyboardLayout(0)
'creer un buffer
OriginalLayoutName = String(KL_NAMELENGTH - 1, 0)
'Recuperer le nom courant de la langue du clavier
GetKeyboardLayoutName OriginalLayoutName
If Remettre = True Then
'decharger la langue utilisee
UnloadKeyboardLayout HKL
'activer la langue par defaut
Langue "DEFAUT", True
End If
End Sub
Bon courage
23 juin 2010 à 15:25
23 juin 2010 à 10:36
C'est une suggestion, j'utilise un clavier Suisse (travaille pour un groupe Suisse), dès que j'ai testé ton appli j'ai du me remettre à mon clavier manuellement.
J'aurai surement mis une note pas très intéressante pour toi, alors je me réserve jusqu'à ce que tu uploade une mise à jour plus efficace, sinon pour ce que tu as fait il y'a toujours moyen de "moyenner" comme disait kelkun
A+
22 juin 2010 à 15:47
'Recuperer les layouts windows:
Dim Reg As RegistryRoutines ' on declare la variable recuperation de la valeur de la base de registres
Dim KeyCollection As Collection ' declarer une variable collection
' attribuer le resultat HKEY_CURRENT_USER, "Keyboard Layout\Preload" dans la keycollection
Set KeyCollection = Reg.EnumRegistryValues(HKEY_CURRENT_USER, "Keyboard Layout\Preload")
' charger le resultat dans un conteneur un combo listbox etc
For Each Object In KeyCollection
combo.additem Object(1)
Next
'vider la variable
Set KeyCollection = Nothing
les layouts ke tajoute a ton app son pa visible par le layout windows defaut.
et la liste c a toi de la definir recuperant les codes langues utlisee par ton app
et pas eu ta note, je ne sais pas si ta compris l'utilite du code.
merci
22 juin 2010 à 15:42
'Recuperer les layouts windows:
Dim Reg As RegistryRoutines
Dim KeyCollection As Collection
Set KeyCollection = Reg.EnumRegistryValues(HKEY_CURRENT_USER, "Keyboard Layout\Preload")
For Each Object In KeyCollection
exemplelistbox.additem Object(1)
Object(1)
Next
Set KeyCollection = Nothing
les layouts ke tajoute a ton app son pa visible par le layout windows defaut.
et la liste c a toi de la definir recuperant les codes langues utlisee par ton app
et pas eu ta note, je ne sais pas si ta compris l'utilite du code.
merci
22 juin 2010 à 11:55
La liste des langues n'est pas exhaustive, charger la liste depuis le PC.