得到并设置输入法

最新推荐文章于 2024-10-19 16:29:05 发布

jinta2001

最新推荐文章于 2024-10-19 16:29:05 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB.Net 文章标签：输入法 textbox each

本文链接：https://blog.youkuaiyun.com/jinta2001/article/details/397881

VB.Net 专栏收录该内容

2 篇文章

订阅专栏

博客给出了两段代码，一段用于在列表框中添加已安装输入法的布局名称，另一段用于根据列表框选中项切换当前输入法并让文本框获得焦点，涉及输入法操作和文本框交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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