我創建了一個集合并為其添加了一些值。現在如何顯示專案的鍵和值。
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 - 星期一”
uj5u.com熱心網友回復：
這相當于您迄今為止所做的，使用更現代的字典集合：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/458723.html
下一篇：Linq/XML查詢的問題