テキストボックスの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