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

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

  
     $INCLUDE "RAPIDQ.INC"
     $TYPECHECK ON
     $APPTYPE GUI

     DECLARE FUNCTION LoadImageFile LIB "JPEG.DLL" ALIAS "LoadImageFile" _
      (hWnd AS LONG, file$ AS STRING) AS INTEGER


     DECLARE SUB loadpicture
     DECLARE SUB selectpicture

     CREATE form AS QFORM
      width = 400
      height = 400

      CREATE Image1 AS QIMAGE
       AutoSize = 1
       onclick = selectpicture
       transparent = 0
       visible = 0
      END CREATE

      onclick = selectpicture
     END CREATE


     form.SHOWMODAL

     SUB selectpicture
      DIM seldialog AS QOPENDIALOG
      seldialog.Filter = "Picture files|*.BMP;*.ICO;*.JPG;*.GIF;*.WMF;*.EMF"


      IF seldialog.EXECUTE THEN
       image1.handle = LoadImageFile(0,seldialog.filename)
       image1.visible = 1
       form.width = image1.width + 8
       form.height = image1.height + 44
       form.CAPTION = seldialog.filename

      END IF

     END SUB
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2024-3-28  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-12-30 09:15:41