程序置顶隐藏易语言源码
.版本 2
.程序集 窗口程序集操作窗口
.子程序 置顶部隐藏, , , 隐藏模式 1 缩小 隐藏模式 2 隐藏窗口
.参数 操作窗口, 窗口
.参数 还原高度, 整数型, , 用作还原窗口高度
.参数 窗口边框类型, 整数型, , 用作还原窗口边框
.参数 隐藏模式, 整数型, 可空
.如果真 (隐藏模式 = 0)
隐藏模式 = 1
.如果真结束
.如果真 (操作窗口.顶边 = 0)
.如果真 (取鼠标垂直位置 () > 操作窗口.高度 或 取鼠标水平位置 () < 操作窗口.左边 或 取鼠标水平位置 () > 操作窗口.左边 + 操作窗口.宽度)
操作窗口.边框 = 0
.如果真 (隐藏模式 = 1)
操作窗口.高度 = 2
.如果真结束
.如果真 (隐藏模式 = 2)
操作窗口.可视 = 假
.如果真结束
操作窗口.总在最前 = 真
.如果真结束
.如果真 (取鼠标垂直位置 () < 操作窗口.高度 且 取鼠标水平位置 () ≥ 操作窗口.左边 且 取鼠标水平位置 () ≤ 操作窗口.左边 + 操作窗口.宽度 且 取鼠标垂直位置 () = 0)
.如果真 (隐藏模式 = 1)
操作窗口.高度 = 还原高度
.如果真结束
.如果真 (隐藏模式 = 2)
操作窗口.可视 = 真
.如果真结束
操作窗口.边框 = 窗口边框类型
操作窗口.总在最前 = 假
.如果真结束
.如果真结束
.子程序 _时钟1_周期事件
置顶部隐藏 (_启动窗口, 250, 2, 2)
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 100
易语言捆绑置顶程序
易语言置顶带字图片