Question

请问VB中listbox中有n条记录，怎么样实现点击按钮将所有的项目全部显示到textbox啊，麻烦提供代码

比如list1的列表为 “你好，你好，你好。。。。。”将里面的全部显示到textbox

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Text1 = ""
For i = 0 To List1.ListCount - 1
Text1 = Text1 & List1.List(i) & "；"
Next
End Sub

Answer 2

For i = 0 To List1.ListCount-1

Text1.Text = Text1.Text & List1.List(i)
Next

Answer 3

先设置textbox多行显示
For i = 0 To n
Text1.Text = Text1.Text & List1.List(i) & vbCrLf
Next

追问

但是实际上只显示了第一条啊，我要显示所有的啊

追答

textbox的multiline属性选择为TRUE
第一句改成这个好点
for i= 0 to list1.listcount-1