テキストボックスのIME入力モードを変更する

テキストボックスの日本語入力モードの変更は、IMEModeプロパティで行います。
設定には下記の種類があります。

定数 内容
0 fmIMEModeNoControl IMEのモードを変更しない
1 fmIMEModeOn IMEをONにする
2 fmIMEModeOff IMEをOFFにする
3 fmIMEModeDisable IMEをOFFにする。ONにできない
4 fmIMEModeHiragana 全角ひらがな
5 fmIMEModeKatakana 全角カタカナ
6 fmIMEModeKatakanaHalf 半角カタカナ
7 fmIMEModeAlphaFull 全角英数
8 fmIMEModeAlpha 半角英数

Excelコントロール Tipsメニューに戻る

スポンサーリンク



ユーザーフォーム画面

■ 全角ひらがなを選択
日本語入力モードを全角ひらがなにしたテキストボックス

■ IMEオフを選択
日本語入力モードをオフにしたテキストボックス

スポンサーリンク



実行コード

Option Explicit

Private Sub OptionButton1_Click()
    If OptionButton1.Value Then
        '0
        Label1.Caption = "0 : IMEのモードを変更しない"
        TextBox1.IMEMode = fmIMEModeNoControl
    End If
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value Then
        '1
        Label1.Caption = "1 : IMEをONにする"
        TextBox1.IMEMode = fmIMEModeOn
    End If
End Sub

Private Sub OptionButton3_Click()
    If OptionButton3.Value Then
        '2
        Label1.Caption = "2 : IMEをOFFにする"
        TextBox1.IMEMode = fmIMEModeOff
    End If
End Sub

Private Sub OptionButton4_Click()
    If OptionButton4.Value Then
        '3
        Label1.Caption = "3 : IMEをOFFにする。ONにできない"
        TextBox1.IMEMode = fmIMEModeDisable
    End If
End Sub

Private Sub OptionButton5_Click()
    If OptionButton5.Value Then
        '7
        Label1.Caption = "7 : 全角英数"
        TextBox1.IMEMode = fmIMEModeAlphaFull
    End If
End Sub

Private Sub OptionButton6_Click()
    If OptionButton6.Value Then
        '4
        Label1.Caption = "4 : 全角ひらがな"
        TextBox1.IMEMode = fmIMEModeHiragana
    End If
End Sub

Private Sub OptionButton7_Click()
    If OptionButton7.Value Then
        '5
        Label1.Caption = "5 : 全角カタカナ"
        TextBox1.IMEMode = fmIMEModeKatakana
    End If
End Sub

Private Sub OptionButton8_Click()
    If OptionButton8.Value Then
        '6
        Label1.Caption = "6 : 半角カタカナ"
        TextBox1.IMEMode = fmIMEModeKatakanaHalf
    End If
End Sub

Private Sub OptionButton9_Click()
    If OptionButton9.Value Then
        '8
        Label1.Caption = "8 : 半角英数"
        TextBox1.IMEMode = fmIMEModeAlpha
    End If
End Sub

スポンサーリンク





Excelコントロール Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved