实现GIF图形快速显示

徐新强
1998年 第40期 13版

　　GIF图形的动态显示，使应用程序活泼，平添几分轻松气氛。在VB5程序设计中，有好几种加载GIF图形方法，如使用Animation GIF ActiveX 2.0控件等。Animation GIF ActiveX 2.0控件易用、功能也很强大，但每次加载时都会显示版本信息，有点不堪忍受。如果只为了显示GIF图形，下面介绍的方法简单易行，并且每帧图片间没有停顿，速度很快。
　　假设在VB5程序中有一个名为Form的窗体。以下代码先声明一个窗体级Picture型数组，在Form_Load过程中，用LoadPicture函数将GIF图形加载到Picture型数组，然后在需要显示动态GIF图形的过程中用PaintPicture实现。
　　Dim objPics（12） As Picture
　　Private Sub Form_Load（）
　　Dim intI As Integer，strGifName As String
　　For intI=0 To 12
　　strGifName=″c:\xxqvbprogram\vbgif\″＆intI＆″.gif″
　　′注：变量strGifName存放图片的路径和名称
　　Set objPics（intI）=LoadPicture（strGifName）
　　Next intI
　　End Sub
　　Private Sub Form_Paint（）
　　Dim intI As Integer，intJ As Integer，dblTemp As Double
　　For intJ=1 To 10
　　For intI=0 To 12
　　PaintPicture objPics（intI），0，0
　　Next intI
　　Next intJ
　　End Sub


 