在线的兄弟们，问下怎么样把list里的内容放到textbox 里去
在线的兄弟们，问下怎么样把list里的内容放到textbox 里去

[解决办法]
Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
Text1.Text = Text1.Text & List1.List(i) & vbCrLf
Next
End Sub

在属性窗口设置Text1的MultiLine为True

[解决办法]
对，就是这样做
[解决办法]
假如要把中的list的一放到text中呢，不是所有哦？
[解决办法]
Text1.Text=List1.SelectedItem.Text
[解决办法]
Private Sub Command1_Click()
Dim i As Long
Dim Str as string
For i = 0 To List1.ListCount - 1

str = str & List1.List(i) & vbCrLf
Next
text1.text =str
End Sub
改进一下哦