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

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

  
'
     $ESCAPECHARS ON
     $TYPECHECK ON
     $INCLUDE "RAPIDQ.INC"
'
     DECLARE SUB Paint
'
     DIM Bitmap AS QBITMAP
'
     CREATE Form AS QFORM
      WindowState = wsMaximized
      CREATE Canvas AS QCANVAS
       Align = alClient
       OnPaint = Paint
      END CREATE
     END CREATE
'
     SUB Paint
      Canvas.FillRect 0,0 ,Form.ClientWidth,Form.ClientHeight,&H999999
      Canvas.Draw (0, 0,Bitmap.bmp)
     END SUB
'
     Form.Show
'
     Bitmap.BMP = "test1.bmp"
     Paint
'
     SHOWMESSAGE ("Will Display The Large Picture")
'
     Bitmap.BMP = "test.bmp"
     Paint
'
     Form.Visible = False
     Form.SHOWMODAL
'

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2023-2-9  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-04-28 19:12:20