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