home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD137681142001.psc / Karaoke.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-01-10  |  1.9 KB  |  50 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Karaoke"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. Private Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByRef dwParam2 As Any) As Long
  13. Private Declare Function midiOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
  14. Private Declare Function midiOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
  15.  
  16.  
  17. Private mvarTitles As Collection
  18. Private mvarIsLyric As Boolean
  19. Private mvarQuarterNote As String
  20. Public Event Playing(ByVal CurrentWord As String, ByVal WordLen As Long, ByVal WordStart As Long, ByVal CurrentText As String, ByVal PreviousText As String, ByVal NextText As String)
  21. Public Event TimePosition(ByVal CurrentTime As Long)
  22. Public Event Status(ByVal Status As Long)
  23. Private mvarVelocity As Integer
  24. Private mvarMusicLength As Long
  25. Private mvarMusicTimeLength As String
  26. Private mvarGetMusicVolume As Long
  27. Private mvarTextLyric As String
  28.  
  29.  
  30. Private Type MCI_OPEN_PARMS
  31.         dwCallback As Long
  32.         wDeviceID As Long
  33.         lpstrDeviceType As String
  34.         lpstrElementName As String
  35.         lpstrAlias As String
  36. End Type
  37. Private OpenParms As MCI_OPEN_PARMS
  38.  
  39. Private Type MCI_PLAY_PARMS
  40.         dwCallback As Long
  41.         dwFrom As Long
  42.         dwTo As Long
  43. End Type
  44. Private PlayParms As MCI_PLAY_PARMS
  45. E(End Type
  46. Privats Long
  47. E
  48.         dwTo TEng, ByVal PreviousText A  dwFrom As Long
  49.      tts Long3s Long3s Long3s Long3s 
  50. Private mvarn reviousText A  dwFrom As LongrviousText A ss Long3sEAs MRUongrviousText A ss Long3sEAs MRUongrviousTiceID As Long, lpdwVolu