怎么能让*.GIF在VB中动起来？

Question

最简单的方法就是用GIF89控件来显示GIF图片
他是专用显示动画图片的！
vb中没有。不过网上有的是！
GOOD LUCK！！！！！！！
要不就用WIDOWS API函数实现吧
自己用点心！
88

Answer 1

谢谢各位，my mail:[email protected]

Answer 2

有这样的好控件吗？有就给我也发一个吧。[email protected]

Answer 3

这个问题我好象回答过，复制一遍给你。
根本不需要用第三方控件！你可以通过工具把Gif动画文件分开成若干帧，再把它导入到资源文件中。在程序中用Timer1来调用它。
1）：资源文件的写法：（假设有四帧，分别为1.bmp、2.bmp、3.bmp、4.bmp你也可以把它们转换为透明的Gif文件)
    100 bitmap 1.bmp
    200 bitmap 2.bmp
    300 bitmap 3.bmp
    400 bitmap 4.bmp
（具体的生成和添加资源文件的步骤我就不罗嗦了）
2）：代码：
在通用中设置：Dim wch As Integer
'需要在窗体上添加Image1和Timer1两个控件
Private Sub Form_Load()
Image1.Picture = LoadResPicture(100, vbResBitmap)
wch= 100
End SubPrivate Sub Timer1_Timer()
'别忘记了要设置时间的Interval属性
wch = 100 + wch
    If wch > 400 Then wch = 100
       Image1.Picture = LoadResPicture(wch, vbResBitmap)
End Sub（别忘记了给分哟！）