仅显示键的集合对象

Question

我创建了一个集合并为其添加了一些值。现在如何显示项目的键和值。

Public Class Form1

    Dim CollDay As New Microsoft.VisualBasic.Collection
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CollDay.Add(1, "sunday")
        CollDay.Add(2, "monday")
        CollDay.Add(3, "tuesday")
        CollDay.Add(4, "wednesday")

        For Each CollDay_ In CollDay
            MessageBox.Show(CollDay_)
        Next

    End Sub
End Class

消息框只显示键值，如何打印消息，如：“1 - 星期日”、“2 - 星期一”

Answer 1

以下是您到目前为止所做的等效操作，使用的是更现代的词典集合：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
    Dim dictionary As New Dictionary(Of String, Integer)
    
    dictionary.Add("sunday", 1)
    dictionary.Add("monday", 2)
    dictionary.Add("tuesday", 3)
    dictionary.Add("wednesday", 4)

    For Each item In dictionary
        MessageBox.Show(String.Format("{0} - {1}", item.Value, item.Key))
    Next

End Sub

我希望您已经转换了键和值的概念，也许这就是您真正需要的：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
    Dim dictionary As New Dictionary(Of Integer, String)
    
    dictionary.Add(1, "sunday")
    dictionary.Add(2, "monday")
    dictionary.Add(3, "tuesday")
    dictionary.Add(4, "wednesday")

    For Each item In dictionary
        MessageBox.Show(String.Format("{0} - {1}", item.Key, item.Value))
    Next

End Sub

最后，更好的版本可能是这样的：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
    Dim list As New List(Of String)
    
    list.Add("sunday")
    list.Add("monday")
    list.Add("tuesday")
    list.Add("wednesday")

    For i = 0 To list.Count - 1
        MessageBox.Show(String.Format("{0} - {1}", i + 1, list(i)))
    Next

End Sub

仅显示键的集合对象

collection object displaying only key

.net

vb.net