问题是这样的。一个窗体，分别添加 command textbox listbox 三个控件 。现要求程序功能为： 在text1 中输入多行文本 比如10行 点一下command1 那么 text1 中的多行文本 就输入到 list1 中。在 list1 中同样以 10行 显示出来。 我这样写出来的他能输入到 list1 中 但是全显示在一行里 代码如下 ： List1.AddItem Text1.Text 望指点。。新学。
1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上添加一个Text控件、一个Command控件和一个List控件；设置Text1的Mutiline属性为True；Command1的Caption属性设置为“转换”；
3、双击Command1控件，进入代码编辑界面，输入如下代码：
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中；
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-06-03
不能这样做的，
首先要把Text1中的文字分成10行，分别用List1的Additem方法添加进去才行
具体方法是用Instr函数查找TextBox的换行符VbCrLf（或者Chr(13) & chr(10))
然后利用Mid函数提取每两个换行符之间的字符，然后再分别添加进ListBox
首先要把Text1中的文字分成10行，分别用List1的Additem方法添加进去才行
具体方法是用Instr函数查找TextBox的换行符VbCrLf（或者Chr(13) & chr(10))
然后利用Mid函数提取每两个换行符之间的字符，然后再分别添加进ListBox
第2个回答 推荐于2017-10-02
试试：
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本回答被提问者采纳
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本回答被提问者采纳
