皮皮网

1.易语言怎么弄一个窗口播放幻灯片（源码）

易语言怎么弄一个窗口播放幻灯片（源码）

       建立如图所标组件，易语言动语3个标签组件，画源画2个编辑框组件，码易和平源码2个按钮组件

       插入窗口组件，做动并且添加如图所标组件，易语言动语sunnyui源码1个框组件，画源画zimg源码1个时钟组件。码易

       启动窗口程序集写入以下代码

       在窗口1程序集写入以下代码

.版本 2

       .程序集 窗口程序集_窗口1

       .程序集变量 a1,做动 文本型, , "0"

       .程序集变量 a2, 整数型

       .程序集变量 a3, 整数型

       .子程序 _窗口1_创建完毕

       a2 ＝ 1

       子程序1 ()

       移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())

       框1. ＝ 读入文件 (a1 [1])

       时钟1.时钟周期 ＝ 到数值 (_启动窗口.编辑框2.内容) × 

       .子程序 子程序1

       .局部变量 文件名, 文本型

       .局部变量 文件目录, 文本型

       .局部变量 a, 文本型

       文件目录 ＝ _启动窗口.编辑框1.内容

       .如果真 (文件目录 ≠ “”)

           文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)

           文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, )

           .判断循环首 (文件名 ≠ “”)

               .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)

                   a ＝ 到小写 (取文本右边 (文件名, 3))

                   .如果真 (a ＝ “jpg” 或 a ＝ “gif” 或 a ＝ “bmp”)

                       加入成员 (a1, 文件目录 ＋ 文件名)

                   .如果真结束

               .如果真结束

               文件名 ＝ 寻找文件 (, )

           .判断循环尾 ()

       .如果真结束

       .子程序 _窗口1_尺寸被改变

       框1.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())

       .子程序 _窗口1_将被销毁

       _启动窗口.可视 ＝ 真

       .子程序 _窗口1_按下某键, 逻辑型

       .参数 键代码, 整数型

       .参数 功能键状态, 整数型

       .如果真 (键代码 ＝ #Esc键)

           _启动窗口.可视 ＝ 真

           销毁 ()

       .如果真结束

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

       a2 ＝ a2 ＋ 1

       a3 ＝ 取数组成员数 (a1)

       .如果 (a2 ≤ a3)

           框1. ＝ 读入文件 (a1 [a2])

       .否则

           a2 ＝ 0

       .如果结束

       .子程序 _框1_被双击, 逻辑型

       .参数 横向位置, 整数型

       .参数 纵向位置, 整数型

       .参数 功能键状态, 整数型

       _启动窗口.可视 ＝ 真

       销毁 ()

       如果按照提示的方法操作失败，或者出现错误，易语言动语请下载下面附件。画源画

码易

码易