-
Notifications
You must be signed in to change notification settings - Fork 1
/
clsMediaItem.vb
63 lines (51 loc) · 1.44 KB
/
clsMediaItem.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Public Class clsMediaItem
Private strFullPath As String
Public ReadOnly Property FullPath() As String
Get
Return strFullPath
End Get
End Property
Private strHeadline As String
Public ReadOnly Property Headline() As String
Get
Return strHeadline
End Get
End Property
Private intMediaID As Integer
Public ReadOnly Property MediaID() As Integer
Get
Return intMediaID
End Get
End Property
Private intOrder As Integer
Public ReadOnly Property Order() As Integer
Get
Return intOrder
End Get
End Property
Public Overrides Function ToString() As String
Dim strToString As String = intOrder.ToString & ". "
If strHeadline <> "" Then
strToString = strToString & strHeadline
Else
strToString = strToString & strFullPath
End If
Return strToString
End Function
Public Function ListViewItems() As String()
Dim lvi(2) As String
lvi(0) = Me.ToString
lvi(1) = intMediaID.ToString
lvi(2) = strFullPath
Return lvi
End Function
Public Sub New(ByVal row As DataRow)
If cfun.HasNoValue(row("Order")) Then
intOrder = 0
Else
intOrder = row("Order")
End If
intMediaID = row("FileID")
strFullPath = row("FullPath")
End Sub
End Class