36 lines
991 B
VB.net
36 lines
991 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 AudioType As String
|
|
|
|
Public Sub New(song As String, name As String, duration As TimeSpan, origin As String, type As String)
|
|
Me.Song = song
|
|
Me.Name = name
|
|
Me.Origin = origin
|
|
Me.Duration = duration
|
|
Me.AudioType = type
|
|
End Sub
|
|
|
|
Public ReadOnly Property IsLoop() As Boolean
|
|
Get
|
|
If Me.Song.Contains("intro\") OrElse Me.Song.Contains("_intro") Then
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property IsStandardSong() As Boolean
|
|
Get
|
|
Return (Me.Origin = "Content")
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|