構文
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