VB将文本框中的数据添加到列表框中

VB将文本框中的数据添加到列表框中

Dim s() As String, i As Long
s = Split(Text1.Text, vbCrLf)
For i = LBound(s) To UBound(s)
    List1.AddItem s(i)
Next i追问不行呀追答能不能描述详细一点，比如当什么时候添加，文本的分隔符是什么

Private Sub Command1_Click()
List1.AddItem (Text1.Text)
End Sub
涉及到数组的话，定义下即可，回复采纳必回答。

其实也没什么难

假如文本框是text1，列表框是list1,那么 list1.addItem text1就好。

如果你是输入框input1，那么先定义个变量吧

a=input1(…………)
list1.addItem a

list.add(txt1.text)

Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub