0

我有一个字符串,可以这么说,我在其中创建了一个模板。

{

Dim myvariable as string
Richtextbox1.text = Richtextbox1.text & "The dog jumped over the" & myvariable & "to find the fox."

}

我有一个列表框,其中包含加载到变量示例中的选项列表:栅栏、存储桶等。

所以这些句子读起来像

  1. 狗跳过栅栏去找狐狸
  2. 狗跳过水桶去找狐狸

现在我将它编码为显示在富文本框中,但所有内容都在同一个富文本框中。

我试图在每个循环结束时将字符串加载到一个数组中,这样我就可以将每个句子分开。

最好的方法是什么?

谢谢

4

1 回答 1

0

假设您的 ListBox 控件的名称是myLstBox,而您的 RichTextBox 控件是myRchBox

Private Sub WriteOnRichTextBox()
    For Each xStr As String In myLstBox.Items
         myRchBox.AppendText("The dog jumped over the " & _
                              xStr & " to find the fox.")
         myRchBox.AppendText(ControlChars.NewLine)
    Next
End Sub

您需要循环在列表框中找到的所有项目。

于 2012-05-28T14:22:44.597 回答