求助，能不能获取窗口的位置？并跟随？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

https://www.cnblogs.com/lefour/p/5464111.html

是这个吗？

窗口跟随吸附http://www.codesc.net/tech/3405.shtml

这个可以获取窗口的坐标吗？

https://zhidao.baidu.com/question/919821440279377859.html

或者是这个？

https://zhidao.baidu.com/question/573177526.html

'在窗体上画一个Timer控件,设置其Interval属性为100
'把代码复制到Form1的代码窗口中

'获得活动窗口句柄的API
Private Declare Function GetForegroundWindow Lib "user32" () As Long
'获得窗口区域结构的API
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, wndRect As RECT) As Long

Private Type RECT '自定义区域结构类型
x As Long
y As Long
Right As Long
Bottom As Long
End Type

Dim ActiveWindowRECT As RECT '用於保存活动窗口区域的结构
Dim ActiveWindowHwnd As Long '活动窗口的句柄

Private Sub Timer1_Timer()
ActiveWindowHwnd = GetForegroundWindow '获得活动窗口的句柄
GetWindowRect ActiveWindowHwnd, ActiveWindowRECT '获得活动窗口的区域并保存在 ActiveWindowRECT 变量中
'在窗口上输出信息
Me.Cls
Print "活动窗口的坐标是(" & ActiveWindowRECT.x & "," & ActiveWindowRECT.y & ")"

End Sub

这个不懂，我执行提示关键字作为标识无效

试了几下，GetWindowRect 都无法获取正确的值，不知道什么原因，不玩了。可以自己试试

全局代码

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Public Structure myRECT '自定义区域结构类型

Public Left As Integer

Public Top As Integer

Public Right As Integer

Public Bottom As Integer

End Structure

Public ActiveWindowRECT As myRECT '用於保存活动窗口区域的结构

Public ActiveWindowHwnd As Long '活动窗口的句柄

Public Declare Function GetForegroundWindow Lib "user32" () As Long

Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, ByRef wndRect As myRECT) As Boolean

调用测试

Dim ret = FindWindow(vbNullString, "命令窗口")

Output.Show(ret)

ActiveWindowHwnd = GetForegroundWindow

Output.Show(ActiveWindowHwnd )

Dim aa As new myRECT

Dim lng As Boolean = GetWindowRect(ret, aa)

Output.Show(lng)

Output.Show("活动窗口的坐标是(" & aa.left & "," & aa.Top & "," & aa.Right & "," & aa.Bottom & ")")

lng = GetWindowRect(ActiveWindowHwnd , ActiveWindowRECT )

Output.Show(lng)

Output.Show("活动窗口的坐标是(" & ActiveWindowRECT .left & "," & ActiveWindowRECT .Top & "," & ActiveWindowRECT .Right & "," & ActiveWindowRECT .Bottom & ")")

主题：求助，能不能获取窗口的位置？并跟随？