第一种方法:Private Sub Form_Load() Text1.IMEMode = 1 End Sub 补充:
用VB读取和控制Windows的中文输入法 在Windows中我们可以用“Ctrl+Shift”键来调入或切换中文输入法,但是这样做每次都是使位于输入法列表顶端的那个输入法首先被调用。通常我们都要连续按好几次“Ctrl+Shift”才能将习惯的输入法调出。我编制了一段小程序,通过它可以把任意一个输入法放在输入法列表的顶端。 它的原理是:使用LoadKeyboardLayout函数可以改变输入法的顺序,只要在第一个参数中传递目标输入法的KeyboardlayoutName,第二个参数用KLF_REORDER就可以了。 例如,aa = LoadKeyboardLayout(″00000409″, KLF_REORDER) 使英文变成第一。那怎样获得KeyboardlayoutName呢?因为使用GetKeyboardLayoutname可以返回当前输入法的KeyboardlayoutName,所以我们可以先用GetKeyboardLayoutList 函数来取得所有输入法,再用activateKeyboardlayout()函数设置当前输入法,最后就可以得到它的KeyboardlayoutName了。具体步骤如下: 打开VB后选择标准的EXE文档,在Form1上添加一个Combobox和一个command控件,输入以下程序。 ′以下的API函数用于输入法操作 Private Declare Function GetKeyboardLayoutList Lib ″user32″ _ (ByVal nBuff As Long, lpList As Long) As Long Private Declare Function ImmGetDescription Lib ″imm32.dll″ _ Alias ″ImmGetDescriptionA″ (ByVal hkl As Long, _ ByVal lpsz As String, ByVal uBufLen As Long) As Long Private Declare Function ImmIsIME Lib ″imm32.dll″ (ByVal hkl As Long) As Long Private Declare Function ActivateKeyboardLayout Lib ″user32″ _ (ByVal hkl As Long, ByVal flags As Long) As Long Private Declare Function GetKeyboardLayout Lib ″user32″ (ByVal dwLayout As Long)As Long Private Declare Function GetKeyboardLayoutName Lib ″user32″ Alias _ ″GetKeyboardLayoutNameA″ (ByVal pwszKLID As String) As Long Private Declare Function LoadKeyboardLayout Lib ″user32″ Alias ″LoadKeyboardLayoutA″ _ (ByVal pwszKLID As String, ByVal flags As Long) As Long Const KLF_REORDER = &H8 Private NoOfKBDLayout As Long, i As Long, j As Long Private hKB(24) As Long, BuffLen As Long Private Buff As String Private RetStr As String Private RetCount As Long Private kln As String Private Sub Command1_Click() If Combo1.ListIndex = -1 Then′如果用户尚未选择输入法,显示出错信息 MsgBox ″请先选择一个输入法″ Exit Sub End If ′改变输入法顺序 kln = String(8, 0) ActivateKeyboardLayout hKB(Combo1.ListIndex), 0 res = GetKeyboardLayoutName(kln) res = LoadKeyboardLayout(kln, KLF_REORDER) ActivateKeyboardLayout hCurKBDLayout, 0 End Sub Private Sub Form_Load() Buff = String(255, 0) hCurKBDLayout = GetKeyboardLayout(0) ′取得目前的输入法 NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0)) ′取得所有输入法 ′ReDim layoutlist(NoOfKBDLayout) As String For i = 1 To NoOfKBDLayout If ImmIsIME(hKB(i - 1)) = 1 Then ′中文输入法 BuffLen = 255 RetCount = ImmGetDescription(hKB(i - 1), Buff, BuffLen) RetStr = Left(Buff, RetCount) Combo1.AddItem RetStr Else RetStr = ″English (American)″ ′英文输入法 Combo1.AddItem RetStr End If Next ActivateKeyboardLayout hCurKBDLayout, 0 ′恢复原来的输入法 End Sub 运行后,在combobox中选择目标输入法,按下command即可。。
试试: public sub txt_gotfocus() sendkeys "^ " end sub
'IME有效无效设置 ImmAssociateContext Text1.hwnd, flag (0---IME OFF,1---IME ONE) 'IME改变 ret = ImmGetContext(Text1.hwnd) ImmSetOpenStatus ret, 1 ImmSetConversionStatus ret, Flag, IME_SMODE_AUTOMATIC (Flag试一下就知道啦) 'IME恢复 ret = ImmGetContext(Text1.hwnd) ImmSetOpenStatus ret, 0 ImmReleaseContext Text1.hwnd, ret
Text1.IMEMode = 1
End Sub
补充:
用VB读取和控制Windows的中文输入法
在Windows中我们可以用“Ctrl+Shift”键来调入或切换中文输入法,但是这样做每次都是使位于输入法列表顶端的那个输入法首先被调用。通常我们都要连续按好几次“Ctrl+Shift”才能将习惯的输入法调出。我编制了一段小程序,通过它可以把任意一个输入法放在输入法列表的顶端。
它的原理是:使用LoadKeyboardLayout函数可以改变输入法的顺序,只要在第一个参数中传递目标输入法的KeyboardlayoutName,第二个参数用KLF_REORDER就可以了。
例如,aa = LoadKeyboardLayout(″00000409″, KLF_REORDER) 使英文变成第一。那怎样获得KeyboardlayoutName呢?因为使用GetKeyboardLayoutname可以返回当前输入法的KeyboardlayoutName,所以我们可以先用GetKeyboardLayoutList 函数来取得所有输入法,再用activateKeyboardlayout()函数设置当前输入法,最后就可以得到它的KeyboardlayoutName了。具体步骤如下:
打开VB后选择标准的EXE文档,在Form1上添加一个Combobox和一个command控件,输入以下程序。
′以下的API函数用于输入法操作
Private Declare Function GetKeyboardLayoutList Lib ″user32″ _
(ByVal nBuff As Long, lpList As Long) As Long
Private Declare Function ImmGetDescription Lib ″imm32.dll″ _
Alias ″ImmGetDescriptionA″ (ByVal hkl As Long, _
ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Declare Function ImmIsIME Lib ″imm32.dll″ (ByVal hkl As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib ″user32″ _
(ByVal hkl As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib ″user32″ (ByVal dwLayout As Long)As Long
Private Declare Function GetKeyboardLayoutName Lib ″user32″ Alias _
″GetKeyboardLayoutNameA″ (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib ″user32″ Alias ″LoadKeyboardLayoutA″ _
(ByVal pwszKLID As String, ByVal flags As Long) As Long
Const KLF_REORDER = &H8
Private NoOfKBDLayout As Long, i As Long, j As Long
Private hKB(24) As Long, BuffLen As Long
Private Buff As String
Private RetStr As String
Private RetCount As Long
Private kln As String
Private Sub Command1_Click()
If Combo1.ListIndex = -1 Then′如果用户尚未选择输入法,显示出错信息
MsgBox ″请先选择一个输入法″
Exit Sub
End If
′改变输入法顺序
kln = String(8, 0)
ActivateKeyboardLayout hKB(Combo1.ListIndex), 0
res = GetKeyboardLayoutName(kln)
res = LoadKeyboardLayout(kln, KLF_REORDER)
ActivateKeyboardLayout hCurKBDLayout, 0
End Sub
Private Sub Form_Load()
Buff = String(255, 0)
hCurKBDLayout = GetKeyboardLayout(0) ′取得目前的输入法
NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0)) ′取得所有输入法
′ReDim layoutlist(NoOfKBDLayout) As String
For i = 1 To NoOfKBDLayout
If ImmIsIME(hKB(i - 1)) = 1 Then ′中文输入法
BuffLen = 255
RetCount = ImmGetDescription(hKB(i - 1), Buff, BuffLen)
RetStr = Left(Buff, RetCount)
Combo1.AddItem RetStr
Else
RetStr = ″English (American)″ ′英文输入法
Combo1.AddItem RetStr
End If
Next
ActivateKeyboardLayout hCurKBDLayout, 0 ′恢复原来的输入法
End Sub
运行后,在combobox中选择目标输入法,按下command即可。。
试试:
public sub txt_gotfocus()
sendkeys "^ "
end sub
ImmAssociateContext Text1.hwnd, flag (0---IME OFF,1---IME ONE)
'IME改变
ret = ImmGetContext(Text1.hwnd)
ImmSetOpenStatus ret, 1
ImmSetConversionStatus ret, Flag, IME_SMODE_AUTOMATIC (Flag试一下就知道啦)
'IME恢复
ret = ImmGetContext(Text1.hwnd)
ImmSetOpenStatus ret, 0
ImmReleaseContext Text1.hwnd, ret
Text1.IMEMode=0(预定值)
Text1.IMEMode=l(切换为中文输 入)
Text1.IMEMde=2(切换为英文输 入、
Text1.IMEMde=3(关闭中文输入 的功能,也就是只能做英文输入。)
在编辑的时候可以设置IMEMode=n
但是用代码设置时却没有这个属性F2也看不到这个属性
很奇怪啊~