Question

VB如何添加gif动态图片?

我知道VB不支持gif格式的图片,但是有没有什么办法,或者代码,或者添加别的什么控件可以支持gif格式的图片?

Answer 1

例子：利用WebBrowser控件'百度HI群_飞度编程学社1195277Private Sub Form_Load()
WebBrowser1.Navigate "D:\111.gif"
End Sub
添加Gif可以有以下几种方法
(1)利用第三方控件,如Gif89.但好用的一般要注册收钱.
(2)利用WebBrowser控件 在 部件->控件中 选中Microsoft Internet Controls 然后在代码中用WebBrowser1.Navigate xxx\xxx\xxx.gif加入要播放的Gif
(3)将Gif转换为Swf再用Flash播放器播放

这里先说这几种,其他的方法相信在你的学习应用中会发现的.

Answer 2

把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

Answer 3

控件 pictute box 这个支持，要在代码中动态加图片的放就用 loadpicture 函数