Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If My.Settings.TestCol Is Nothing Then
            MsgBox("Testcol is nothing")
        Else
            MsgBox("Testcol ist nicht nothing")
        End If
 
        Dim col As New System.Collections.Specialized.NameValueCollection
        col.Add("Name", "Value")
        col.Add("Name2", "Value")
 
        My.Settings.TestCol = col
        My.Settings.Save()
    End Sub
End Class

Beitrag wurde zuletzt am 30.07.09 um 08:52:41 editiert.