Guidance
指路人
g.yi.org
software / rapidq / Examples / Graphics & Animation / GIF / gifanim / GIFANIM.BAS

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
' ActiveX control example for Rapid-Q by William Yu
' Requires GIF89.DLL and RAPIDQ.GIF
' To register GIF89.DLL do the following at the command prompt:
' regsvr32 gif89.dll


     CREATE Form AS QFORM
      CAPTION = "Animated GIFs"
      COLOR = &HFFFFFF
      Height = 110
      Center
      Show
      CREATE Label AS QLABEL
       WordWrap = 1
       Top = 45
       Left = 10
       Width = 200
       CAPTION = "Rapid-Q is a semi-OO, multiplatform, GUI && CONSOLE BASIC Compiler/Interpreter"
      END CREATE
      CREATE GifAnimation AS QOLECONTAINER
       Height = 33
       Width = 135
       Left = 70
       CreateObject("Gif89.Gif89.1")
        '-- FileName is a property in GIF89.DLL
       FileName = "rapidq.gif"
      END CREATE
     END CREATE

     DO
      DOEVENTS
     LOOP UNTIL Form.Visible = 0

     GifAnimation.Free
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2000-08-04 00:30:20