سؤال عن حفظ عدة فيم Array في Setting للبرنامج

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim o = New MySetting("MyVbKey")

o.SetValue("ok", New String() {"1", "2", "3"}) ' add array!

o.Append("ok", "4") ' add value to that array

For Each x As String In o.GetArray("ok") ' get array

MsgBox(x)

Next

o.SetValue("name", "test!") ' add string

o.Append("name", "test2") ' string name += test2

MsgBox(o.GetValue("name"))

o.DeleteMySetting() ' delete my key!!

End Sub

End Class

Class MySetting ' by njq8 2012/01/09

Public ReadOnly Key As String

Private RG As Microsoft.Win32.RegistryKey

Private reg As Microsoft.Win32.Registry

Sub New(ByVal Key As String)

RG = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("software", True).CreateSubKey(Key)

Me.Key = Key

End Sub

Sub DeleteMySetting()

reg.CurrentUser.DeleteSubKey("software\" & Key, False)

End Sub

Sub SetValue(ByVal Name As String, ByVal Value As String)

RG.SetValue(Name, Value)

End Sub

Sub SetValue(ByVal Name As String, ByVal Value As Array)

RG.SetValue(Name, Value)

End Sub

Sub DelteValue(ByVal Name As String)

RG.DeleteValue(Name, False)

End Sub

Sub Append(ByVal Name As String, ByVal value As String)

Dim v As Object = RG.GetValue(Name, "")

Dim L As New List(Of String)

If v.GetType.ToString.Contains("String[]") Then

L.AddRange(v)

L.Add(value)

RG.SetValue(Name, L.ToArray)

Else

v += value

RG.SetValue(Name, v)

End If

End Sub

Function GetValue(ByVal Name As String) As String

Return RG.GetValue(Name, Nothing)

End Function

Function GetArray(ByVal Name As String) As String()

Return RG.GetValue(Name, Nothing)

End Function

End Class