VB用API控制输入法状态

最新推荐文章于 2017-04-06 23:04:29 发布

miaozk2006

最新推荐文章于 2017-04-06 23:04:29 发布

阅读量1k

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82417125

版权

在VB中，某些控件具有输入焦点，却没有IMEMode属性，比如RichTextBox，为了方便在这些控件中控制输入法状态，俺编写了这个函数，代码如下：

代码如下：

Option Explicit
'* ************************************************************** *
'*    程序名称：modIME.bas
'*    程序功能：用API控件输入法状态
'*    作者：lyserver
'*    联系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList 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 Const KLF_SETFORPROCESS = &H100

'打开或关闭中文输入法
Public Sub SetImeMode(bMode As Boolean) 'True打开、False关闭
    Dim i As Long
    Dim hCurKB As Long
    Dim hKB() As Long, KBCount As Long

    hCurKB = GetKeyboardLayout(0) '获得当前输入法句柄
    If CBool(ImmIsIME(hCurKB)) <> bMode Then
        KBCount = GetKeyboardLayoutList(0, ByVal 0&)
        ReDim hKB(KBCount - 1)
        GetKeyboardLayoutList KBCount, hKB(0)
        For i = 0 To KBCount - 1
            If CBool(ImmIsIME(hKB(i))) = bMode Then
                ActivateKeyboardLayout hKB(i), KLF_SETFORPROCESS
                Exit For
            End If
        Next
    End If
End Sub

摘自：用API控制输入法状态

★VB部分相关文章推荐：★

※VB WindowsMediaPlayer 播放

※vb中WindowsMediaPlayer的常用属性和方法

※

最低0.47元/天解锁文章

miaozk2006

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
VB用API控制输入法状态

在VB中，某些控件具有输入焦点，却没有IMEMode属性，比如RichTextBox，为了方便在这些控件中控制输入法状态，俺编写了这个函数，代码如下：代码如下： Option Explicit'* ************************************************************** *'* 程序名称：modIME.bas'* ...
复制链接

扫一扫