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 objLang End Sub Private 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 objLang End Sub
得到并设置输入法
最新推荐文章于 2024-04-05 00:32:43 发布