\\\\\一个文本框在获得焦点后,如何自动打开我想要的输入法。\\\\

解决方案 »

  1.   

    \\\\一个文本框在获得焦点后,如何自动打开我想要的输入法。\\\\ 
      

  2.   

    回复贴子: 
    回复人: 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 '禁止中文输入
     
      

  3.   

    非常感谢,可我不知怎样加分。