在cad使用文字编辑时,需要经常切换输入法,用它就可以自动切换了。
放到Timer控件里面。
- 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
|