home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / YES!_100s_52412222002.psc / FullScr.bas < prev    next >
Encoding:
BASIC Source File  |  1998-10-20  |  778 b   |  30 lines
  1. Declare Function mciSendString Lib "mmsystem" (ByVal lpstrCommand$, ByVal lpstrReturnStr As String, ByVal wReturnLen%, ByVal hCallBack%) As Long
  2. Declare Function mciGetErrorString Lib "mmsystem" (ByVal dwError&, ByVal lpstrReturnStr As Any, ByVal wReturnLen%) As Long
  3.  
  4. Global Const WS_CHILD = &H40000000
  5.  
  6. Global h%
  7.  
  8. Sub CloseAVI ()
  9. ret = mciSendString("close Animation", retstr, 0, 0)
  10. End Sub
  11.  
  12. Sub main ()
  13. PlayAVIFullScreen "x.avi"
  14. End Sub
  15.  
  16. Sub PlayAVI (sAviFile, vHeight%, pix As Form)
  17.  
  18.     Dim sRet$
  19.  
  20.    '*** This will open the AVIVideo and create a child window on the
  21.    '*** form where the video will display. Animation is the device_id.
  22.  
  23.     ErrorStr = Space(255)
  24.     retstr = Space(255)
  25.  
  26.     On Error GoTo CloseAVI
  27.  
  28.  
  29.  
  30.         Cmd = Spa