怎样将输入法设定为西文或中文?绝大多数程序完成后转西文输入法是有用的.

liu_kunlun

怎样将输入法设定为西文或中文?绝大多数程序完成后转西文输入法是有用的.

无痕

很多输入法有快速切换键的，如shift。也可自定义

liu_kunlun

谢谢版主。我的主要目的是在程序结束时，自动设定为西文输入方式。可能的方法：

1） 通过sendkey发出ctr+space，实现中西文切换，但怎样用lisp判断目前是处于中文或西文输入状态？

或2） 在操作系统中定义西文输入法的快捷键，用sendkey实现，但怎样才能用lisp设定快捷键？，否则每台机器都要手动设定快捷键才行。

英雄无敌

这个用LISP可能不好做，但可以用其它的高级语言做，如用VB做一个ActivexDLL,在LISP中就可以直接调用了。

liu_kunlun

是这样的。但请问用VB怎样才能实现：

1）判断目前是处于中文或西文输入状态？

或2）直接设定成西文输入方式？

或3）定义西文输入方式的快捷键？

英雄无敌

这个在网上应该都能搜索到，我也没有做过。以下代码供参考

Option Explicit

'Check其他的window是否有开启IME，前题是已取得该window的hwnd

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" _
        (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" _
        (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private hwnd5 As Long

Private Sub Command1_Click()
Dim hthr As Long
Dim pid As Long, hkb5 As Long
hthr = GetWindowThreadProcessId(hwnd5, pid) '取得hwnd5所在的threadId
hkb5 = GetKeyboardLayout(hthr) '取得该threadId的keyboardLayout
If ImmIsIME(hkb5) = 1 Then
   Debug.Print "IME is Open"
Else
   Debug.Print "Ime is Close"
End If
End Sub

Private Sub Form_Load()
‘Me.Show
Shell "c:\windows\notepad.exe", vbNormalFocus
hwnd5 = GetForegroundWindow()
End Sub

liu_kunlun

谢谢6楼，下来慢慢学习。