以前控制过自己程序的输入法位置,就用上面的比如: Option Explicit Private Type POINTAPI x As Long y As Long End TypePrivate Declare Function ImmGetContext Lib "imm32.dll" ( _ ByVal hwnd As Long _ ) As Long
Private Declare Function ImmSetStatusWindowPos Lib "imm32.dll" (ByVal hImc As Long, lpPoint As POINTAPI) As LongPrivate Sub Command1_Click() Dim hImc As Long Dim pt As POINTAPI Dim nSt As Long nSt = Text1.IME 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.SetFocusEnd Sub ,好像无法控制系统的ime的位置
Option Explicit
Private Type POINTAPI
x As Long
y As Long
End TypePrivate Declare Function ImmGetContext Lib "imm32.dll" ( _
ByVal hwnd As Long _
) As Long
Private Declare Function ImmSetStatusWindowPos Lib "imm32.dll" (ByVal hImc As Long, lpPoint As POINTAPI) As LongPrivate Sub Command1_Click()
Dim hImc As Long
Dim pt As POINTAPI
Dim nSt As Long nSt = Text1.IME
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.SetFocusEnd Sub
,好像无法控制系统的ime的位置