如何获得窗口控件相对屏幕的位置

liangwh 2003-11-18 09:37:34
如何获得窗口上控件(包括MDI子窗口上的控件)相对屏幕的位置?

谢谢
...全文
46 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
海牛 2003-11-18
  • 打赏
  • 举报
回复
'在窗体中添加一个CommandButton控件
Option Explicit

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 tR As RECT

Call GetWindowRect(Me.Command1.hwnd, tR)
MsgBox tR.Left & " " & tR.Top
End Sub
mingtian2008 2003-11-18
  • 打赏
  • 举报
回复
up

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧