标题实现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