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

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

  
     $TYPECHECK ON
     $INCLUDE "RapidQ.inc"

     DECLARE SUB Form_Close
     DIM Path AS STRING
     DIM Timer1 AS QTIMER
     WITH Timer1
      .Interval = 3000 '3 seconds, 30000 is thirty seconds
      .OnTimer = Form_Close
     END WITH
     Path = COMMAND$(0)-Application.ExeName
     DECLARE FUNCTION ShellExecute LIB "shell32.dll" ALIAS "ShellExecuteA" (BYVAL hwnd AS LONG, BYVAL lpOperation AS STRING, BYVAL lpFile AS STRING, BYVAL lpParameters AS STRING, _
      BYVAL lpDirectory AS STRING, BYVAL nShowCmd AS LONG) AS LONG

     CONST SW_SHOWNORMAL = 1

     CREATE SplashForm AS QFORM
      CAPTION = "SplashForm"
      Width = 320
      Height = 240
      Center
      CREATE Image1 AS QIMAGE
       BMP = "C:\RapidQ\Splash.bmp"
       Left = 0
       Top = 0
       Width = 312
       Height = 213
       Align = 5
       Stretch = 1
      END CREATE
     END CREATE

     SplashForm.SHOWMODAL

     SUB Form_Close
      ShellExecute SplashForm.Handle,0, "NotePad.exe",Path & "ReadMe.txt","C:\", SW_SHOWNORMAL
      SplashForm.CLOSE
     END SUB
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Tue 2024-10-8  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:47:48