20 lines
401 B
VB.net
20 lines
401 B
VB.net
Imports Newtonsoft.Json
|
|
<Serializable>
|
|
Public Class Category
|
|
|
|
Public Property Key As String
|
|
Public Property Text As String
|
|
Public Property Color As Color
|
|
Public Property Exclude As Boolean
|
|
|
|
Public Sub New()
|
|
End Sub
|
|
|
|
Public Sub New(Key As String, Text As String, Color As Color)
|
|
Me.Key = Key
|
|
Me.Text = Text
|
|
Me.Color = Color
|
|
End Sub
|
|
|
|
End Class
|