从文本框中添加内容到LISTBOX控件里

Question

如果是在文本框件里面有:
AAAA
BBBB
CCCC
DDDD
那么怎么添加到LISTBOX控件里面呢. 

Answer 1

Option ExplicitPrivate Sub Command1_Click()
Dim S As Variant
Dim I As Integer
S = Split(Text1.Text, vbCrLf)
For I = 0 To UBound(S)
List1.AddItem S(I)
Next
End Sub

Answer 2

同上
 补充一下： 你输入的数据要空格分开， 不然检测不准确，如：AAAA空格BBBB空格CCCC空格DDDD。 

Answer 3

一楼的方法的Variant是什么意思啊，你这个方法挺简单的，学习了，我要写的话肯定就麻烦多了，顶你。

Answer 4

用list.additem 方法,VB的对象浏览器是个好东西,到那里去查下,

Answer 5

Split：返回一个下标从0开始的一维数组，它包含指定数目的子符串例如：dim mystring,myarray
mystring=split("www.hao123.com",".")
'第一个参数：包含子字符中和分隔符的字符中表达式。
'第二个参数：用于标识子字符串边界的字符串字符（分隔符）
'myarray(0)="www"
'myarray(1)="hao123"
'myarray(2)="com"