Visual Basic Tips

IMEの状態取得(API)

説明いらないですね。

Private Sub Form_Load()
　　Dim hIMC As Long
　　Dim lngRet As Long

　　hIMC = ImmGetContext(Me.hwnd)
　　lngRet = ImmGetOpenStatus(hIMC)
　　Call ImmReleaseContext(Me.hwnd, hIMC)

　　Select Case lngRet
　　　　Case 0: MsgBox "OFF"
　　　　Case 1: MsgBox "ON"
　　End Select
End Sub


'----------------------------------------------------------
'
'----------------------------------------------------------
Public Declare Function ImmGetContext Lib "imm32.dll" (ByVal hwnd As Long) As Long
Public Declare Function ImmGetOpenStatus Lib "imm32.dll" (ByVal himc As Long) As Long
Public Declare Function ImmReleaseContext Lib "imm32.dll" (ByVal hwnd As Long, ByVal himc As Long) As Long


DownLoad vbtips076.lzh 2KB (VB6.0)