APIを使用してIMEモードを制御する

 



'標準モジュール内

Option Explicit

'iMEの状態を制御する
Public Declare Function ImmAssociateContext Lib "imm32.dll" (ByVal hwnd As Long, ByVal himc As Long) As Long

'IMEモード定数
Public Const IME_CMODE_ALPHANUMERIC = &H0
Public Const IME_CMODE_CHARCODE = &H20
Public Const IME_CMODE_KATAKANA = &H2 ' only effect under IME_CMODE_NATIVE
Public Const IME_CMODE_ROMAN = &H10


'
'対象コントロールのGotFocusイベントに記述する
Private Sub Text1_GotFocus()
       Call ImmAssociateContext(Me.Text1.hwnd, IME_CMODE_ALPHANUMERIC)
End Sub


トップページに戻る

Tips一覧に戻る