查看完整版本: [-- 易语言无边框窗口发送消息  控制窗口大小 --]

APlayer 开发者论坛 -> APlayer 讨论区 -> 易语言无边框窗口发送消息  控制窗口大小 [打印本页] 登录 -> 注册 -> 回复主题 -> 发表主题

oloooo 2017-01-10 20:15

易语言无边框窗口发送消息  控制窗口大小


.版本 2

.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 x, 整数型
.参数 y, 整数型
.参数 u, 整数型
.局部变量 l, 整数型, 静态, , 鼠标指针判断变量

.判断开始 (_启动窗口.宽度 > 400 且 _启动窗口.高度 > 200)
    Tps = 1
    .判断开始 (x < 4 且 y < 取用户区高度 () - 6 且 y > 6)
        l = 1
        .判断开始 (l = 1)
            _启动窗口.发送信息 (274, 61441, 0)  ' 左边
        .默认

        .判断结束

    .判断 (x > 取用户区宽度 () - 4 且 y < 取用户区高度 () - 6 且 y > 6)
        l = 2
        .判断开始 (l = 2)
            _启动窗口.发送信息 (274, 61442, 0)  ' 右边
        .默认

        .判断结束

    .判断 (y < 4 且 x < 取用户区宽度 () - 6 且 x > 6)
        l = 3
        .判断开始 (l = 3)
            _启动窗口.发送信息 (274, 61443, 0)  ' 顶边
        .默认

        .判断结束

    .判断 (y > 取用户区高度 () - 4 且 x < 取用户区宽度 () - 6 且 x > 6)
        l = 4
        .判断开始 (l = 4)
            _启动窗口.发送信息 (274, 61446, 0)  ' 下边
        .默认

        .判断结束

    .判断 (x < 6 且 y < 6)
        l = 5
        .判断开始 (l = 5)
            _启动窗口.发送信息 (274, 61444, 0)  ' 左上
        .默认

        .判断结束

    .判断 (x > 取用户区宽度 () - 6 且 y < 6)
        l = 6
        .判断开始 (l = 6)
            _启动窗口.发送信息 (274, 61445, 0)  ' 右上
        .默认

        .判断结束

    .判断 (x > 取用户区宽度 () - 6 且 y > 取用户区高度 () - 6)
        l = 7
        .判断开始 (l = 7)
            _启动窗口.发送信息 (274, 61448, 0)  ' 右下
        .默认

        .判断结束

    .判断 (x < 6 且 y > 取用户区高度 () - 6)
        l = 8
        .判断开始 (l = 8)
            _启动窗口.发送信息 (274, 61447, 0) ' 左下
        .默认

        .判断结束

    .默认

    .判断结束

cui19951005 2017-01-10 22:29
学习啦,谢谢楼主


查看完整版本: [-- 易语言无边框窗口发送消息  控制窗口大小 --] [-- top --]


Powered by phpwind v8.7 Code ©2003-2011 phpwind
Time 0.009428 second(s),query:0 Gzip enabled