文本框不是有一个IMEMODE属性吗,1-ON 2-OFF
你看看吧

解决方案 »

  1.   

    第一种方法: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即可。。
     
       
     
      
     
      

  2.   


    试试:
    public sub txt_gotfocus()
       sendkeys "^ "
    end sub
      

  3.   

    '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
      

  4.   

    VB5.0在可以输入文字的地 方(如TextBox,ListBox,ComBox... 等)有一个输入法切换属性IMEMode。我 们可以先用ImeStatus函数来检测当前的 输入状态,并用IMEMode来控制其输入 状态。 下面是IMEMode的属性值。 
    Text1.IMEMode=0(预定值) 
    Text1.IMEMode=l(切换为中文输 入) 
    Text1.IMEMde=2(切换为英文输 入、 
    Text1.IMEMde=3(关闭中文输入 的功能,也就是只能做英文输入。) 
      

  5.   

    lihonggen0(李洪根,用VB,标准答案来了) 我的英文版VB
    在编辑的时候可以设置IMEMode=n
    但是用代码设置时却没有这个属性F2也看不到这个属性
    很奇怪啊~