易语言仿QQ新闻提醒小窗口带水波纹特效源码

.版本 2
.支持库 spec
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 延迟
.程序集变量 i, 整数型

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

置外形图片 (#外型, #白色)
_启动窗口.左边 = 取屏幕宽度 () - 250
_启动窗口.顶边 = 取屏幕高度 ()
时钟1.时钟周期 = 70
置随机数种子 ()
延迟 = 到整数 (取随机数 (40, 300) × 1000)
装载图片 (取运行目录 () + “\1.bmp”, 真)  ‘ 程序第一次启动的时候 加载的图片 必须有哦,不然会显示无图片了 其他不许修改
i = 1
.子程序 _透明标签4_鼠标左键被按下, 逻辑型, , 不许修改
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

发送信息 (161, 2, 0)

.子程序 _图形按钮1_被单击

结束 ()
.子程序 _时钟1_周期事件, , , 不许修改

.如果 (_启动窗口.顶边 ≠ 取屏幕高度 () - 190 且 _启动窗口.左边 = 取屏幕宽度 () - 250)
_启动窗口.可视 = 真
_启动窗口.顶边 = _启动窗口.顶边 - 10
.否则
时钟1.时钟周期 = 0
延迟 (延迟)
时钟2.时钟周期 = 70
.如果结束
.子程序 _时钟2_周期事件, , , 不许修改

.如果真 (_启动窗口.左边 ≠ 取屏幕宽度 () - 250)
时钟2.时钟周期 = 0
返回 ()
.如果真结束
.如果 (_启动窗口.顶边 ≠ 取屏幕高度 ())
_启动窗口.顶边 = _启动窗口.顶边 + 10
.否则
时钟2.时钟周期 = 0
延迟 (500)
时钟1.时钟周期 = 70
.如果结束
.子程序 _透明标签1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

打开指定网址 (“http://www.lanxinbase.com”)  ‘ 修改成你想打开的网址

.子程序 _透明标签1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

打开指定网址 (“http://www.lanxinbase.com”)  ‘ 修改成你想打开的网址

.子程序 _透明标签1_鼠标位置被移动, 逻辑型, , 不许修改
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

水波特效 (图片框1.取窗口句柄 (), 横向位置, 纵向位置, 5, 100)

.子程序 _时钟3_周期事件, , , 不许修改

水周期 (图片框1.取窗口句柄 ())

.子程序 _时钟4_周期事件, , , 修改图片替换信息,图片保存在程序目录下 必须以数字命名比如:1.bmp;后缀名必须是bmp

i = i + 1
装载图片 (取运行目录 () + “\” + 到文本 (i) + “.bmp”, 真)
.如果真 (i = 3)  ‘ 如果有你10张图片 那么主力修改成10  当循环到第十张的时候会自动降到第一张、这里不是随机出现的 按顺序
i = 1

.如果真结束

IT广告易语言(源码)

 

下面这个是重新找的一份,使用第三方支持库:

 

NB水波特效支持库(静态)

Leave a Comment

 
Copyright © 2008-2021 lanxinbase.com Rights Reserved. | 粤ICP备14086738号-3 |