得到并设置输入法

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    Dim objLang As InputLanguage    For Each objLang In InputLanguage.InstalledInputLanguages        ListBox1.Items.Add(objLang.LayoutName)    Next objLangEnd SubPrivate Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged    Dim objLang As InputLanguage    For Each objLang In InputLanguage.InstalledInputLanguages        If objLang.LayoutName = ListBox1.SelectedItem.ToString Then            InputLanguage.CurrentInputLanguage = objLang            TextBox1.Focus()            Exit Sub        End If    Next objLangEnd Sub