tf394725806 发表于 2020-2-20 12:50:07

新手--看了觅风老师的视频，动手做的悬浮窗源码

本帖最后由 tf394725806 于 2020-2-20 12:53 编辑

**** Hidden Message *****

.版本 2
.支持库 xplib

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

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

置托盘图标 (#图片1, “快速开关机”)

XP风格 (2)
_启动窗口.左边 ＝ 取屏幕宽度 () － 100


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

弹出菜单 (文件, , )


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

载入 (窗口1, , 假)


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

载入 (窗口1, , 假)

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

.如果 (是否已创建 (窗口1) ＝ 真)
    窗口1.销毁 ()
    .如果 (是否已创建 (窗口1) ＝ 假)

    .否则

    .如果结束

.否则


.如果结束
销毁 ()


.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.判断开始 (操作类型 ＝ 2)
    载入 (窗口1, , 假)
.判断 (操作类型 ＝ 1)
    载入 (窗口1, , 假)
.判断 (操作类型 ＝ 3)
    弹出托盘菜单 (文件)

.默认

.判断结束


图样图森破丶 发表于 2020-2-20 12:56:41

支持，赞

星梦无痕 发表于 2020-2-20 13:03:15

支持一下，期待更多东西

舞步 发表于 2020-2-20 13:09:48

这个好好支持一下

特拉斯●狗蛋儿 发表于 2020-2-20 13:16:22

顶起很好的帖

鸟文是帅逼 发表于 2020-2-20 13:22:55

很不错的哦，支持，加油

浮生若梦 发表于 2020-2-20 14:01:31

前来支持~~~~~~~~~~~~~~~~~~~

浮生若梦 发表于 2020-2-20 14:40:08

不错哦喜欢 嘿嘿

13778890079 发表于 2020-2-20 15:18:44

期待中......

lhq19880526 发表于 2020-2-20 15:57:21

非常不错，感谢分享！
页: [1] 2 3 4 5 6
查看完整版本: 新手--看了觅风老师的视频，动手做的悬浮窗源码