[futurebasic] Re: [FB] FB II; Timed out Alert problem

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : December 1999 : Group Archive : Group : All Groups

From: Mikearrony@...
Date: Wed, 15 Dec 1999 13:27:39 EST
Bob,
    I use this that times out , clicks or keypress cancels.  numTicks& is the 
length of time you select for it to be shown.

DIM numTicks&,endTicks&,timeUp
LOCAL FN MyShowSplash(numTicks&)
  WINDOW #10,"",(0,0)-(450,320),_dialogPlain
  PICTURE FIELD #1,"Intro",(0,0) - (450,320), _noFramedNoCr,_cropPict
  endTicks& = FN TICKCOUNT + numTicks&
  timeUp = _false
  WHILE (FN BUTTON = _false) AND (INKEY$ = "") AND (timeUp = _false)
    LONG IF numTicks& > 0
      IF (FN TICKCOUNT => endTicks&) THEN timeUp = _zTrue
    END IF
  WEND
  FLUSHEVENTS
END FN


Mike