如何在VB.Net中爲此示例添加另一個值？

Question

如何添加另一個值/參數/變量到這個例子？

Dim pricesList As New List(Of KeyValuePair(Of String, String)) 
pricesList.AddRange({New KeyValuePair(Of String, String)("$5", "1"), 
        New KeyValuePair(Of String, String)("$3", "2")}) 

For Each item As KeyValuePair(Of String, String) In pricesList 
    Console.WriteLine(String.Format("Price: {0}, Value {1}", item.Key, item.Value)) 
Next item 

所以，我得到這樣的

Dim pricesList As New List(Of KeyValuePair(Of String, String)) 
pricesList.AddRange({New KeyValuePair(Of String, String)("$5", "1","1","1"), 
        New KeyValuePair(Of String, String)("$3", "2","2","2")}) 

For Each item As KeyValuePair(Of String, String) In pricesList 
    Console.WriteLine(String.Format("Price: {0}, Value {1}, Value {1}, Value {1}, Value {1}", item.Key, item.Value)) 
Next item 

Answer 1

你不能傳遞一個數組String.Format，並有陣列的不同元素在你的字符串替換不同的參數。你可以做如下的事情。請注意，我將List (Of KeyValuePair)更改爲Dictionary，因爲這似乎更有意義。由於鍵和值似乎都是整數，所以您可能還想使用整數（或某種數字）值而不是字符串。

[編輯]在回覆評論時，添加了一個聲明，顯示使用TextBoxes中的值向Dictionary添加項目的示例。

Dim pricesList As New Dictionary(Of String, String()) _ 
    From {{"$5", {"1", "1", "1"}}, {"$3", {"2", "2", "2"}}} 

pricesList.Add(PriceTextBox.Text, {V1TextBox.Text, V2TextBox.Text, V3TextBox.Text}) 

For Each item As KeyValuePair(Of String, String()) In pricesList 
    Console.WriteLine(String.Format("Price: {0}, Value {1}, Value {2}, Value {3}", item.Key, item.Value(0), item.Value(1), item.Value(2))) 
Next item