changer la langue de clavier avec un code vb.net

Question

salut tt le monde
je ss en train de developper une application avec vbexpresse 2005 ,et je veut un code qui peut modifier ou changer la langue de clavier ,par exemple quand je click sur une bouton de francais la langue change automatiquement  en "FR" et la meme chose pour les autres langue ,
aide moi svp
merci d'avnace

PCPT · Answer

salut,


Key HKEY_USERS\.DEFAULT\Keyboard Layout\Preload\ 

Entrée 1 

Type REG_SZ 

Values		Locale

0000040c	Français (France) 

00000409	USA 

00000807	Allemand (Suisse) 

0000080c	Français (Belgique) 

00000c0c	Français traditionnel (Canada) 

00001009	Français (Canada)

il faudra peut-être envoyer (HWND_BROADCOAST je crois) un message (sendmessage ou postmessage) après modif du registre

ps : 20 secondes sur google avec le mot clé paramètres régionaux switch FR VB
bonne journée ;)
 Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

amone_1905 · Answer

salut PCPT
j'ai trouver des indication comme ça mais je sai pas comment faire donné moi un exemple svp complet
merci bcp

PCPT · Answer

re,
sur 15459 codes je suis persuadé qu'il y en a bien au moins 1 qui traite le registre....
encode faut-il taper ce mot clé dans le moteur de recherches, pas facile hein 

http://www.vbfrance.com/recherche.aspx?tr=source&r=registre&dotnet=1

bonne soirée
 Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

amone_1905 · Answer

merci bcp PCPT
je vais essai avec la base de registre 
merci autre fois

PCPT · Answer

oh... je pensais qu'avec juste la première ligne c'était clair

je la refais en image :

il faudra donc lire et écrire dans le registre, avec du code que tu peux trouver (cf lien)
voilà tout ^^

ps : pense à valider une fois le pb résolu
 Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

amone_1905 · Answer

salut ,
desolé ,j'ai declarer cet methode dans une module:
'methode de modification les chains des cle de registre
 Public Sub ModifieVALCle(ByVal cle As String, ByVal NewValeur As String)
        Dim Reg As RegistryKey
        'ouvre la clé avec accès en écriture 
        Reg = Registry.CurrentUser.OpenSubKey("HKEY_USERS\.DEFAULT\Keyboard Layout\Preload", True)
        'modifie la valeur 
        Reg.SetValue(cle, NewValeur)
        'ferme la clé 
        Reg.Close()
        MsgBox("Modification effectué")
    End Sub
et apres j'ai fait l'appel a l'evenement de gotfocus:

Private Sub nomar_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles nomar.GotFocus
        ModifieVALCle("1", "0000001801")
    End Sub

et quand je pose le focus dans le textbox tt bloqué et la langue ne change pas ?
bon nuit

PCPT · Answer

ne t'arrête pas à ta première recherche...
(désolé je ne fais pas de dotnet)

amone_1905 · Answer

salut PCPT,
et enfin mon prof  aresj'ai trouvé le solution voila le code en vb.net vbexpresse2005 :
'declaration des contantes
    Public Const KLF_ACTIVATE  = &H1
    Public Const LANG_FR As UInt32= &H40C
    Public Const LANG_AR As UInt32 = &H1801
    Public Const LANG_EN As UInt32 = &H409
'declaration d'une fonction qui modifié la langue a l'aide de "user32"
    Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As UInt32, ByVal flags As UInt32) As UInt32
' puis on fait l'appel a notre fonction ActivateKeyboardLayout dans une autre fonction pour facilite utilisation
Public Sub Changelangue(ByVal Language As UInt32)
        ActivateKeyboardLayout(Language, KLF_ACTIVATE)
End Sub
'et enfin on fait l'appel a cet derniere fontion dans n'import evenement et choisi la langue qui tu veut comme ça (ex: l'evenement GotFocus):
Private Sub textboxarabe_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles nomar.GotFocus
        ChangeKeyboardLanguage(LANG_AR)
    End Sub
merci bcp MR PCPT 
et bon chance à tt

mimitsdi · Answer

salut,
je suis une nouvelle mombre ,je cherche un code vb qui qui me permet d'attacher m'appication avec le clavier comme  "Ctrl +s pour l'enregistrement
plaise help me...............

maanaloun · Answer

bonjour,
j'ai esseié ce code , mais 
il fonctione bien pour la langue francais et anglais , mais pour l'arabe il ne change rien!
comment faire?
Public Class Form1
    Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As UInt32, ByVal flags As UInt32) As UInt32
    Public Const KLF_ACTIVATE = &H1
    Public Const LANG_FR As UInt32 = &H40C
    Public Const LANG_AR As UInt32 = &H1801
    Public Const LANG_EN As UInt32 = &H409

    Public Sub Changelangue(ByVal Language As UInt32)
        ActivateKeyboardLayout(Language, KLF_ACTIVATE)
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Changelangue(LANG_AR)

    End Sub


End Class

merci bien pour votre aide

Changer la langue de clavier avec un code vb.net

10 réponses

Votre réponse

Discussions similaires