代码未将RichTextBox设置为StringCollection项值

Question

我想和你分享这个问题。

这段代码：

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

什么都不做。它应该做它应该做的事情。它可以将RichTextBox文本设置为StringCollection项值。

是，记事本和 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