3

我正在无边框窗口上实现系统菜单(恢复、移动、大小...),并且我希望鼠标光标在选择大小或移动时移动到窗口的中心。

理想情况下在 VB 中,但 C# 也很好。

4

2 回答 2

2

您可以使用该SetCursorPos功能,例如:

Declare Function SetCursorPos& Lib "user32" (ByVal p As Point)

'...

dim p as point
p.x = 100
p.y = 200
SetCursorPos p
于 2010-02-15T21:55:17.543 回答
1

一些调整,它似乎工作:

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Int32, ByVal Y As Int32) As Int32

...

With Win

  Dim left As Int32 = CInt(.Left + .Width - CURSOR_OFFSET_MEDIUM)
  Dim top As Int32 = CInt(.Top + .Height / 2)

  SetCursorPos(left, top)

End With
于 2010-02-16T22:44:14.760 回答