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 / track.cls < prev   
Encoding:
Text File  |  1994-10-26  |  1.2 KB  |  50 lines
  1. Version 1.0 Class
  2. Attribute VB_Name = "Track"
  3. Attribute VB_Creatable = False
  4. Attribute VB_Exposed = False
  5. Option Explicit
  6.  
  7. ' Track class -- TRACK.CLS
  8. '   Represents a single song on a CD Title.
  9. '
  10. '   Properties:
  11. '       Name
  12. '       StartPosition
  13. '       Length
  14. '       Parent
  15. '
  16.  
  17. ' Name property
  18. ' (Read/write)
  19. Public Name As String
  20.  
  21. ' StartPosition property
  22. ' (Read/write)
  23. Public StartPosition As Long
  24.  
  25. ' Private parent variable.
  26. Private mParent As Object
  27.  
  28. ' Length property
  29. ' (Read/write)
  30. Public Length  As Long
  31.  
  32. Public Property Get Application() As Object
  33.     Set Application = Application
  34. End Property
  35.  
  36. Public Function Parent(Optional objSetting, Optional iFlag)
  37.     If IsMissing(objSetting) And IsMissing(iFlag) Then
  38.         Set Parent = mParent
  39.     ElseIf Not IsMissing(objSetting) And Not IsMissing(iFlag) Then
  40.         If iFlag = FLAG_INTERNAL Then
  41.             Set mParent = objSetting
  42.         Else
  43.             Err.Raise 5, Application.Name, "Invalid flag -- can't set Parent outside of application."
  44.         End If
  45.     Else
  46.         Err.Raise 5, Application.Name, "Can't set Parent outside of application."
  47.     End If
  48. End Function
  49.  
  50.