home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VirtualDig6926546200.psc / cMidiPlayer.cls < prev    next >
Encoding:
Visual Basic class definition  |  2002-01-21  |  1.8 KB  |  52 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cMidiPlayer"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  15.  
  16. Public m_hWnd As Long
  17.  
  18. Public Sub Create(hWnd As Long)
  19.     m_hWnd = hWnd
  20. End Sub
  21.  
  22. Public Function PlayMusic(Filename As String) As Boolean
  23.     If mciSendString("close all", ByVal 0&, 0, ByVal 0&) <> 0 Then PlayMusic = False: Exit Function
  24.     If mciSendString("open " & Filename & " type sequencer alias MUSIC", ByVal 0&, 0, ByVal 0&) <> 0 Then PlayMusic = False: Exit Function
  25.     If mciSendString("play MUSIC from 0 notify", ByVal 0&, 0, m_hWnd) <> 0 Then PlayMusic = False: Exit Function
  26.     PlayMusic = True
  27. End Function
  28.  
  29. Public Sub StopMusic()
  30.     mciSendString "close all", ByVal 0&, 0, ByVal 0&
  31. End Sub
  32.  
  33. Public Function PauseMusic() As Boolean
  34.     If mciSendString("stop MUSIC", ByVal 0&, 0, ByVal 0&) <> 0 Then PauseMusic = False: Exit Function
  35.     PauseMusic = True
  36. End Function
  37.  
  38. Public Function ResumeMusic() As Boolean
  39.     If mciSendString("play MUSIC notify", ByVal 0&, 0, ByVal 0&) <> 0 Then ResumeMusic = False: Exit Function
  40.     ResumeMusic = True
  41. End Function
  42.  
  43. Public Function RestartMusic() As Boolean
  44.     If mciSendString("play MUSIC from 0 notify", ByVal 0&, 0, m_hWnd) <> 0 Then RestartMusic = False: Exit Function
  45.     RestartMusic = True
  46. End Function
  47.  
  48. Private Sub Class_Terminate()
  49.     StopMusic
  50. End Sub
  51.  
  52.