组件位置跟随易语言模块源码

资源介绍：

调用windowsAPI实现组件跟随。

资源作者：

自学编程网

资源界面：

.版本 2

.子程序 添加需要位置跟随的控件, , 公开
.参数 控件句柄, 整数型
.参数 左边跟随控件句柄, 整数型
.参数 顶边跟随控件句柄, 整数型
.参数 右边跟随控件句柄, 整数型
.参数 底边跟随控件句柄, 整数型
.局部变量 控件信息, 控件信息
.局部变量 左边跟随控件信息, 控件信息
.局部变量 顶边跟随控件信息, 控件信息
.局部变量 右边跟随控件信息, 控件信息
.局部变量 底边跟随控件信息, 控件信息
.局部变量 需要跟随控件信息, 需要跟随控件信息
.局部变量 左边跟随, 跟随信息
.局部变量 顶边跟随, 跟随信息
.局部变量 右边跟随, 跟随信息
.局部变量 底边跟随, 跟随信息
.局部变量 控件左上角在客户区坐标, 控件坐标
.局部变量 宽度, 整数型
.局部变量 高度, 整数型

.如果 (控件句柄 ≠ 0)
    控件信息 ＝ 取控件信息 (控件句柄)
    控件左上角在客户区坐标.横坐标 ＝ 控件信息.左边
    控件左上角在客户区坐标.纵坐标 ＝ 控件信息.顶边
    宽度 ＝ 控件信息.右边 － 控件信息.左边
    高度 ＝ 控件信息.底边 － 控件信息.顶边
    屏幕到客户区_ (取父窗口_ (控件句柄), 控件左上角在客户区坐标)
    控件信息.左边 ＝ 控件左上角在客户区坐标.横坐标
    控件信息.顶边 ＝ 控件左上角在客户区坐标.纵坐标
    控件信息.右边 ＝ 控件信息.左边 ＋ 宽度
    控件信息.底边 ＝ 控件信息.顶边 ＋ 高度
    ' 本源码来自三叶资源网(www.sanye.cx)


.否则
    返回 ()
.如果结束

.如果 (左边跟随控件句柄 ≠ 0)
    左边跟随控件信息 ＝ 取控件信息 (左边跟随控件句柄)
    .如果 (左边跟随控件信息.控件句柄 ＝ 取父窗口_ (控件信息.控件句柄))
        左边跟随 ＝ 取父窗口跟随信息 (左边跟随控件信息)
        左边跟随.边距 ＝ 控件信息.左边
    .否则
        左边跟随.被跟随控件信息 ＝ 左边跟随控件信息
        左边跟随.边距 ＝ 控件信息.左边 － 左边跟随控件信息.右边
        左边跟随.是否跟随 ＝ 真
        左边跟随.是否包含 ＝ 假
    .如果结束

.否则
    左边跟随 ＝ 取不跟随信息 ()
.如果结束
' 本源码来自三叶资源网(www.sanye.cx)
.如果 (顶边跟随控件句柄 ≠ 0)
    顶边跟随控件信息 ＝ 取控件信息 (顶边跟随控件句柄)
    .如果 (顶边跟随控件信息.控件句柄 ＝ 取父窗口_ (控件信息.控件句柄))
        顶边跟随 ＝ 取父窗口跟随信息 (顶边跟随控件信息)
        顶边跟随.边距 ＝ 控件信息.顶边
    .否则
        顶边跟随.被跟随控件信息 ＝ 顶边跟随控件信息
        顶边跟随.边距 ＝ 控件信息.顶边 － 左边跟随控件信息.底边
        顶边跟随.是否跟随 ＝ 真
        顶边跟随.是否包含 ＝ 假

    .如果结束

.否则
    顶边跟随 ＝ 取不跟随信息 ()
.如果结束

.如果 (右边跟随控件句柄 ≠ 0)
    右边跟随控件信息 ＝ 取控件信息 (右边跟随控件句柄)
    .如果 (右边跟随控件信息.控件句柄 ＝ 取父窗口_ (控件信息.控件句柄))
        右边跟随 ＝ 取父窗口跟随信息 (右边跟随控件信息)
        右边跟随.边距 ＝ 右边跟随控件信息.宽度 － 宽度 － 控件信息.左边
    .否则
        右边跟随.被跟随控件信息 ＝ 右边跟随控件信息
        右边跟随.边距 ＝ 右边跟随控件信息.左边 － 控件信息.右边
        右边跟随.是否跟随 ＝ 真
        右边跟随.是否包含 ＝ 假
        ' 本源码来自三叶资源网(www.sanye.cx)
    .如果结束

.否则
    右边跟随 ＝ 取不跟随信息 ()
.如果结束

.如果 (底边跟随控件句柄 ≠ 0)
    底边跟随控件信息 ＝ 取控件信息 (底边跟随控件句柄)
    .如果 (底边跟随控件信息.控件句柄 ＝ 取父窗口_ (控件信息.控件句柄))
        底边跟随 ＝ 取父窗口跟随信息 (底边跟随控件信息)
        底边跟随.边距 ＝ 底边跟随控件信息.高度 － 控件信息.高度 － 控件信息.顶边
    .否则
        底边跟随.被跟随控件信息 ＝ 底边跟随控件信息
        底边跟随.边距 ＝ 底边跟随控件信息.顶边 － 控件信息.底边
        底边跟随.是否跟随 ＝ 真
        底边跟随.是否包含 ＝ 假
        ' 本源码来自三叶资源网(www.sanye.cx)
    .如果结束

.否则
    底边跟随 ＝ 取不跟随信息 ()
.如果结束

需要跟随控件信息.控件信息 ＝ 控件信息
需要跟随控件信息.左边跟随 ＝ 左边跟随
需要跟随控件信息.顶边跟随 ＝ 顶边跟随
需要跟随控件信息.右边跟随 ＝ 右边跟随
需要跟随控件信息.底边跟随 ＝ 底边跟随

加入成员 (集组_需要位置跟随的控件, 需要跟随控件信息)
' 本源码来自三叶资源网(www.sanye.cx)

资源下载：