ナビゲーション履歴の保存およびロード

Private Sub SaveHistory(ByVal history As NavigationHistoryItem(), _
  ByVal current As String)
' ナビゲーション履歴が既に存在している場合、
' 削除します。
    If System.IO.File.Exists("C:\App_History\NavigationHistory.txt") Then
        System.IO.File.Delete("C:\App_History\NavigationHistory.txt")
    End If
' TextWriter を準備してそのパスを設定します。
    Dim tw As System.IO.TextWriter = _
        New System.IO.StreamWriter("C:\App_History\NavigationHistory.txt")
' 最初に現在の項目を書き込みます。履歴を
' 初期化するには、現在の項目は
' null にできません。
    tw.WriteLine(current)
' 履歴全体を繰り返し、項目ごとに
' 行を書き込みます。これを使用して、戻る履歴を
' 後でロードすることができます。
    For Each item As NavigationHistoryItem In history
        tw.WriteLine(item.Text)
    Next
' TextWriter を閉じます。
    tw.Close()
End Sub

private void SaveHistory
	(NavigationHistoryItem[] history, string current)
{
	// ナビゲーション履歴が既に存在している場合、
	// 削除します。
	if (System.IO.File.Exists(@"C:\App_History\NavigationHistory.txt"))
		System.IO.File.Delete(@"C:\App_History\NavigationHistory.txt");
	// TextWriter を準備してそのパスを設定します。
	System.IO.TextWriter tw =
		new System.IO.StreamWriter
		(@"C:\App_History\NavigationHistory.txt");
	// 最初に現在の項目を書き込みます。履歴を
	// 初期化するには、現在の項目は
	// null にできません。
	tw.WriteLine(current);
	// 履歴全体を繰り返し、項目ごとに
	// 行を書き込みます。これを使用して、戻る履歴を
	// 後でロードすることができます。
	foreach (NavigationHistoryItem item in history)
	{
		tw.WriteLine(item.Text);
	}
	// TextWriter を閉じます。
	tw.Close();
}

Private Sub LoadHistory()
' ナビゲーション履歴が存在することを確認します。
    If System.IO.File.Exists("C:\App_History\NavigationHistory.txt") = True Then
        Return
    End If
' ナビゲーション履歴ファイルを読むために
' TextReader を準備します。
    Dim tr As System.IO.TextReader = _
        New System.IO.StreamReader _
        ("C:\App_History\NavigationHistory.txt")
' 先頭行は現在の項目なので、
' 最初に読みます。
    Dim currentItem As NavigationHistoryItem = _
        New NavigationHistoryItem(tr.ReadLine())
' ArrayList を作成して
' 戻る履歴テキストを保持します。
    Dim history As ArrayList = New ArrayList()
' 読み取る行がまだあるので、
' ArrayList に行を読み取ります。
    While (tr.Peek() > 0)
        history.Add(tr.ReadLine())
    End While
' TextReader を閉じます。
    tr.Close()
' 戻る履歴を構成する NavigationHistoryItems
' の配列を作成します。
    Dim loadedHistory(history.Count) As NavigationHistoryItem
' ArrayList を繰り返し、そのコンテンツを
' NavigationHistoryItems の配列にコピーします。
    For i As Integer = 0 To history.Count Step 1
        loadedHistory(i) = New NavigationHistoryItem(history(i))
    Next
' 履歴を初期化します。
    Me.UltraToolbarsManager1.NavigationToolbar.InitializeHistory _
        (loadedHistory, Nothing, currentItem)
End Sub

private void LoadHistory()
{
	// ナビゲーション履歴が存在することを確認します。
	if (!(System.IO.File.Exists(@"C:\App_History\NavigationHistory.txt")))
		return;
	// ナビゲーション履歴ファイルを読むために
	// TextReader を準備します。
	System.IO.TextReader tr =
		new System.IO.StreamReader
		(@"C:\App_History\NavigationHistory.txt");
	// 先頭行は現在の項目なので、
	// 最初に読みます。
	NavigationHistoryItem currentItem =
		new NavigationHistoryItem(tr.ReadLine());
	// ArrayList を作成して
	// 戻る履歴テキストを保持します。
	ArrayList history = new ArrayList();
	// 読み取る行がまだあるので、
	// ArrayList に行を読み取ります。
	while (tr.Peek() > 0)
	{
		history.Add(tr.ReadLine());
	}
	// TextReader を閉じます。
	tr.Close();
	// 戻る履歴を構成する NavigationHistoryItems
	// の配列を作成します。
	NavigationHistoryItem[] loadedHistory =
		new NavigationHistoryItem[history.Count];
	// ArrayList を繰り返し、そのコンテンツを
	// NavigationHistoryItems の配列にコピーします。
	for (int i = 0; i < history.Count; i++)
	{
		loadedHistory[i] =
			new NavigationHistoryItem((string)history[i]);
	}
	// 履歴を初期化します。
	this.ultraToolbarsManager1.NavigationToolbar.InitializeHistory
		(loadedHistory, null, currentItem);
}