求个GIF动态图片放到图片框不失真例子

青春的回忆

普通窗口就行 不要EX，

zainex

这个问题以前有人问过:
GIF放到易语言会失真问题如何解决_精易论坛
求助！！为什么图片资源加GIF失真了？？？_精易论坛
没有别的好办法,这里也是用的"图片分割"来解决:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
位图	GP位图
时间	整数型	0
页面	字节集	0
下标	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
数	整数型

Gdiplus初始化 ()
图片框4.图片 ＝ #图片1
调试输出 (位图.创建自字节集 ( #图片1 ))
调试输出 (位图.取帧数 ( #帧维面_时间 ))
位图.取各帧延时 (时间)
调试输出 (时间)
计次循环首 (位图.取帧数 ( #帧维面_时间 ), 数)
位图.置活动帧 ( #帧维面_时间, 数 － 1)
加入成员 (页面, 位图.保存到字节集 ( #图像格式_PNG ))
计次循环尾 ()
图片框1.图片 ＝ 页面 [1]
图片框2.图片 ＝ 页面 [2]
图片框3.图片 ＝ 页面 [3]
下标 ＝ 1
时钟1.时钟周期 ＝ 时间 [下标] × 10

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

图片框5.禁止重画 ()
图片框5.图片 ＝ 页面 [下标]
下标 ＝ 下标 ＋ 1
如果真 (下标 ＞ 取数组成员数 (页面))
下标 ＝ 1
时钟1.时钟周期 ＝ 时间 [下标] × 10
图片框5.允许重画 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 位图, GP位图<br /> .程序集变量 时间, 整数型, , "0"<br /> .程序集变量 页面, 字节集, , "0"<br /> .程序集变量 下标, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数, 整数型<br /> <br /> Gdiplus初始化 ()<br /> 图片框4.图片 ＝ #图片1<br /> 调试输出 (位图.创建自字节集 (#图片1))<br /> 调试输出 (位图.取帧数 (#帧维面_时间))<br /> 位图.取各帧延时 (时间)<br /> 调试输出 (时间)<br /> .计次循环首 (位图.取帧数 (#帧维面_时间), 数)<br />     位图.置活动帧 (#帧维面_时间, 数 － 1)<br />     加入成员 (页面, 位图.保存到字节集 (#图像格式_PNG))<br /> .计次循环尾 ()<br /> 图片框1.图片 ＝ 页面 [1]<br /> 图片框2.图片 ＝ 页面 [2]<br /> 图片框3.图片 ＝ 页面 [3]<br /> 下标 ＝ 1<br /> 时钟1.时钟周期 ＝ 时间 [下标] × 10<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 图片框5.禁止重画 ()<br /> 图片框5.图片 ＝ 页面 [下标]<br /> 下标 ＝ 下标 ＋ 1<br /> .如果真 (下标 ＞ 取数组成员数 (页面))<br />     下标 ＝ 1<br /> .如果真结束<br /> 时钟1.时钟周期 ＝ 时间 [下标] × 10<br /> 图片框5.允许重画 ()

左上是失真的gif, 右上的是用"图片分割"+时钟组件来显示:

完整例子.zip (294.26 KB, 下载次数: 10)

3 天前 上传

点击文件名下载附件