Guidance
指路人
g.yi.org
software / rapidq / Examples / File & Directory / QResourceStream / example.rq

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
'   *******************************************
'   **                                       **
'   **  Example program for QResourceStream  **
'   **                                       **
'   *******************************************

     $TYPECHECK ON
     $INCLUDE "QResourceStream"
     $RESOURCE Resource1 AS "example.rq"

     DEFSTR Key
     DIM SourceCode AS QResourceStream

     SourceCode.OPEN(0)
     COLOR 15,0
     CLS
     PRINT "Source code for this program:"
     COLOR 2
     PRINT SourceCode.ReadStr(SourceCode.Size)
     COLOR 15
     PRINT "Press ENTER to exit program...";
     Key = GET$(1)

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2019-4-19  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:45:49