在WINCE中实现日语输入法自动切换的方法

最新推荐文章于 2010-07-27 19:34:00 发布

转载最新推荐文章于 2010-07-27 19:34:00 发布 · 679 阅读

标签

#输入法 #wince #integer #byte #function

#api

收录于

Windows CE专题专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用API函数在.NET框架下实现日语假名输入法键盘显示与隐藏的方法。通过调用SipShowIM函数控制输入法状态，并通过SetIMStatus方法模拟按键事件切换到日语输入法。

一,使用API函数实现:

<DllImport("coredll", CharSet:=CharSet.Auto, CallingConvention:=3)> _
Public Shared Function SipShowIM(ByVal flags As Integer) As Boolean
End Function

    <DllImport("coredll.dll", CharSet:=CharSet.Auto, CallingConvention:=1)> _
    Public Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    End Sub

Public Shared Sub ShowHiraganaIMKeyBoard()
        SipShowIM(1)
        'ひらがなシステムキーボーを開ける
        If blnHiraganaIMKeyboardFlag = False Then
            blnHiraganaIMKeyboardFlag = True
            SetIMStatus()
        End If
    End Sub

Public Shared Sub CloseHiraganaIMKeyBoard()
SipShowIM(0)
End Sub

'可重复调用方法SetIMStatus()来实现输入法的切换.

Private Shared Sub SetIMStatus()
        Dim KEYEVENTF_SILENT As Byte = &H4
        Dim KEYEVENTF_KEYUP As Byte = &H2
        Dim KEYEVENTF_KEYDOWN As Byte = &H0
        Dim VK_LMENU As Byte = 164
        Dim VK_KANJI As Byte = 25

        keybd_event(VK_LMENU, 0, KEYEVENTF_SILENT, 0)
        keybd_event(VK_KANJI, 0, KEYEVENTF_SILENT, 0)
        keybd_event(VK_KANJI, 0, KEYEVENTF_KEYUP, 0)
        keybd_event(VK_LMENU, 0, KEYEVENTF_KEYUP, 0)
    End Sub

二,使用SIP函数实现:

摸索中...