1.易语言怎么弄一个窗口播放幻灯片(源码)
2.我想用易语言编写,易语言动应用源码易语言动动态的画框画框时钟,他会自动更换,易语言动应用源码易语言动加气球提示框“这东西真好吃”更换时,画框画框板块代码源码求代码,易语言动应用源码易语言动
易语言怎么弄一个窗口播放幻灯片(源码)
建立如图所标组件,画框画框autosj源码3个标签组件,易语言动应用源码易语言动2个编辑框组件,画框画框2个按钮组件插入窗口组件,易语言动应用源码易语言动并且添加如图所标组件,画框画框1个框组件,易语言动应用源码易语言动1个时钟组件。画框画框
启动窗口程序集写入以下代码
在窗口1程序集写入以下代码
.版本 2.程序集 窗口程序集_窗口1
.程序集变量 a1,易语言动应用源码易语言动useRef源码 文本型, , "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_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
_启动窗口.可视 = 真
销毁 ()
如果按照提示的方法操作失败,或者出现错误,画框画框请下载下面附件。易语言动应用源码易语言动
我想用易语言编写,11110001源码动态的时钟,他会自动更换,加气球提示框“这东西真好吃”更换时,burp源码求代码,
你直接做GIF不是好了?
或者:
.版本 2
.程序集 窗口程序集1
.程序集变量 字节集, 字节集, , "0"
.程序集变量 i
.子程序 _时钟1_周期事件
' 框1. = 取随机数组字节集 (字节集) ' 这里是随机预览,二选一否则起冲突
' 下面代码是‘按顺序预览’
i = i + 1
.如果真 (取数组成员数 (字节集) = i)
i = 0
.如果真结束
输出调试文本 (i)
框1. = 字节集 [i + 1]
.子程序 _开始预览_被单击
字节集 = { #1, #2, #3 } ' 你在资源中插入的(有多少就输入多少个)
时钟1.时钟周期 = ' 预览的秒数
.子程序 _停止预览_被单击
时钟1.时钟周期 = 0
.子程序 取随机数组字节集, 字节集, , 可选
.参数 字节集数组, 字节集, 数组
返回 (字节集数组 [取随机数 (1, 取数组成员数 (字节集数组))])