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

Question

如“上面标题”，谢谢诶！

Answer 1

Option ExplicitDim strT() As String
Private 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) '导入数组中
    Next
End SubPrivate Sub Form_Load()
    Dim i As Long
    Text1.Text = ""
    For i = 0 To 10
        List1.AddItem "第" & i + 1 & "项"
    Next
End Sub

Answer 2

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

Answer 3

思路：
存入数组方法：使用循环将ListBox中的每行数据逐一写入数组中。
写入TextBox方法：设置TextBox的MultiLine=True，通过循环将ListBox中的数据一行一行的写入TextBox，并使用vBCrlf分行。

Answer 4

   For i = 0 To List1.ListCount - 1
        Text1.Text = Text1.Text + List1.List(i) + vbcrlf