Guidance
指路人
g.yi.org
software / rapidq / Examples / Graphics & Animation / GIF / Display GIF.bas

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

  
'Display GIF
'by: Lukaz (12/12/02 11:50:18 pm)
'You need the file NViewLib.dll

'--- START ---

     DECLARE FUNCTION Load_GIF LIB "NVIEWLIB" ALIAS "Load_GIF" _
      (FileName AS STRING, Progress AS INTEGER) AS INTEGER
     DECLARE FUNCTION NViewLibLoad LIB "NVIEWLIB" ALIAS "NViewLibLoad" _
      (FileName AS STRING, Progress AS INTEGER) AS INTEGER

     DIM FileName AS STRING
     FileName = "world.gif"

     CREATE Form AS QFORM
      CREATE Image AS QIMAGE
       Autosize=1
       Handle = NViewLibLoad(FileName, 0)
       TextOut(10,10, FileName, 0, -1)
      END CREATE
      SHOWMODAL
     END CREATE

'--- END ---
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-10-04 20:09:35