用VBA能设定输入法状态吗?

zhz_7005

在一个窗体的列表框内能指定输入法的状态吗,如中文或英文输入法?请指教!多谢

cbtaja

使用API编写自定义函数，可设置输入法状态。这是我找到的一段代码，需要配合窗体控件的相关事件（比如列表框单击事件）应用

1. Option Explicit   
   
2. '* ************************************************************** *   
   
3. '*    程序名称：modIME.bas   
   
4. '*    程序功能：用API控件输入法状态   
   
5. '*    作者：lyserver   
   
6. '* ************************************************************** *   
   
7. Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long  
   
8. Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList As Long) As Long  
   
9. Private Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long  
   
10. Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal flags As Long) As Long  
    
11. Private Const KLF_SETFORPROCESS = &H100   
    
12.   
    
13. '打开或关闭中文输入法   
    
14. Public Sub SetImeMode(bMode As Boolean) 'True打开、False关闭   
    
15.     Dim i As Long  
    
16.     Dim hCurKB As Long  
    
17.     Dim hKB() As Long, KBCount As Long  
    
18.       
    
19.     hCurKB = GetKeyboardLayout(0) '获得当前输入法句柄   
    
20.     If CBool(ImmIsIME(hCurKB)) <> bMode Then  
    
21.         KBCount = GetKeyboardLayoutList(0, ByVal 0&)   
    
22.         ReDim hKB(KBCount - 1)   
    
23.         GetKeyboardLayoutList KBCount, hKB(0)   
    
24.         For i = 0 To KBCount - 1   
    
25.             If CBool(ImmIsIME(hKB(i))) = bMode Then  
    
26.                 ActivateKeyboardLayout hKB(i), KLF_SETFORPROCESS   
    
27.                 Exit For  
    
28.             End If  
    
29.         Next  
    
30.     End If  
    
31. End Sub  

复制代码

游乐缘

感谢分享，留名学习