周线底背离的反弹:VB如何实现调用动态的GIF动画??

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/06 02:19:25
VB如何实现调用动态的GIF动画??

把GIF分解成若干单桢的GIF,用时间控件一幅幅的加载
private sub timer1-timer()
static a as imteger'假如有7张单张的GIF
if a=8 then
a=1'回到第一张的加载
else
a=a+1'不断的加载下一幅GIF
end if
image1.picture=loadpicture(app.path+"\dh"&a&".gif")
end sub

放一个动画控件,指定文件名.play一下OK.

用webBrowser控件

动画控件放不了gif的