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