VB.net save a list to settings
Hi. I was given the following code that I use to save a list of items
against a class object. I want to be able to assign this to a Setting
How do I do this so that when I close and open the project I can
reuse the list?
Module Module1
Sub Main()
Dim objCls As New Class1
objCls.JointTables = "Tab1"
objCls.JointTables = "Tab2"
objCls.JointTables = "Tab3"
objCls.JointTables = "Tab2"
End Sub
End Module
Public Class Class1
Private _pJoinTables As String
Public Sub New()
_pJoinTables = ""
End Sub
Property JointTables() As String
Get
Return _pJoinTables
End Get
Set(ByVal sValue As String)
If (Not _pJoinTables.Contains(sVal
_pJoinTables = _pJoinTables & "," & sValue 'Error on this line first &
End If
End Set
End Property
End Class
against a class object. I want to be able to assign this to a Setting
How do I do this so that when I close and open the project I can
reuse the list?
Module Module1
Sub Main()
Dim objCls As New Class1
objCls.JointTables = "Tab1"
objCls.JointTables = "Tab2"
objCls.JointTables = "Tab3"
objCls.JointTables = "Tab2"
End Sub
End Module
Public Class Class1
Private _pJoinTables As String
Public Sub New()
_pJoinTables = ""
End Sub
Property JointTables() As String
Get
Return _pJoinTables
End Get
Set(ByVal sValue As String)
If (Not _pJoinTables.Contains(sVal
_pJoinTables = _pJoinTables & "," & sValue 'Error on this line first &
End If
End Set
End Property
End Class
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
You could use XML serialization for this purpose. For example, to dump the object out as XML to a string setting you could do:
...and to restore it from the setting you could do:
Since the data is XML when it is serialized, you could open the file outside of code to make changes--if you wanted to.
Dim strWriter As New System.IO.StringWriter()
Dim serializer As New System.Xml.Serialization.XmlSerializer(GetType(Class1))
serializer.Serialize(strWriter, objCls)
My.Settings.TheList = strWriter.ToString()
My.Settings.Save()
...and to restore it from the setting you could do:
Dim strReader As New System.IO.StringReader(My.Settings.TheList)
Dim deserializer As New System.Xml.Serialization.XmlSerializer(GetType(Class1))
Dim restored As Class1 = DirectCast(deserializer.Deserialize(strReader), Class1)
Since the data is XML when it is serialized, you could open the file outside of code to make changes--if you wanted to.
Premium Content
You need an Expert Office subscription to comment.Start Free Trial