即効テクニック |
●詳細● 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