Comment obtenir la langue actuelle du clavier?

Question

Je veux obtenir la langue du clavier en cours dans la barre de langue:

Je veux le faire en temps réel. Comment?

Edit: sous forme de charge:

Timer1.Start() 

Public Sub MyCurrentInputLanguage() 
    Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage 
    Me.Text = "Current input language is: " & _ 
     myCurrentLanguage.Culture.EnglishName 
End Sub 

la minuterie:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

MyCurrentInputLanguage() 

end sub 

comment puis-je updat e ma zone de texte lorsque l'utilisateur appuie sur "Alt + Shift"?

Answer 1

Utilisez InputLanguage.CurrentInputLanguage. Le lien à MSDN donne cet exemple:

CurrLang = InputLanguage.CurrentInputLanguage 

Voici les détails concernant InputLanguage.

Vous pouvez détecter la modification au moment de l'exécution (sans utiliser de minuteur) à l'aide de l'événement Form.InputLanguageChanged. (Exemple de lien MSDN cité.)

Private Sub Form1_InputLanguageChanged(sender as Object, e as InputLanguageChangedEventArgs) _ 
    Handles Form1.InputLanguageChanged 

    Dim messageBoxVB as New System.Text.StringBuilder() 
    messageBoxVB.AppendFormat("{0} = {1}", "InputLanguage", e.InputLanguage) 
    messageBoxVB.AppendLine() 
    messageBoxVB.AppendFormat("{0} = {1}", "Culture", e.Culture) 
    messageBoxVB.AppendLine() 
    messageBoxVB.AppendFormat("{0} = {1}", "CharSet", e.CharSet) 
    messageBoxVB.AppendLine() 
    MessageBox.Show(messageBoxVB.ToString(),"InputLanguageChanged Event") 

End Sub 

(Merci à HansPassant pour l'info.)