将项目添加到列表框

Question

我可以将文本框中的特定行添加到列表框中，如下所示：

        ListBox1.Items.Add(TextBox1.Lines(0))
        ListBox1.Items.Add(TextBox1.Lines(1))
        ListBox1.Items.Add(TextBox1.Lines(2))
        ListBox1.Items.Add(TextBox1.Lines(3))
        ListBox1.Items.Add(TextBox1.Lines(4))
        ListBox1.Items.Add(TextBox1.Lines(5))
        ListBox1.Items.Add(TextBox1.Lines(6))
        ListBox1.Items.Add(TextBox1.Lines(7))
        ListBox1.Items.Add(TextBox1.Lines(8))

有更简单的方法吗？从line0到line50？ 注释：不是所有行。

Answer 1

这会解决您的问题吗？

For i = 0 To 50
  If i <> 10 And i <> 20 Then
    ListBox1.Items.Add(TextBox1.Lines(i))
  End If
Next i

=＆GT;这将添加除第10行和第20行之外的所有项目。