IMEStatus (function)

Syntax IMEStatus[()]
Description Returns the current status of the input method editor.
Comments The IMEStatus function returns one of the following constants for Japanese locales:
Constant Value Description
ebIMENoOp 0 IME not installed.
ebIMEOn 1 IME on.
ebIMEOff 2 IME off.
ebIMEDisabled 3 disabled
ebIMEHiragana 4 Hiragana double-byte character.
ebIMEKatakanaDbl 5 Katakana double-byte characters.
ebIMEKatakanaSng 6 Katakana single-byte characters.
ebIMEAlphaDbl 7 Alphanumeric double-byte characters.
ebIMEAlphaSng 8 Alphanumeric single-byte characters.
For Chinese locales, one of the following constants are returned:
Constant Value Description
ebIMENoOp 0 IME not installed.
ebIMEOn 1 IME on.
ebIMEOff 2 IME off.
For Korean locales, this function returns a value with the first 5 bits having the following meaning:
Bit If not set (or 0) If set (or 1)
Bit 0 IME not installed IME installed
Bit 1 IME disabled IME enabled
Bit 2 English mode Hangeul mode
Bit 3 Banja mode (single-byte) Junja mode (double-byte)
Bit 4 Normal mode Hanja conversion mode
Note: You can test for the different bits using the And operator as follows:
a = IMEStatus() If a And 1 Then ... 'Test for bit 0 If a And 2 Then ... 'Test for bit 1 If a And 4 Then ... 'Test for bit 2 If a And 8 Then ... 'Test for bit 3 If a And 16 Then ... ’Test for bit 4
This function always returns 0 if no input method editor is installed.
Example

                           'This example retrieves the IMEStatus and displays the results.
                           Sub Main()
                             a = IMEStatus()
                             Select case a
                             Case 0
                               MsgBox "IME not installed."
                             Case 1
                               MsgBox "IME on."
                             Case 2
                               Msgbox "IME off."
                             End Select
                           End Sub
                        
See Also Constants (topic)