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

Question

如题所述

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中，并在窗体上显示出来。