- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]输入法的自动切换为何不灵？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69894)
-- 发布时间：2015/6/12 14:19:00
-- [求助]输入法的自动切换为何不灵？
此主题相关图片如下：qq图片20150612140826.png
各位老师，如上图的代码，为何进入编辑相应列时，并没有自动切换到中文入输法？请老师指点！！
-- 发布时间：2015/6/12 14:44:00
--
这个时候，设置已经晚了，直接在列属性设置吧：
http://www.foxtable.com/help/topics/0046.htm
-- 发布时间：2015/6/12 15:36:00
-- 回复：（狐狸爸爸）这个时候，设置已经晚了，直接在列...
此主题相关图片如下：qq图片20150612152952.png
如上设置，依旧如故？请老师指点！！
-- 发布时间：2015/6/12 15:44:00
--
测试了一下，没有好的方法
If e.Col.Name = "第三列" Then
Dim myCurrentLanguage = Windows.Forms.InputLanguage.CurrentInputLanguage
\'msgbox(myCurrentLanguage.LayoutName)
If myCurrentLanguage.LayoutName Like "*美*" Then
Sendkeys.SendWait("^ ")
End If
End If
https://msdn.microsoft.com/zh-cn/library/System.Windows.Forms.InputLanguage%28v=vs.100%29.aspx
-- 发布时间：2015/6/12 15:49:00
--
比如，如果要切换到某一输入法，可以这样，比如代码
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("切换到搜狗输入法成功")
-- 发布时间：2015/6/12 20:47:00
-- 回复：（大红袍）比如，如果要切换到某一输入法，可以...
十分感谢“大红袍”老师的无私帮助！！
测试通过！