Guidance
指路人
g.yi.org
software / rapidq / examples / GUI / Icon / iconflash.bas

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

  
     DECLARE FUNCTION FlashWindow LIB "user32" ALIAS "FlashWindow"_
      (hwnd AS LONG, bInvert AS LONG) AS LONG
     DECLARE SUB Flash

     CREATE Form AS QFORM
      Center
      CREATE Button AS QBUTTON
       CAPTION = "Flash"
       OnClick = Flash
      END CREATE
     END CREATE

     Form.SHOWMODAL

     SUB Flash
      N = 0
      DO
       N++
       FlashWindow(Application.Handle, 1) 'bInvert is always 1
       SLEEP .5 'pause between on/off
      LOOP UNTIL N = 6 'number of flashes * 2
     END SUB
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2019-6-27  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:48:29