Question

vb 如何获取一个窗口的坐标

vb 如何获取一个程序窗口（例如：酷狗） 在屏幕中的坐标

Answer 1

代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Form_Load()
Dim h As Long, r As RECT
h = FindWindow(vbNullString, "酷狗") '这里写上你的窗口标题，必须一字不差
GetWindowRect h, r
MsgBox "左上角坐标(" & r.Left & "," & r.Top & ")" & vbCrLf & "右下角坐标(" & r.Right & "," & r.Bottom & ")" & vbCrLf & "窗口高" & r.Bottom - r.Top & "窗口宽" & r.Right - r.Left
End
End Sub

Answer 2

先根据窗口标题 或者 类名 取得 该窗口 句柄

然后这个API
Declare Function GetWindowPlacement Lib "user32" Alias "GetWindowPlacement" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long

lpwndpl 包好该窗口位置信息

Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
字段表
字段 类型及说明
Length Long，这个结构的长度（size），必须是44
flags Long，以下的两个常数之一
WPF_SETMINPOSITION The ptMinPosition specifies the x,y location of the window when minimized.
WPF_RESTORETOMAXIMIZED The SW_SHOWMINIMIZED constant must be specified in the showCmd parameter. Indicates that the window should be maximized the next time it is restored.
showCmd Long，Visibility flags
ptMinPosition POINTAPI，The x,y location of the window when minimized.
ptMaxPosition POINTAPI，The x,y location of the window location when maximized.
rcNormalPosition RECT，The position and size of the window when it is restored (normal condition).

Answer 3

'获取窗体为"酷狗"的 屏幕坐标 声明部分
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
Dim LookhcWinForm As WINDOWPLACEMENT
'-----------------------------------------代码

Private Sub Form_Load()
GetWindowPlacement FindWindow(vbNullString, "酷狗"), LookhcWinForm

MsgBox "左=" & LookhcWinForm.rcNormalPosition.Left & vbCrLf & _
"右=" & LookhcWinForm.rcNormalPosition.Right & vbCrLf & _
"顶=" & LookhcWinForm.rcNormalPosition.Top & vbCrLf & _
"底=" & LookhcWinForm.rcNormalPosition.Bottom
End Sub

Answer 4

_xposition()=
_yposition()=

Answer 5

使用API。