none
[求助] 如果想把listbox里面所有的内容转到textbox该怎么办? RRS feed

  • 问题

  •     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim k As Integer
            Dim s3 As String

            For k = 0 To Me.ListBox1.Items.Count - 1 Step 1
                s3 = s3 & "Order :" & vbCrLf & vbCrLf & Me.ListBox1.SelectedItem & vbCrLf
            Next
            MessageBox.Show(s3)
        End Sub

    如上,想获取Listbox中的所有值然后放到textbox里面去(Messagebox只是为了让我提前看到,因为不在同一个form)

    2016年1月18日 14:27

答案

  • 我找到了方法了!!

       Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim k As Integer
            Dim s3 As String

            For Each Item in Me.ListBox1.Items
                s3 = s3 & vbcrlf & Item
            Next
            MessageBox.Show(s3)
        End Sub

    这样子MessageBox就显示的是listbox中的所有内容

    2016年1月19日 3:24