Selbstreferenzierungsschleife Fehler

Question

Ich habe eine Selbstreferenzierungsschleife. Ich habe versucht, einige der anderen Antworten zu lesen und umzusetzen, aber es scheint nicht zu funktionieren. Ich habe eine Klasse, die mein Objekt als JSON-Datei (Methode) speichert. Es versucht, das Objekt zu serialisieren, löst jedoch eine Ausnahme für eine sich selbst referenzierende Schleife aus. Das Objekt, das ich serialisiere, ist der zweite Block (Klasse). Wie kann ich das Problem beheben? Es hat funktioniert, bis ich Buttons hinzugefügt habe, also gehe ich davon aus, dass ich mit den Handlern etwas falsch mache, aber ich habe wirklich keine Ahnung.

Public Sub saveLocalSettings() 
     Console.WriteLine("saveLocalSettings") 
     If Not Directory.Exists(_SettingsFile) Then 
      Directory.CreateDirectory(_SettingsFile) 
     End If 
     ' Try 
     Dim strConfigurationManager As String = JsonConvert.SerializeObject(_LocalSettings, PreserveReferencesHandling.Objects) 
     'Dim strConfigurationManager As String = JsonConvert.SerializeObject(_LocalSettings, Newtonsoft.Json.ReferenceLoopHandling.Ignore) 
     lm.writeFile(_SettingsFile + _FileName, strConfigurationManager, True) 
     ' Catch ex As Exception 
     ' End Try 
    End Sub 

Imports Newtonsoft.Json 
Public Class RGOSetting 
    Public Property id As String 
    Public Property title As String 
    Private mtbTitle As New MaskedTextBox 
    Public Property sharestatus As Integer 
    Public Property settingstring As String 
    Public Property userid As Integer 
    Public Property setting_profiles As New List(Of RGOSettingProfile) 
    Private rgolcm As RGOLeagueChampionManager 
    ' Private rgolssm As RGOLeagueSumSpManager 
    Public btnUpdate As New Button 
    Public btnReset As New Button 
    Public btnClear As New Button 
    End Class 

Public Class RGOSettingProfile 
    Public Property champion As LeagueChampion 
    Public Property summoner_spells As New List(Of LeagueSummonerSpell) 

    Public Sub New() 
    End Sub 

Public Sub New(ByVal strChampion As String, ByVal strSummonerSpell As List(Of String)) 
End Sub 
End Class 

Answer 1

I ended tun dies mit den Tasten und es mir erlaubt, die Objekte zu speichern:

<JsonIgnore> Public btnUpdate As New Button 
<JsonIgnore> Public btnReset As New Button 
<JsonIgnore> Public btnClear As New Button