サンプル作ってみました。
参考になれば幸いです。
#適切なコントロールを置いてね！
' 標準モジュール
Option Explicit
Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function ImmGetContext Lib "imm32.dll" ( _
ByVal hwnd As Long _
) As Long
Public Declare Function ImmSetStatusWindowPos Lib "imm32.dll" ( _
ByVal hImc As Long, _
lpPoint As POINTAPI _
) As Long
' フォーム
Option Explicit
Private Sub cmdRun_Click()
Dim hImc As Long
Dim pt As POINTAPI
Dim nSt As Long
nSt = Text1.IMEMode
Text1.IMEMode = 0
Call Text1.SetFocus
hImc = ImmGetContext(Text1.hwnd)
pt.x = 0
pt.y = 0
Call ImmSetStatusWindowPos(hImc, pt)
Text1.IMEMode = nSt
Call Text1.SetFocus
End Sub
|