回复贴子: 回复人: skydg(飞龙) (2001-10-29 21:25:06) 得20分 Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long Public Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long Public Declare Function ImmSimulateHotKey Lib "imm32.dll" (ByVal hwnd As Long, ByVal dw As Long) As LongConst IME_CHOTKEY_IME_NONIME_TOGGLE = &H10 hkb = GetKeyboardLayout(0) '取得目前Thread的Keyboard Layout If ImmIsIME(hkb) = 0 Then '代表不是中文输入 ImmSimulateHotKey txtInput(Index).hwnd,IME_CHOTKEY_IME_NONIME_TOGGLE '模拟按Strl-Space End Ifhkb = GetKeyboardLayout(0) '取得目前Thread的Keyboard Layout If ImmIsIME(hkb) = 1 Then '代表是中文输入 ImmSimulateHotKey txtInput(Index).hwnd, IME_CHOTKEY_IME_NONIME_TOGGLE '模拟按Strl-Space End If 回复人: skydg(飞龙) (2001-10-29 21:26:01) 得0分 TextBox 中英文输入方法切换IMEMode 属性可以方便地控制输入方法: Text1.IMEMode = 0 '初始值 Text1.IMEMode = 1 '中文输入 Text1.IMEMode = 2 '英文输入 Text1.IMEMode = 3 '禁止中文输入
回复人: skydg(飞龙) (2001-10-29 21:25:06) 得20分
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Public Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long
Public Declare Function ImmSimulateHotKey Lib "imm32.dll" (ByVal hwnd As Long, ByVal dw As Long) As LongConst IME_CHOTKEY_IME_NONIME_TOGGLE = &H10 hkb = GetKeyboardLayout(0) '取得目前Thread的Keyboard Layout
If ImmIsIME(hkb) = 0 Then '代表不是中文输入
ImmSimulateHotKey txtInput(Index).hwnd,IME_CHOTKEY_IME_NONIME_TOGGLE '模拟按Strl-Space
End Ifhkb = GetKeyboardLayout(0) '取得目前Thread的Keyboard Layout
If ImmIsIME(hkb) = 1 Then '代表是中文输入
ImmSimulateHotKey txtInput(Index).hwnd, IME_CHOTKEY_IME_NONIME_TOGGLE '模拟按Strl-Space
End If
回复人: skydg(飞龙) (2001-10-29 21:26:01) 得0分
TextBox 中英文输入方法切换IMEMode 属性可以方便地控制输入方法:
Text1.IMEMode = 0 '初始值
Text1.IMEMode = 1 '中文输入
Text1.IMEMode = 2 '英文输入
Text1.IMEMode = 3 '禁止中文输入