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
しかし、私は決して等しいとは思いません。一致するものはありません。
設定から値を取得して、テキストボックスに入れてみました。したがって、テキストボックスの値は設定と同じであると確信していますが、コードはそれを認識しません。
どこが間違っていますか?
それを行う別の方法はありますか?