home *** CD-ROM | disk | FTP | other *** search
/ C/C++ User's Journal & Wi…eveloper's Journal Tools / C-C__Users_Journal_and_Windows_Developers_Journal_Tools_1997.iso / sbdemo / p19.sb < prev    next >
Encoding:
Text File  |  1996-10-24  |  886 b   |  36 lines
  1. DIM rc As RECT
  2. GLOBAL wAvi%
  3. DECLARE Sub OnPlay()
  4. DECLARE SUB OnExit()
  5.  
  6. CompoundExtractFile("","hellow.avi")
  7.  
  8. SBV_BORDER = 10
  9. SBV_BORDERSTYLE = SBC_BORDERCOLOR
  10. SBV_DARKCOLOR = RGB&(192,192,192)
  11. wAvi% = PopupAvi( SBC_CENTER, SBC_CENTER, 0, 0, "hellow.avi",\
  12.                   SBC_FIXEDPOS or SBC_MODELESS or SBC_NOPLAY or SBC_TOPMOST)
  13.  
  14. ON EVENT SBEP_DLGCONT OnPlay
  15. ON EVENT SBEP_DLGSTOP OnExit
  16.  
  17. SBV_CONTTEXT = "&Play"
  18. SBV_STOPTEXT = "&Exit"
  19.  
  20. RectWin(wAvi%, rc)
  21. wText% = PopupTextBox(rc.left, rc.bottom, rc.right-rc.left, 90,\
  22.             "Click Play to watch the movie", SBC_MODELESS or SBC_FIXEDPOS\
  23.             or SBC_3D or SBC_ALIGNCENTER or SBC_TOPMOST)
  24. sleep 0
  25.  
  26. static SUB OnPlay()
  27.     PopupChangeAvi(wAvi%, SBC_FIRST)
  28.     PopupChangeAvi(wAvi%, SBC_PLAY)
  29. End Sub
  30.  
  31. static SUB OnExit()
  32.     PopupClose(wAvi%)
  33.     Kill("hellow.avi")
  34.     wakeup
  35. End Sub
  36.