Question

VB text 从第一行到最后一行 ,一行一行的导入List1

按一下按钮 从第一行开始 按一下导入第一行 按第二下导入第二行。

Answer 1

Dim str() As String

Private Sub Command1_Click()
Static row As Integer
Dim i As Integer
If row = 0 Then
str = Split(Text1.Text, vbCrLf)
ElseIf row <= UBound(str) Then
While str(row) = vbCrLf
row = row + 1
Wend
List1.AddItem str(row)
End If
row = row + 1
End Sub

追问

代码不管用

追答

我试过可以，这个行是以文本中的回车来确定的，不是文本框自动换行的那个行。

追问

嗯,确实可以用了
如果要是一行一行的往text2.text 里到能 按一下按钮导入第一行 第二下导入第二行.....