RichTextBoxをStringCollectionの項目値に設定しないコード

Question

そして、この問題をあなたに伝えたいと思います。

コードのこの作品：

Dim np As New notepad 
np.RichTextBox1.Text = My.Settings.SDBodies.ToString(ListBox1.SelectedIndex) 

は何もしません。それは、行われていることをやろうとしています。 RichTextBoxテキストをStringCollectionのItem Valueに設定することがあります。

はい、メモ帳およびRichTextBox1が定義されています。

1. RichTextBox1は、私が話しているRichTextBoxです。
2. そしてメモ帳はRichTextBox1が入っている形です。

助けてください！

Answer 1

新コード：

If My.Settings.SDBodies Is Nothing Then 
        My.Settings.SDBodies = New System.Collections.Specialized.StringCollection 
       End If 

       Dim np As New notepad 
       ListBox1.Enabled = False 
       For i = 0 To My.Settings.SDBodies.Count - 1 
        If i = ListBox1.SelectedIndex Then 
         np.RichTextBox1.Text = My.Settings.SavedDocuments(i) 
         ListBox1.Enabled = True 
        Else 
         ' Do nothing 
        End If 
       Next