例: IMESetMode

次の例では、ユーザーがカーソルをフィールド内に移動すると、IME が自動的に起動されてひらがな入力モードになります。ユーザーがフィールドの外へカーソルを移動すると、IME は元の状態に戻ります。

Public InitIMEMode As Integer

Sub Entering ( Source As Field )
    InitIMEMode = IMEStatus
    If InitIMEMode <> IME_HIRAGANA Then
        IMESetMode ( IME_HIRAGANA )
    End If 
End Sub
Sub Exiting ( Source As Field )
    If InitIMEMode <> IMEStatus Then
        IMESetMode ( InitIMEMode )
    End If
End Sub