下面的例子调用智能ABC输入法
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Const KLF_ACTIVATE = &H1
Private Sub Command1_Click()
Dim item As String
item = "E0040804"
Dim ret As Long
ret = LoadKeyboardLayout(item, KLF_ACTIVATE)
End Sub
如果让item="00000409"就是调用英文输入法
因为我的计算机上未装 五笔 所以不知item应为什么
不过你可以到注册表中查询
在\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control and Keyboard Layouts中找
另外查查ActivateKeyboardLayout的用法!自己多试一试,试出来别忘了给分!
有问题可以zhu999@263.net