Question

VB中如何把TEXT中的多行文本添加到LISTBOX中，而且是一行一行显示

问题是这样的。一个窗体，分别添加 command textbox listbox 三个控件 。现要求程序功能为： 在text1 中输入多行文本 比如10行 点一下command1 那么 text1 中的多行文本 就输入到 list1 中。在 list1 中同样以 10行 显示出来。 我这样写出来的他能输入到 list1 中 但是全显示在一行里 代码如下 ： List1.AddItem Text1.Text 望指点。。新学。

Answer 1

1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上添加一个Text控件、一个Command控件和一个List控件；设置Text1的Mutiline属性为True；Command1的Caption属性设置为“转换”；

3、双击Command1控件，进入代码编辑界面，输入如下代码：

Private Sub Command1_Click()
Dim s() As String
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
   List1.AddItem (s(i))
Next i
End Sub
Private Sub Form_Load()
Text1.Text = "What are you doing?" & vbCrLf & "What is the next?" & vbCrLf & "who r u?"
End Sub

4、运行工程，单击转换按钮，可以看到Text中的多行文本添加到List中；

Answer 2

不能这样做的，

首先要把Text1中的文字分成10行，分别用List1的Additem方法添加进去才行

具体方法是用Instr函数查找TextBox的换行符VbCrLf（或者Chr(13) & chr(10))

然后利用Mid函数提取每两个换行符之间的字符，然后再分别添加进ListBox

Answer 3

试试：

Private Sub Command1_Click()
Dim a
a = Split(Text1.Text, vbCrLf)
For i = LBound(a) To UBound(a)
List1.AddItem a(i)
Next
End Sub