VBからIMEパッドを呼び出す方法教えてください

質問

VBのプログラム中で任意のタイミングでIMEパッドを表示したり消したりしたいのです。
よろしくお願いします。

回答No.1

baka · ベストアンサー

On / Off でしたら ImmSetOpenStatus 関数で行えます。次はサンプルです。

Option Explicit

Private Declare Function ImmGetContext Lib "imm32.dll" (ByVal hWnd As Long) As Long
Private Declare Function ImmSetOpenStatus Lib "imm32.dll" (ByVal hIMC As Long, ByVal fOpen As Long) As Long
Private Declare Function ImmReleaseContext Lib "imm32.dll" (ByVal hWnd As Long, ByVal hIMC As Long) As Long

Private Enum IMEModeConstants
IMEModeOff = 0
IMEModeOn = 1
End Enum

Private Sub Command1_Click()

SetIMEMode IMEModeOn

End Sub

Private Sub Command2_Click()

SetIMEMode IMEModeOff

End Sub

Private Sub SetIMEMode(lngMode As IMEModeConstants)

Dim lngIMC As Long

lngIMC = ImmGetContext(hWnd)
ImmSetOpenStatus lngIMC, lngMode
ImmReleaseContext hWnd, lngIMC

End Sub

お礼

遅くなってしまいましたが、目的を達成することができました。
ありがとうございました！