外部窗口操作

改名卡

求能修改窗口顶边左边宽度高度的源码

易团俊

.版本 2

.子程序 窗口_移动, , 公开, 移动指定窗口(无返回值)
.参数 窗口句柄, 整数型, , 欲移动窗口的句柄
.参数 新左边, 整数型, 可空, 可空:原左边不变
.参数 新顶边, 整数型, 可空, 可空:原顶边不变
.参数 新宽度, 整数型, 可空, 可空:原宽度不变
.参数 新高度, 整数型, 可空, 可空:原高度不变
.局部变量 位置大小, 矩形坐标

API_取窗口矩形 (窗口句柄, 位置大小)
.如果真 (是否为空 (新左边))
    新左边 ＝ 位置大小.矩形左边
.如果真结束
.如果真 (是否为空 (新顶边))
    新顶边 ＝ 位置大小.矩形顶边
.如果真结束
.如果真 (是否为空 (新宽度))
    新宽度 ＝ 位置大小.矩形右边 － 位置大小.矩形左边
.如果真结束
.如果真 (是否为空 (新高度))
    新高度 ＝ 位置大小.矩形底边 － 位置大小.矩形顶边
.如果真结束
API_移动窗口 (窗口句柄, 新左边, 新顶边, 新宽度, 新高度, 1)

.版本 2

.DLL命令 API_取窗口矩形, 整数型, "User32", "GetWindowRect"
    .参数 句柄, 整数型
    .参数 大小, 矩形坐标, 传址

.版本 2

.DLL命令 API_移动窗口, 整数型, "User32", "MoveWindow"
    .参数 窗口句柄, 整数型
    .参数 顶边, 整数型
    .参数 左边, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 是否重画, 整数型
.版本 2

.数据类型 矩形坐标, 公开
    .成员 矩形左边, 整数型
    .成员 矩形顶边, 整数型
    .成员 矩形右边, 整数型
    .成员 矩形底边, 整数型

千年

.子程序 窗口_置位置和大小, 逻辑型, 公开, 修改窗口的位置和大小；
.参数 窗口句柄, 整数型, , 欲改变位置和大小的窗口句柄
.参数 顶边位置, 整数型, 可空, 窗口新的顶边位置，留空不变；
.参数 左边位置, 整数型, 可空, 窗口新的左边位置，留空不变；
.参数 新高度, 整数型, 可空, 窗口的高宽度，留空不变；
.参数 新宽度, 整数型, 可空, 窗口的新宽度，留空不变；


精易模块:窗口_置位置和大小()

微凉

千年 发表于 2012-1-10 20:54
.子程序 窗口_置位置和大小, 逻辑型, 公开, 修改窗口的位置和大小；
.参数 窗口句柄, 整数型, , 欲改变位置 ...

和小孩过不去,对不起自己哦