Question

我有一个列表框...我的列表框有多个项目..如果我选择多个项目，我想在消息框中同时显示多个项目..我的代码如下：

cnt = LSTlocations.SelectedItems.Count
Dim list As New List(Of Integer)
Dim locid As Integer
 If cnt > 0 Then
        For i = 0 To cnt - 1
            Dim locationanme As String = LSTlocations.SelectedItems(i).ToString
            locid = RecordID("Locid", "Location_tbl", "LocName", locationanme)
            list.Add(locid)
        Next

        For Each num In list
            MessageBox.Show("LocID:" & num)

        Next

现在每次我在消息框中获取每个值..我想同时获得所有价值。我可以这样做吗？

Answer 1

您可以使用String.Join()方法加入列表元素，而不是使用循环。

一个例子：

Dim list As New List(Of Integer) From {0, 1, 2, 3, 4, 5}

MessageBox.Show(String.Format("LocID: {0}", String.Join(", ", list)), _
                Nothing, MessageBoxButtons.OK, MessageBoxIcon.Information)

选中的列表框值一起显示

1 个答案: