0

我已将 4 个对象设置为MySettings(Usr1, Usr2, Usr3, Usr4) 作为 System.Collections.Specialized.StringCollection.

我以这种方式赋予它价值（并且它有效）：

For x As Integer = 1 To 4
    If My.Settings.Item("Usr" & x.ToString) Is Nothing Then
        My.Settings.Item("Usr" & x.ToString) = New System.Collections.Specialized.StringCollection _
            From {Me.TBox_Name.Text, _
                  Me.Tbox_Surname.Text, _
                  Me.TBox_City.Text, _
                  Me.CBox_Age.Text}
        My.Settings.Save()
        Saved = True
        Exit For
    End If
Next

当我尝试删除记录并将对象设置为空时，我无法匹配

这是我尝试过的：

Dim ToDelete = New System.Collections.Specialized.StringCollection _
            From {Me.TBox_Name.Text, _
                  Me.Tbox_Surname.Text, _
                  Me.TBox_City.Text, _
                  Me.CBox_Age.Text}
If Not My.Settings.Usr1 Is Nothing AndAlso My.Settings.Usr1.Equals(ToDelete) Then
    My.Settings.Usr1 = Nothing
End If
If Not My.Settings.Usr2 Is Nothing AndAlso My.Settings.Usr2.Equals(ToDelete) Then
    My.Settings.Usr2 = Nothing
End If
If Not My.Settings.Usr3 Is Nothing AndAlso My.Settings.Usr3.Equals(ToDelete) Then
    My.Settings.Usr3 = Nothing
End If
If Not My.Settings.Usr4 Is Nothing AndAlso My.Settings.Usr4.Equals(ToDelete) Then
    My.Settings.Usr4 = Nothing
End If

但我从来没有找到平等：没有匹配。
我尝试从设置中获取值并将它们放入文本框中。所以我确定文本框中的值等于我的设置，但我的代码无法识别它。
我哪里错了？
还有另一种方法吗？

4

1 回答 1

0

这是一个简单的命令。

My.Settings.Usr1.Clear()
于 2016-05-27T18:32:32.233 回答