自己参照ループエラー

Question

自己参照ループがあります。私は他の答えを読んで実装しようとしましたが、うまくいかないようです。私はオブジェクトをjsonファイル（メソッド）として保存するクラスを持っています。オブジェクトをシリアライズしようとしますが、自己参照ループの例外をスローします。私が直列化しているオブジェクトは、2番目のブロック（クラス）です。問題を解決するにはどうすればよいですか？ボタンを追加するまでは機能していたので、ハンドラに何か間違っていると仮定していますが、実際にはわかりません。

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

私はボタンでこれをやってしまった、それは私がオブジェクトを保存することができ：

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