28 lines
742 B
VB.net
28 lines
742 B
VB.net
Imports Newtonsoft.Json
|
|
Public Class Settings
|
|
|
|
Public Property Categories As List(Of Category)
|
|
|
|
Public Sub New()
|
|
Load()
|
|
End Sub
|
|
|
|
Private Sub Load()
|
|
If My.Settings.CategoryList IsNot Nothing AndAlso My.Settings.CategoryList.Trim.Length > 0 Then
|
|
Try
|
|
Categories = JsonConvert.DeserializeObject(Of List(Of Category))(My.Settings.CategoryList)
|
|
Catch ex As Exception
|
|
Categories = New List(Of Category)
|
|
End Try
|
|
Else
|
|
Categories = New List(Of Category)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub Save()
|
|
My.Settings.CategoryList = JsonConvert.SerializeObject(Categories)
|
|
My.Settings.Save()
|
|
End Sub
|
|
|
|
End Class
|