|
发表于 2012-6-5 10:22:15
|
显示全部楼层
上海市上海市
.版本 2
.子程序 取子窗口坐标句柄, 整数型, 公开, 窗口不能被遮挡
.参数 父窗口句柄, 整数型
.参数 横坐标, 整数型
.参数 纵坐标, 整数型
.参数 是否用户区, 逻辑型, 可空
.局部变量 坐标, rect
坐标 = 窗口取位置和大小 (父窗口句柄, 是否用户区)
横坐标 = 坐标.左边 + 横坐标
纵坐标 = 坐标.顶边 + 纵坐标
返回 (WindowFromPoint (横坐标, 纵坐标))
.版本 2
.子程序 窗口取位置和大小, rect, 公开
.参数 临时句柄, 整数型
.参数 是否用户区, 逻辑型, 可空, 真则取用户区大小
.局部变量 矩形, rect
.局部变量 坐标, 坐标
.判断开始 (是否用户区)
GetClientRect (临时句柄, 矩形)
坐标 = 窗口取用户区位置 (临时句柄)
矩形.左边 = 坐标.横
矩形.顶边 = 坐标.纵
.默认
GetWindowRect (临时句柄, 矩形)
.判断结束
矩形.宽度 = 矩形.宽度 - 矩形.左边
矩形.高度 = 矩形.高度 - 矩形.顶边
返回 (矩形)
|
|