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

Question

如题所述

Answer 1

其实也没什么难

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

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

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

Answer 2

Private Sub cmdADD_Click()

If Trim$(Text1.Text) <> "" Or (Trim$(Text1.Text) = "" And Not CBool(Check1.Value)) Then

List1.AddItem Text1.Text

List1.ListIndex = List1.ListCount - 1

Text1.Text = ""

End If

End Sub

Answer 3

Private Sub Command1_Click()

List1.AddItem Text1.Text

End Sub

Answer 4

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

Answer 5

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

追问

不行呀

追答

能不能描述详细一点，比如当什么时候添加，文本的分隔符是什么

本回答被提问者和网友采纳