主题：WINDWOS7下 列之中文 输入控制怎么无效了

试试用代码吧，下面的代码，切换到搜狗拼音

For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages
    output.show(lang.LayoutName)
    If lang.LayoutName Like "*搜狗拼音输入法*" Then
        Windows.Forms.InputLanguage.CurrentInputLanguage = lang
        Exit For
    End If
Next

msgbox("切换到搜狗输入法成功")

 本来这个功能就不完善。

 再有就是你看懂代码啊，要切换到什么输入法修改代码啊。