Question

VB中如何加入GIF动画、

Answer 1

这种方法需要用到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 = 1TIMER1.INTERVAL = 100END SUBPRIVATE 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动画时一般都有预览功能)因此建议大家使用这种方法。 以上是本人在编程中总结出的几点经验仅供大家参考，还望大家多揣磨、多实践总结出更好的方法