home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD40183162000.psc / SoundModule.bas < prev    next >
Encoding:
BASIC Source File  |  2000-03-06  |  1.0 KB  |  33 lines
  1. Attribute VB_Name = "SoundModule"
  2. Const snd_async = &H1
  3. Const snd_nodefault = &H2
  4. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  5. Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  6.  
  7.  
  8. Sub LoadMidi(Filename As String, alias As String)
  9.  
  10. Dim result As Integer
  11. result = mciSendString("open " & Filename & ".mid type sequencer alias " & alias, 0&, 0, 0)
  12. End Sub
  13. Sub PlayMidi(alias As String)
  14. Dim result As Integer
  15. result = mciSendString("play " & alias, 0&, 0, 0)
  16. End Sub
  17. Sub StopMidi(alias As String)
  18.  
  19. Dim result As Integer
  20. result = mciSendString("close " & alias, 0&, 0, 0)
  21. End Sub
  22.  
  23.  
  24. Sub PlayWave(alias As String)
  25. Dim result As Integer
  26. result = sndPlaySound(alias & ".wav", snd_async Or snd_nodefault)
  27. End Sub
  28. Sub CloseSound()
  29. Dim result As Integer
  30. result = mciSendString("close all", 0&, 0, 0)
  31.  
  32. End Sub
  33.