25 lines
648 B
VB.net
25 lines
648 B
VB.net
' Created because Song.Name is not what it is being set to.
|
|
' also because when loading songs from uris, it doesn't calculate its duration
|
|
Public Class SongContainer
|
|
|
|
Public Song As String
|
|
Public Name As String
|
|
Public Origin As String
|
|
Public Duration As TimeSpan
|
|
|
|
Public Sub New(song As String, name As String, duration As TimeSpan, origin As String)
|
|
Me.Song = song
|
|
Me.Name = name
|
|
Me.Origin = origin
|
|
Me.Duration = duration
|
|
End Sub
|
|
|
|
|
|
Public ReadOnly Property IsStandardSong() As Boolean
|
|
Get
|
|
Return (Me.Origin = "Content")
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|