简约大气新版win8简约内存皮肤模块

易语言 2020-07-19 16:52:34

简约大气新版win8简约内存皮肤模块

.子程序 Enpty_定时更换, 整数型, 公开, 定时更换皮肤
.参数 更换时间, 整数型, , 单位:秒
.参数 皮肤一, 字节集
.参数 皮肤二, 字节集
.参数 皮肤三, 字节集

Enpty_资源加载 (皮肤一)
皮肤ID = 2
定时皮肤一 = 皮肤一
定时皮肤二 = 皮肤二
定时皮肤三 = 皮肤三
时间标志 = 取秒 (取现行时间 ()) × 200
替换时间 = 更换时间 × 1000
时钟ID = _创建定时器 (0, 时间标志, 替换时间, &Enpty_替换程序)
返回 (时钟ID)

.子程序 Enpty_定时停止, 整数型, 公开, 停止定时更换皮肤

返回 (_销毁定时器 (0, 时钟ID))

.子程序 Enpty_继续更换, 整数型, 公开, 继续定时更换皮肤

时钟ID = _创建定时器 (0, 时间标志, 替换时间, &Enpty_替换程序)
返回 (时钟ID)

.子程序 Enpty_替换程序, , , 定时更换皮肤执行子程序

.判断开始 (皮肤ID ≤ 0 或 皮肤ID ≥ 4)
皮肤ID = 1
.默认

.判断结束
.判断开始 (皮肤ID = 1)
Enpty_资源加载 (定时皮肤一)
.判断 (皮肤ID = 2)
Enpty_资源加载 (定时皮肤二)
.默认
Enpty_资源加载 (定时皮肤三)
.判断结束
皮肤ID = 皮肤ID + 1

.子程序 Enpty_释放内存, 逻辑型, 公开, 释放内存DLL,最好在窗口结束时和皮肤卸载放着一起用

返回 (skin.释放 ())