Question

我想将列表框中的所有项目保存为这种格式的字符串。

String = listboxitem1，listboxitem2，listboxitem3，listboxitem4，listboxitem5 ....

然后，一旦我想将它们拉回来，我可以使用断路器将其分解，然后再将它们加载到listbox1中。我对如何做到这一点有一个粗略的想法，但不确定。我想一次在listbox1中保存1项，然后用“，”将它们分开，然后将它放在字符串中。我不知道怎么把它放在代码中。

解！

发现解决方案是我将其加载到列表框中，然后我添加了此代码

For Each Item As Object In ListBox1.Items
                [StringNameHere!] &= (Item & ",")
Next

然后我通过在每个“，”

之间拆分字符串来加载字符串

Answer 1

我知道你已经解决了自己的问题。如果您不必将数据存储为字符串，则只需为您提供一个额外的建议。如果ListBox中的值包含＆＃34;，＆＃34; ？它会给你另一排，因为你用＆＃34;，＆＃34;在后面的部分。

尝试使用以下内容：

存储ListBox中的值：

 Dim itemListToStore As New List(Of ListItem)
 For Each item As ListItem In ListBox1.Items
     itemListToStore.Add(item)
 Next

使用存储值填充ListBox：

 For Each pullOutItem As ListItem In itemListToStore
     ListBox1.Items.Add(pullOutItem.Text)
 Next

这将克服分隔符的问题。

Answer 2

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click    
dim itm_count as integer
dim s as string
s=""
itm_count= list1.items.count
For k As Integer = 0 To list1.Items.Count
  s = list1.Items(k).ToString & ","
Next
MsgBox(s) 'it will shows the item separated by comas in message box
end sub

如何将列表框项目保存到字符串中

2 个答案: