求助：在vb6.0中如何将listbox中的所有内容显示在Textbox中？或者是将Listbox里的所有内容传递给一个数组？谢谢诶！
如“上面标题”，谢谢诶！

[解决办法]

VB code

Option ExplicitDim strT() As StringPrivate Sub Command1_Click()    Dim i As Long    ReDim strT(0 To List1.ListCount - 1)    For i = 0 To List1.ListCount - 1        Text1.Text = Text1.Text & List1.List(i) '导入文本框中        strT(i) = List1.List(i): Debug.Print strT(i) '导入数组中    NextEnd SubPrivate Sub Form_Load()    Dim i As Long    Text1.Text = ""    For i = 0 To 10        List1.AddItem "第" & i + 1 & "项"    NextEnd Sub
[解决办法]
Text1.Text = Text1.Text & List1.List(i) & VbCrLf
[解决办法]
思路：
存入数组方法：使用循环将ListBox中的每行数据逐一写入数组中。
写入TextBox方法：设置TextBox的MultiLine=True，通过循环将ListBox中的数据一行一行的写入TextBox，并使用vBCrlf分行。
[解决办法]
   For i = 0 To List1.ListCount - 1
       Text1.Text = Text1.Text + List1.List(i) + vbcrlf