微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题实现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