Guidance
指路人
g.yi.org
software / rapidq / examples / gui / cursors / animated / cursors.bas

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

  
' Animated cursors for Rapid-Q
' Requires CURSORS.DLL, which is just a resource with 12 cursors

     $TYPECHECK ON

     DECLARE FUNCTION LoadLibrary LIB "KERNEL32" ALIAS "LoadLibraryA" _
      (LibFileName AS STRING) AS LONG
     DECLARE FUNCTION FreeLibrary LIB "KERNEL32" ALIAS "FreeLibrary" _
      (hInst AS LONG) AS LONG
     DECLARE FUNCTION LoadCursor LIB "USER32" ALIAS "LoadCursorA" _
      (hInst AS LONG, CursorName AS STRING) AS LONG

     DECLARE SUB Timer1Expired (Sender AS QTIMER)

     DIM I AS LONG, hInst AS LONG

     hInst = LoadLibrary("CURSORS.DLL")

     FOR I = 1 TO 12
      Screen.Cursors(I) = LoadCursor(hInst, "CURSOR_"+STR$(I))
     NEXT

     DIM Timer1 AS QTIMER
     Timer1.Interval = 100
     Timer1.Enabled = 1
     Timer1.OnTimer = Timer1Expired


     CREATE Form AS QFORM
      CAPTION = "Animated cursor"
      Center
      Cursor = 1
      SHOWMODAL
     END CREATE

     FreeLibrary(hInst)
     END


     SUB Timer1Expired (Sender AS QTIMER)
      Sender.Interval = 100
      Form.Cursor = (Form.Cursor + 1) MOD 13
     END SUB
© Tue 2024-3-19  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:54:41