home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / p / ptv3n5.zip / VBWAVE.ZIP / PLAYSND.GBL < prev    next >
Text File  |  1992-10-11  |  1KB  |  28 lines
  1. ' Booleans
  2. Global Const TRUE = -1
  3. Global Const FALSE = 0
  4.  
  5. Declare Sub MessageBeep Lib "User" (ByVal wType As Integer)
  6.  
  7. ' MsgBox parameters
  8. Global Const MB_ICONINFORMATION = 64   ' Information message
  9.  
  10. ' Show (form)
  11. Global Const MODAL = 1
  12. Global Const MODELESS = 0
  13.  
  14. '-------------------------------------------------------
  15. '                        sndPlaySound
  16. '-------------------------------------------------------
  17. Declare Function sndPlaySound Lib "mmsystem" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
  18.  
  19. ' Values for wFlags parameter
  20. Global Const SND_SYNC = &H0     ' Play Synchronously (default)
  21. Global Const SND_ASYNC = &H1    ' Play Asynchronously
  22. Global Const SND_NODEFAULT = &H2' Don't use default sound if requested sound
  23.                 ' can't be found
  24. Global Const SND_MEMORY = &H4   ' lpszSoundName Points to a Memory File
  25. Global Const SND_LOOP = &H8     ' Play sound continuously until next sndPlaySound
  26. Global Const SND_NOSTOP = &H10  ' Don't stop any currently playing sound
  27.  
  28.