Question

VB如何一行一行读取文本框的内容

Answer 1

Dim
i
As
Integer,
r,
s
As
String
s
=
Text1.Text
r
=
Split(s,
Chr(13)
+
Chr(10))
For
i
=
0
To
UBound(r)
Print
r(i);
Next
i
这段代码肥
文本框
的每一行作为元素放在数组R中，并在窗体上显示出来。