home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch17code / player.cls < prev    next >
Encoding:
Text File  |  1995-08-13  |  2.4 KB  |  110 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Application"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. ' Application class -- PLAYER.CLS
  9. '   Controls the frmCD form.
  10. '
  11. '   Methods:
  12. '
  13. '   Properties:
  14. '
  15. Option Explicit
  16.  
  17. Private mCurrentTitle As New Title
  18.  
  19. ' Name property (read only) -- can't do this!
  20. ' Public Const Name = "CD Player"
  21. ' Name property
  22. Public Property Get Name()
  23.     Name = "CD Player"
  24. End Property
  25.  
  26. ' Create method.
  27. Public Sub Class_Initialize()
  28.     ' Initialize Control Panel form.
  29.     Set ControlPanel = frmControlPanel
  30.     ' Display the control panel.
  31.     ControlPanel.Show
  32.     ' Open the MCI control.
  33.     ControlPanel.Command = "Open"
  34.     ' Create a new title
  35.     Set mCurrentTitle = mCurrentTitle.Create
  36.     ' Set the parent of the object
  37.     mCurrentTitle.Parent Me, FLAG_INTERNAL
  38. End Sub
  39.  
  40. ' Delete method.
  41. Private Sub Class_Terminate()
  42.     ControlPanel.Command = "Stop"
  43.     Unload ControlPanel
  44.     Set ControlPanel = Nothing
  45. End Sub
  46.  
  47. ' Play method
  48. Public Sub Play()
  49.      ControlPanel.Play
  50. End Sub
  51.  
  52. ' Eject method
  53. Public Sub Eject()
  54.      ControlPanel.Eject
  55. End Sub
  56.  
  57. ' StopCD method (Stop keyword is reserved)
  58. Public Sub StopPlaying()
  59.      ControlPanel.Command = "Stop"
  60. End Sub
  61.  
  62. ' PlayNext method
  63. Public Sub PlayNext()
  64.     ControlPanel.NextTrack
  65. End Sub
  66.  
  67. ' PlayPrevious method
  68. Public Sub PlayPrevious()
  69.     ControlPanel.PreviousTrack
  70. End Sub
  71.  
  72. ' Quit method.
  73. Public Sub Quit()
  74.     ' Stop playing.
  75.     ControlPanel.Command = "Stop"
  76.     ' End application.
  77.     End
  78. End Sub
  79.  
  80. ' Title property
  81. ' Read only
  82. Public Property Get Title() As Object
  83.     Set Title = mCurrentTitle
  84. End Property
  85.  
  86. ' Visible property.
  87. ' Delegates to form's Visible property.
  88. ' Read/Write
  89. Public Property Get Visible() As Boolean
  90.     Visible = ControlPanel.Visible
  91. End Property
  92.  
  93. Public Property Let Visible(bSetting As Boolean)
  94.     ControlPanel.Visible = bSetting
  95. End Property
  96.  
  97. Public Property Get ElapsedTime() As String
  98.     Dim strSeconds As String
  99.     Dim strMinutes As String
  100.     strSeconds = ControlPanel.ElapsedSeconds
  101.     If Len(strSeconds) = 1 Then strSeconds = "0" & strSeconds
  102.     strMinutes = ControlPanel.ElapsedMinutes
  103.     If Len(strMinutes) = 1 Then strMinutes = "0" & strMinutes
  104.     ElapsedTime = strMinutes & ":" & strSeconds
  105. End Property
  106.  
  107. Public Property Get Parent() As Object
  108.     Set Parent = Me
  109. End Property
  110.