怎样在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
温馨提示:答案为网友推荐,仅供参考
相似回答