@@如何在vb显示gif动画图片！！

在VB6.0中实现GIF动画的几种方法

888ai444

是否觉得你的程序有些死气沉沉?加一个小动画试试吧,它也许会给你的程序增色不少呦!

用VB实现的动画并不象大家想象中的那种声光效果极佳,人物、事物动感十足的动画。用VB实现的动画可以说成是会动的图画，简单的说就是把一堆图片依次的、循环的、按一定的速度连续显示出来,从而产生一种会动的感觉。当然这一堆图片不一定是GIF格式的,只不过GIF文件的压缩比大一般称为”无损压缩文件”,文件较小更适合于动画,如果你高兴也可以使用BMP、JPG等格式的文件。

在对GIF动画有了一定了解之后我们就来讨论一下如何在VB程序中实现GIF动画。

第一种方法: 用图像框 (IMAGEBOX)按一定的时间,顺序循环加载图片。这种方法需要用到TIMER控件，因为TIMER控件不会影响FROM_LOAD等其他程序的运行,也不受其他程序的影响,所以为首选。图像框(IMAGEBOX)的STRETCH属性设置为TRUE使图片大小适应控件大小,将准备好的图片依次命名为1.GIF、2.GIF、3.GIF……TIMER的INTERVAL属性设置为100(视情况而定)。在TIMER1_TIMER()中加入以下代码：

PRIVATE SUB TIMER1_TIMER()

DIM FILENAME AS STRING

STATIC INT AS INTEGER

INT = INT + 1

FILENAME = “ C:\WINDOWS\DESKTOP\” &INT &“.GIF” ‘路径应视情况而定

IMAGE1.PICTURE = LOADPICTURE(FILENAME)

IF INT >= 5 THEN INT = 0 ‘条件INT到底应大于几应视情况而定

END SUB

第二种情况：用PICTURECLIP控件实现。

PICTURECLIP控件要在“部件”中添加，并且要与PICTURE和IMAGE控件配套使用颤消。右键单击PICTURECLIP使用属性中的”自定义”—加载图片—”通用属性”—定义”行,列”值(行,列值在此例中暂定为18)。程序代码如下：

DIM A AS INTEGER

PRIVATE SUB form_LOAD ()

PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(1)

A = 1

TIMER1.INTERVAL = 100

END SUB

PRIVATE SUB TIMER_TIMER ()

A = A + 1 ：IF A = 18 THEN A = 0

PICTURE1.PICTURE = PICTURECLIP.GRAPHICCELL(A)

END SUB

此种方法是将一张图片分割为几行、几列然后依次将每一部分显示出来，所以准备的这一图片最好是每隔一定行距列距有一个独立的内容的图案，如果是一个连续的、整体的图案那么出来的效果就只会”动”而不成”画”了。

第三种方法：现在市面上有很多制作GIF动画的软件，如有一个叫GIF CONSTRUTION SET 的 SHAREWARE (32位)可以很容易得制作出动态的GIF图形文件，我们可以用VB中老洞巧的ANIGIF控件来”播放”已做好的GIF图片。其属性设置位要播放的GIF文件名，在程序运行时控件会自动播放GIF动画。当然ANIGIF控件要在”部件”里添加后才能使用。此种方法不用很多的代码而效果也不错(因为在制作GIF动画时一般都有预览功能)因此建议大家使用这种方法。

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

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

------------------------------------

Private Sub Form_Load()

WebBrowser1.Navigate "f:\aa.gif"

End Sub

以上是本人在编程中总结出的几点经验仅供侍键参考，还望你自己多揣磨、多实践总结出更好的方法。

gif格式的动图，需要用合适的浏览软件打开才能看到动态多帧效果，如果用windows默认的图片查看器打开，就是静止不动的图片。针对这个问题，有两或档种解决方案：

（一）方法一，改用系统自带的IE浏览器衫高乱打开gif动图，就可以看到多帧动画了

如下图，鼠标右键单击gif图片，在d出的右键菜单里依次选择“打开方式”→“Internet Explorer”，如果没有“Internet Explorer”这一项，请在“选择默认程序”里面寻找：

（二）方法二，下载安装支持gif格式的图片查看软件，比如“看图王”

（1）在百度搜索“看图王 百度软件中心”，进入第一个搜索结果。如下图：

（2）点击“普通下载”。如下图：

（3）下载安装完毕后，打开“看图王”，依次点击软件主界面右上角的“三角标”→“设置”。如下图：

（4）进入设置菜单，依次点击“文件关联”→“全选”→“确定”。如下图：

（5）格式关联完毕后，电脑里所有图片都改为使用看图王打开，念段gif在看图王里也能看到多帧动画。

不用了，可以了，你在窗体上把WebBrowser控件放上，按钮上放姿肢散上以下内容即可，大小自己设置。

WebBrowser1.Navigate "about:blank"

WebBrowser1.Document.open

WebBrowser1.Document.write "<img src='实际GIF位置\xxx.gif'>迹氏</img>"饥岁

WebBrowser1.Document.Close

img里，你按HTML格式可以设置GIF的大小，高度之类的。

---