●詳細●
IMEModeプロパティを使って、テキストボックスのIMEモードを設定することも取得することも可能です。
サンプルでは、フォームに配置されたテキストボックスのIMEモードの設定をメッセージボックスに表示しています。
●準備●
フォームにテキストボックス「テキスト1」を配置します。
コマンドボタン「コマンド1」も配置して、クリック時のイベントにサンプルのイベントプロシージャを作成します。
●サンプル●
Private Sub コマンド1_Click()
Dim myIME As String
myIME = "テキストボックス「テキスト1」のIME入力モード＝"
Select Case テキスト1.IMEMode
Case 0
myIME = myIME & "コントロールなし"
Case 1
myIME = myIME & "オン"
Case 2
myIME = myIME & "オフ"
Case 3
myIME = myIME & "使用不可"
Case 4
myIME = myIME & "ひらがな"
Case 5
myIME = myIME & "全角カタカナ"
Case 6
myIME = myIME & "半角カタカナ"
Case 7
myIME = myIME & "全角英数"
Case 8
myIME = myIME & "半角英数"
End Select
MsgBox myIME
End Sub
●補足説明●
次のステートメントで、IMEModeプロパティを設定します。
例：IME入力モードをオンにします。
テキスト1.IMEMode = acImeModeOn
例：全角ひらがなを指定します。
テキスト1.IMEMode = acImeModeHiragana
