IMEStatus関数

構文
IMEStatus
引数はありません。

解説
IMEの現在の状況を示す整数値を返します。
IMEStatus関数の戻り値は次のとおりです。

定数	値	内容
vbIMEModeNoControl	0	IMEはインストールされていません
vbIMEModeOn	1	IMEはオンの状態です
vbIMEModeOff	2	IMEはオフの状態です
vbIMEModeDisable	3	IMEは利用禁止状態です
vbIMEModeHiragana	4	IMEは全角ひらがな入力モードです
vbIMEModeKatakana	5	IMEは全角カタカナ入力モードです
vbIMEModeKatakanaHalf	6	IMEは半角カタカナ入力モードです
vbIMEModeAlphaFull	7	IMEは全角英数入力モードです
vbIMEModeAlpha	8	IMEは半角英数入力モードです

サンプル
次の例は、現在のIMEの状況を表示します。

Sub Sample()
    Dim msg As String
    Select Case IMEStatus
    Case vbIMEModeNoControl
        msg = "IMEはインストールされていません"
    Case vbIMEModeOn
        msg = "IMEはオンの状態です"
    Case vbIMEModeOff
        msg = "IMEはオフの状態です"
    Case vbIMEModeDisable
        msg = "IMEは利用禁止状態です"
    Case vbIMEModeHiragana
        msg = "IMEは全角ひらがな入力モードです"
    Case vbIMEModeKatakana
        msg = "IMEは全角カタカナ入力モードです"
    Case vbIMEModeKatakanaHalf
        msg = "IMEは半角カタカナ入力モードです"
    Case vbIMEModeAlphaFull
        msg = "IMEは全角英数入力モードです"
    Case vbIMEModeAlpha
        msg = "IMEは半角英数入力モードです"
    End Select
    MsgBox msg
End Sub