0

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

字符串 = listboxitem1,listboxitem2,listboxitem3,listboxitem4,listboxitem5 ....

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

解决方案！

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

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

然后我通过在每个“，”之间拆分字符串来加载字符串

4

2 回答 2

0

我知道你已经解决了你自己的问题。如果您不必将数据存储为字符串，则只是对您的额外建议。如果 ListBox 中的值包含 "," 怎么办？它会给你另一行，因为你在后面的部分用“，”分割它。

尝试使用以下内容：

要存储 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

这将克服分隔符的问题。

于 2014-07-07T03:08:30.000 回答
0 
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
于 2014-07-07T12:04:44.040 回答