动画窗体

想学坏的小孩

.版本 2

.程序集 窗口程序集1
.程序集变量 GIF图片, 字节集, , "13"
.程序集变量 帧延时, 整数型, , "13"
.程序集变量 帧数, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 循环变量, 整数型

.计次循环首 (13, 循环变量)
    GIF图片 [循环变量] ＝ 多项选择 (循环变量, #图片1, #图片2, #图片3, #图片4, #图片5, #图片6, #图片7, #图片8, #图片9, #图片10, #图片11, #图片12, #图片13)
    帧延时 [循环变量] ＝ 多项选择 (循环变量, 160, 150, 150, 600, 150, 150, 180, 150, 150, 600, 150, 150, 800)
.计次循环尾 ()
帧数 ＝ 1
_时钟1_周期事件 ()

.子程序 _时钟1_周期事件

.如果真 (帧数 ＞ 13)
    帧数 ＝ 1
.如果真结束
_启动窗口.置外形图片 (GIF图片 [帧数], #白色)
_启动窗口.底图 ＝ GIF图片 [帧数]
时钟1.时钟周期 ＝ 帧延时 [帧数]
帧数 ＝ 帧数 ＋ 1

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

弹出菜单 (右键菜单, , )

.子程序 _退出_被选择

结束 ()

三人游

谢谢分想，支持一下{:3_226:}

十梦九她

看看  下下看

獨①個鮏

看看  下下看

Silent

正需要 支持了~！

Silent

谢谢分享~！

易菜鸟2号

谢谢分享 我可以拿去学习了