VB中怎么添加动态图片?

使用方法：

Gif.FileName

=

App.Path

&

"\tuzi.gif"

加载GIF控件即可，使用上面一句代码即可完成。

控件上QQ我发给你。

把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

在VisualBasic中，不能直接播放gif动画，但可以变通一下，用浏览器IE和WebBrowser控件播放。

由于WebBrowser控件并不是VB的基本控件，因此在使用该控件之前必须先将其装入工具箱中。装入方法：在工具箱中点击鼠标右键→选中“部件”→复选MicrosoftInternetControls→然后点击“确定”键即可。

2．选取WebBrowser控件，添加到窗体的相应位置上。

3．设计相应代码：

Private Sub Form_Load()

Show

WebBrowser1.Navigate App.Path &"\h.gif"

End Sub

可参阅我博客中的文章：

http://hi.baidu.com/zgmg/blog/item/e4d179df0343e81f4854031c.html

---