输入法切换

zlg258369 · 发表于 2010-12-20 14:01:00

传一个我做好的，我只用“搜狗”，所以只能切换“搜狗”，需要别的自己写吧。命令”QH“，可以把它加在启动自动运行。
输入法切换的简单方法！！编辑文字时切换中文输入法，编辑文字结束时切换英文输入法

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

zlg258369 · 发表于 2010-12-28 10:49:00

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

雪山飞狐_lzh · 发表于 2010-12-20 19:58:00

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

zlg258369 · 发表于 2010-12-28 10:41:00

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

copy

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

glowz · 发表于 2010-12-28 10:45:00

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

zlg258369 · 发表于 2010-12-28 11:08:00

窗体部分：

copy


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