查看: 6  |  回复: 0
  VB6 代码管家-取某窗体屏幕坐标
楼主
发表于 2024年12月8日 22:22
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 Timer1_Timer()
	Dim h As Long, r As RECT
	h = FindWindow(vbNullString, "窗口标题")  '取该窗体的句柄
	GetWindowRect h, r
	Text1 = "左上角坐标(" & r.Left & "," & r.Top & ")"  '左上角坐标
	Text2 = "右下角坐标(" & r.Right & "," & r.Bottom & ")"  '右下角坐标
	Text3 = "窗口高" & r.Bottom - r.Top  '窗口高
	Text4 = "窗口宽" & r.Right - r.Left  '窗口宽
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com