Question

请问VB怎样显示GIF动画啊？

请问不要用逐个的方法，怎样让一个GIF动画图片在VB窗体内显示播放呢？

Answer 1

楼上的方法不错

我这里还有一点补充

工程----部件----添加 Microsoft Internet Controls

在窗体上添加一个WebBrowser1，一个image1

Private Sub Form_Load()
image1.Picture = "D:\.gif"
image1.Visible = False
WebBrowser1.Width = Image1.Width + 608
WebBrowser1.Height = Image1.Height + 503
WebBrowser1.Navigate "D:\.gif"
End Sub

WebBrowser1虽然可以播放GIF，但是无法根据GIF文件的长和宽来调整自己。
而IMAGE1有这个功能。
所以我们利用IMAGE1来调整WebBrowser1的长宽

我这里出示的两个数值能使其刚好充分显示

祝你好运！

Answer 2

WebBrowser1控件即能打开GIF，也能放FLASH：

工程----部件----添加 Microsoft Internet Controls

------------------------------------
Private Sub Form_Load()

WebBrowser1.Navigate "f:\aa.gif"