如何将列表框所有项目转换为文本框... vb [英] How to Convert Listboxes All Items to Textbox…vb

问题描述

我如何将Listbox1和Listbox2项目转换为Textbox。 ON按钮按..



转换格式：>



{Listbox1 .item1 / listbox2.item1}，{listbox1.item2 / listbox2.item2}，{listbox1.item3 / listbox2.item3} 等等...



i试过很多代码但是不要工作......`

 私人  Sub  Button1_Click（发件人作为 对象，e  As  EventArgs）句柄 Button1.Click 
 TextBox1.Lines = ListBox1。 Items.Cast（ of   String ）。ToArray& ListBox2.Items.Cast（ Of   String ）。ToArray 
 结束 Sub` 

解决方案

有很多方法可以做到这一点。我最喜欢的是遍历列表框并将每个项目文本添加到文本框中。我希望这有帮助？

 私人  Sub  Button1_Click（发件人作为 对象，e  As  EventArgs）句柄 Button1.Click 
 对于 每个项作为 字符串 在 ListBox1.Items 
 TextBox1.Text + = item.ToString& vbCrLf 
 下一步 
 
 对于 每个 item2 作为 字符串  In  ListBox2.Items 
 TextBox1.Text + = item2.ToString& vbCrLf 
 下一步 
 结束  Sub  

How i cam convert Listbox1 And Listbox2 items to Textbox. ON Button Press..

Convert Format:>

{Listbox1.item1/listbox2.item1} , {listbox1.item2/listbox2.item2} , {listbox1.item3/listbox2.item3} and So On...

i tried Many Codes But Dont WORK...`

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Lines = ListBox1.Items.Cast(Of String).ToArray & ListBox2.Items.Cast(Of String).ToArray
End Sub`

解决方案

There are many ways of doing this. My favorite is to loop through the list box and taking each items text and adding that to the text box. I hope this helps?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each item As String In ListBox1.Items
            TextBox1.Text += item.ToString & vbCrLf
        Next

        For Each item2 As String In ListBox2.Items
            TextBox1.Text += item2.ToString & vbCrLf
        Next
End Sub

这篇关于如何将列表框所有项目转换为文本框... vb的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！