输入法切换

zlg258369

传一个我做好的，我只用“搜狗”，所以只能切换“搜狗”，需要别的自己写吧。命令”QH“，可以把它加在启动自动运行。



输入法切换的简单方法！！编辑文字时切换中文输入法，编辑文字结束时切换英文输入法

1. If CodName = "TEXT" Or CodName = "DDEDIT" Or CodName = "MTEXT" Or CodName = "MTEDIT" Then
   
2.     If InputLanguage.CurrentInputLanguage.LayoutName <> "中文 (简体) - 搜狗拼音输入法" Then
   
3.         SetIme("中文 (简体) - 搜狗拼音输入法")
   
4.     End If
   
5. Else
   
6.     If InputLanguage.CurrentInputLanguage.LayoutName <> "简体中文 - 美式键盘" Then
   
7.         SetIme("简体中文 - 美式键盘")
   
8.     End If
   
9. End If
   
10. 
    
11. Private Function SetIme(ByVal languageName As String) As Boolean
    
12.     Try
    
13.         '循环所有输入法
    
14.         For Each l As InputLanguage In InputLanguage.InstalledInputLanguages
    
15.             If (l.LayoutName.IndexOf(languageName) >= 0) Then
    
16.                 '设置输入法
    
17.                 InputLanguage.CurrentInputLanguage = l
    
18.                 Return True
    
19.             End If
    
20.         Next
    
21.         Return False
    
22.     Catch ex As Exception
    
23.         Return False
    
24.     End Try
    
25. End Function

If CodName = "TEXT" Or CodName = "DDEDIT" Or CodName = "MTEXT" Or CodName = "MTEDIT" Then<br />     If InputLanguage.CurrentInputLanguage.LayoutName <> "中文 (简体) - 搜狗拼音输入法" Then<br />         SetIme("中文 (简体) - 搜狗拼音输入法")<br />     End If<br /> Else<br />     If InputLanguage.CurrentInputLanguage.LayoutName <> "简体中文 - 美式键盘" Then<br />         SetIme("简体中文 - 美式键盘")<br />     End If<br /> End If<br /> <br /> Private Function SetIme(ByVal languageName As String) As Boolean<br />     Try<br />         '循环所有输入法<br />         For Each l As InputLanguage In InputLanguage.InstalledInputLanguages<br />             If (l.LayoutName.IndexOf(languageName) >= 0) Then<br />                 '设置输入法<br />                 InputLanguage.CurrentInputLanguage = l<br />                 Return True<br />             End If<br />         Next<br />         Return False<br />     Catch ex As Exception<br />         Return False<br />     End Try<br /> End Function

zlg258369

加个窗体，弄个Timer控件，combobox控件，几个checkbox控件，再写个ini文件，这就是个完整的切换设置程序了

雪山飞狐_lzh

可以详细的说明下使用环境？
还有感觉把If语句放到函数里更好?

zlg258369

在cad使用文字编辑时，需要经常切换输入法，用它就可以自动切换了。
放到Timer控件里面。

1. private Sub Timer1_Tick(BuVal sender As System.Object,ByVal e As System.eventArgs) Handles Timer1.Tick
   
2. If CodName = "TEXT" Or CodName = "DDEDIT" Or CodName = "MTEXT" Or CodName = "MTEDIT" Then
   
3. If InputLanguage.CurrentInputLanguage.LayoutName <> "中文 (简体) - 搜狗拼音输入法" Then
   
4. SetIme("中文 (简体) - 搜狗拼音输入法")
   
5. End If
   
6. Else
   
7. If InputLanguage.CurrentInputLanguage.LayoutName <> "简体中文 - 美式键盘" Then
   
8. SetIme("简体中文 - 美式键盘")
   
9. End If
   
10. End If
    
11. End Sub
    

private Sub Timer1_Tick(BuVal sender As System.Object,ByVal e As System.eventArgs) Handles Timer1.Tick<br /> If CodName = "TEXT" Or CodName = "DDEDIT" Or CodName = "MTEXT" Or CodName = "MTEDIT" Then<br /> If InputLanguage.CurrentInputLanguage.LayoutName <> "中文 (简体) - 搜狗拼音输入法" Then<br /> SetIme("中文 (简体) - 搜狗拼音输入法")<br /> End If<br /> Else<br /> If InputLanguage.CurrentInputLanguage.LayoutName <> "简体中文 - 美式键盘" Then<br /> SetIme("简体中文 - 美式键盘")<br /> End If<br /> End If<br /> End Sub<br />

glowz

很有用的东东
能给出完整的程序码 和详细使用方法吗？
谢谢

zlg258369

glowz 发表于 2010-12-28 10:45
很有用的东东
能给出完整的程序码 和详细使用方法吗？
谢谢

窗体部分：

2. 
   
3. private Sub Timer1_Tick(BuVal sender As System.Object,ByVal e As System.eventArgs) Handles Timer1.Tick
   
4. 
   
5. on error resume next
   
6. 
   
7. if autodesk.autocad.applicationservices.application.documentmanager.count=0 then
   
8. 
   
9.     timer1.stop()
   
10. 
    
11. end if
    
12. 
    
13. ‘漏了一句
    
14. dim codname as string = autodesk.autocad.applicationservices.application.acadapplication.activedocument.getvariable("cmdnames")
    
15. 
    
16. If CodName = "TEXT" Or CodName = "DDEDIT" Or CodName = "MTEXT" Or CodName = "MTEDIT" Then
    
17. 
    
18. 
    
19. 
    
20. If InputLanguage.CurrentInputLanguage.LayoutName <> "中文 (简体) - 搜狗拼音输入法" Then
    
21. 
    
22. 
    
23. 
    
24. SetIme("中文 (简体) - 搜狗拼音输入法")
    
25. 
    
26. 
    
27. 
    
28. End If
    
29. 
    
30. 
    
31. 
    
32. Else
    
33. 
    
34. 
    
35. 
    
36. If InputLanguage.CurrentInputLanguage.LayoutName <> "简体中文 - 美式键盘" Then
    
37. 
    
38. 
    
39. 
    
40. SetIme("简体中文 - 美式键盘")
    
41. 
    
42. 
    
43. 
    
44. End If
    
45. 
    
46. 
    
47. 
    
48. End If
    
49. 
    
50. endSub

<br /> private Sub Timer1_Tick(BuVal sender As System.Object,ByVal e As System.eventArgs) Handles Timer1.Tick<br /> <br /> on error resume next<br /> <br /> if autodesk.autocad.applicationservices.application.documentmanager.count=0 then<br /> <br />     timer1.stop()<br /> <br /> end if<br /> <br /> ‘漏了一句<br /> dim codname as string = autodesk.autocad.applicationservices.application.acadapplication.activedocument.getvariable("cmdnames")<br /> <br /> If CodName = "TEXT" Or CodName = "DDEDIT" Or CodName = "MTEXT" Or CodName = "MTEDIT" Then<br /> <br /> <br /> <br /> If InputLanguage.CurrentInputLanguage.LayoutName <> "中文 (简体) - 搜狗拼音输入法" Then<br /> <br /> <br /> <br /> SetIme("中文 (简体) - 搜狗拼音输入法")<br /> <br /> <br /> <br /> End If<br /> <br /> <br /> <br /> Else<br /> <br /> <br /> <br /> If InputLanguage.CurrentInputLanguage.LayoutName <> "简体中文 - 美式键盘" Then<br /> <br /> <br /> <br /> SetIme("简体中文 - 美式键盘")<br /> <br /> <br /> <br /> End If<br /> <br /> <br /> <br /> End If<br /> <br /> endSub

类部分：

1. <commandmethod("QH")> _
   
2.     public sub srf_qh()
   
3. 
   
4.     if autodesk.autocad.applicationservices.application.documentmanager.count=1 then
   
5. 
   
6. form.timer1.start()
   
7. 
   
8. end if
   
9. 
   
10. end sub

复制代码

cad命令判断时改为变量，输入法中文改为变量，就能进行设置了。

再加上获取输入法的：（放到button里）

1. for each l as inputlanguage in inputlanguage.installedinputlanguages
   
2. 
   
3. combobox1.items.add(l.layoutname.tostring)
   
4. 
   
5. next
   

复制代码

zlg258369

还不太熟，重复了

azbd

加载使用，出现异常

zlg258369

回复 azbd 的帖子

cad2007的--------

xiaxiang

感谢发布源码