'ゞゞゞ 发表于 2018-6-8 12:50:28

18课仿迅雷悬浮窗口，作业

.版本 2
.支持库 xplib

.程序集 窗口程序集_启动窗口

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

XP风格 (1)
_启动窗口.左边 ＝ 取屏幕宽度 () － 102
_启动窗口.顶边 ＝ 50


.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (菜单, , )


.子程序 __启动窗口_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.判断开始 (是否已创建 (窗口1))
    窗口1.销毁 ()
.默认
    载入 (窗口1, _启动窗口, 假)
.判断结束


.子程序 _打开菜单_被选择

载入 (窗口1, _启动窗口, 假)


.子程序 _关闭菜单_被选择

窗口1.销毁 ()


.子程序 _退出_被选择

销毁 ()


zf123456 发表于 2018-6-8 12:51:09

嘻嘻不错支持一个

luoyunjie 发表于 2018-6-8 12:51:50

好像还不错！

莫天浩 发表于 2018-6-8 12:52:31

不错！顶LZ

斯蒂芬 发表于 2018-6-8 12:53:12

学习了，这就去试试

4414513216511 发表于 2018-6-8 12:53:53

感觉不错

w115182772 发表于 2018-6-8 12:54:48

不错不错 支持下

w115182772 发表于 2018-6-8 12:55:43

学习一下！十分感谢

咬牙坚持 发表于 2018-6-8 12:56:37

碉堡了!

w115182772 发表于 2018-6-8 12:57:32

支持！！！！前排！！！！
页: [1] 2 3 4 5 6
查看完整版本: 18课仿迅雷悬浮窗口，作业