自动隐藏源码

5856761

.版本 2
.支持库 eAPI

.子程序 __启动窗口_创建完毕

宽度 ＝ 310
高度 ＝ 280
时钟1.时钟周期 ＝ 300


.子程序 _时钟1_周期事件

取鼠标所在窗口句柄 ()  \' 取鼠标所在窗口的句柄，来判断是不是处理程序窗口内
.判断循环首 (_启动窗口.顶边 ＜ 5)  \' 判断窗口位置，这是离屏幕顶边的位置
    .如果 (取鼠标所在窗口句柄 () ＝ _启动窗口.取窗口句柄 () ＝ 真 或 取鼠标所在窗口句柄 () ＝ 取窗口句柄 () ＝ 真)  \' 如果鼠标处于窗口内，就执行以下代码
        _启动窗口.高度 ＝ 280  \' 设置窗口高度
        顶边 ＝ 1  \' 顶边位置为1，但启用这个窗口会闪烁
        跳出循环 ()  \' 跳出循环

    .否则
        _启动窗口.高度 ＝ 0  \' 如果不达到以上条件就执行这代码，设置窗口高度
        .如果真 (顶边 ≤ 0)  \' 如果窗口顶边小于0
            顶边 ＝ －高度 ＋ 5  \' 设置窗口顶边位置
        .如果真结束
        .如果真 (顶边 ＝ 取屏幕高度 () － 高度)
            顶边 ＝ 取屏幕高度 () － 5
        .如果真结束

    .如果结束

.判断循环尾 ()


.子程序 __启动窗口_位置被改变

.如果真 (顶边 ＜ 5 且 顶边 ≥ 0)  \' 吸附屏幕顶部
    顶边 ＝ -5
.如果真结束
.如果真 (取屏幕高度 () － 顶边 － 高度 ＜ 5 且 取屏幕高度 () － 顶边 － 高度 ≥ 0)  \' 吸附屏幕底部
    顶边 ＝ 取屏幕高度 () － 高度 － 10
.如果真结束



.子程序 __启动窗口_尺寸被改变

_启动窗口.宽度 ＝ 310  \' 设置窗口宽度
.如果 (_启动窗口.顶边 ≥ 5)  \' 判断语句，如果窗口处于的位置大于或等于5（离屏幕顶边的位置）就执行以下语句
    _启动窗口.高度 ＝ 280  \' 设置窗口高度
.否则

.如果结束


.子程序 __启动窗口_位置被改变1

.如果真 (左边 ＜ 5 且 左边 ≥ 0)  \' 吸附屏幕左部
    左边 ＝ -5
.如果真结束
.如果真 (取屏幕高度 () － 左边 － 高度 ＜ 5 且 取屏幕高度 () － 左边 － 高度 ≥ 0)  \' 吸附屏幕底部
    左边 ＝ 取屏幕高度 () － 高度 － 10
.如果真结束



.子程序 __启动窗口_尺寸被改变1

_启动窗口.宽度 ＝ 310  \' 设置窗口宽度
.如果 (_启动窗口.左边 ≥ 5)  \' 判断语句，如果窗口处于的位置大于或等于5（离屏幕左边的位置）就执行以下语句
    _启动窗口.高度 ＝ 280  \' 设置窗口高度
.否则

.如果结束

oywa

自动隐藏哪用这么麻烦啊，一句命令就搞定了吧！！！

guanglincl

郁闷  程序这么复杂 一个隐藏而已 就让计算机走这么多弯路 ？？