Guidance
指路人
g.yi.org
software / rapidq / examples / GUI / form / degrad.bas

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

  
' degrad.bas for RapidQ
' Coded by Gérald VERDIER - BinoclaR (°-°) software
' may 2004
' email : gerald.verdier@club-internet.fr
' PURPOSE : color Fx for form (or splash form)

     DECLARE SUB degrad

     CREATE form AS QFORM
      CAPTION = "________..._(°-°)_...________"
      center
      onPaint = degrad
      SHOWMODAL
     END CREATE

     SUB degrad
      FOR i = 0 TO 254
       Form.Line (0, i + 1,Form.Width, i + 1,RGB(255 - i, 0, 0))
		' now red. green:RGB(0, 255 - i, 0) and blue:RGB(0, 0, 255 - i)
      NEXT i
     END SUB
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2023-2-9  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2004-06-08 05:10:56