PageRenderTime 23ms CodeModel.GetById 14ms app.highlight 5ms RepoModel.GetById 1ms app.codeStats 0ms

/Source Code/SongDatabase/PlayListItem.vb

#
Visual Basic | 42 lines | 13 code | 8 blank | 21 comment | 0 complexity | cd35f52c639bdb84437f91076e7730f8 MD5 | raw file
 1Imports PowerSong.SongDatabase.Items
 2
 3''' <summary>
 4''' Represents an item in a play list.
 5''' </summary>
 6Public Class PlayListItem
 7
 8    ''' <summary>
 9    ''' Gets or sets the <see cref="PowerSong.SongDatabase.Items.BaseItem" />.
10    ''' </summary>
11    ''' <value>The item this play list entry represents.</value>
12    Public Property Item() As BaseItem = Nothing
13
14    ''' <summary>
15    ''' Gets or sets the style details of this play list item.
16    ''' </summary>
17    ''' <value>The style details of the play list item.</value>
18    Public Property Style() As Style = Nothing
19
20    ''' <summary>
21    ''' Gets or sets the overriding background details.
22    ''' </summary>
23    ''' <value>The details for how the background is overridden in this play list item.</value>
24    Public Property OverrideBackground() As OverrideBackground = Nothing
25
26    ''' <summary>
27    ''' Initializes a new instance of the <see cref="PlayListItem" /> class.
28    ''' </summary>
29    ''' <param name="item">The item to associate with the play list item.</param>
30    ''' <param name="style">The style for the item.</param>
31    ''' <param name="overrideBackground">Details concerning how the background will be overridden.</param>
32    Public Sub New(ByVal item As BaseItem, _
33                   ByVal style As Style, _
34                   Optional ByVal overrideBackground As OverrideBackground = Nothing)
35
36        Me.Item = item
37        Me.Style = style
38        Me.OverrideBackground = overrideBackground
39
40    End Sub
41
42End Class