Visual Basic Tips

IMEのON,OFF(API)

説明いらないですね。

'IME ON
Private Sub CmdIMEOn_Click()
　　Dim hIMC As Long

　　hIMC = ImmGetContext(Me.hwnd)
　　Call ImmSetOpenStatus(hIMC, 1)
　　Call ImmReleaseContext(Me.hwnd, hIMC)
End Sub

'IME OFF
Private Sub CmdIMEOff_Click()
　　Dim hIMC As Long

　　hIMC = ImmGetContext(Me.hwnd)
　　Call ImmSetOpenStatus(hIMC, 0)
　　Call ImmReleaseContext(Me.hwnd, hIMC)
End Sub


'----------------------------------------------------------
'
'----------------------------------------------------------
Public Declare Function ImmGetContext Lib "imm32.dll" (ByVal hwnd As Long) As Long
Public Declare Function ImmSetOpenStatus Lib "imm32.dll" (ByVal hIMC As Long, ByVal b As Long) As Long
Public Declare Function ImmReleaseContext Lib "imm32.dll" (ByVal hwnd As Long, ByVal hIMC As Long) As Long



DownLoad vbtips075.lzh 2KB (VB6.0)