如何在VB.NET中使用Dictionary類

Question

我正在嘗試創建一個Dictionary集合的關鍵字，其中每個關鍵字都有相應的「look」類的值。 以下示例不起作用。它給我：
第一 - 圈，藍色
第二 - 圈，藍色
雖然我需要：
第一 - 廣場，紅色
第二 - 圈，藍色
它爲何不工作，我怎麼能使它工作？
謝謝。

Public Class Form1 

Public Class look 
    Public shape As String 
    Public color As String 
End Class 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim myDict As New Dictionary(Of String, look) 
    Dim oLook As New look 
    oLook.shape = "square" 
    oLook.color = "red" 
    myDict.Add("first", oLook) 
    oLook.shape = "circle" 
    oLook.color = "blue" 
    myDict.Add("second", oLook) 
    For Each key In myDict.Keys 
     MsgBox(key & " - " & myDict(key).shape & ", " & myDict(key).color) 
    Next 
End Sub 
End Class 

Answer 1

試試這個：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim myDict As New Dictionary(Of String, look) 
    Dim oLook As New look 
    oLook.shape = "square" 
    oLook.color = "red" 
    myDict.Add("first", oLook) 
    oLook = new look ' This will create another oLook object and point olook at it. 
    oLook.shape = "circle" 
    oLook.color = "blue" 
    myDict.Add("second", oLook) 
    For Each key In myDict.Keys 
     MsgBox(key & " - " & myDict(key).shape & ", " & myDict(key).color) 
    Next 
End Sub 

Answer 2

您需要的類的新實例：

Dim myDict As New Dictionary(Of String, look) 
    Dim oLook As New look 
    oLook.shape = "square" 
    oLook.color = "red" 
    myDict.Add("first", oLook) 
    oLook = New look '<<<<<<<<<<<< 
    oLook.shape = "circle" 
    oLook.color = "blue" 
    myDict.Add("second", oLook) 
    For Each key In myDict.Keys 
     MsgBox(key & " - " & myDict(key).shape & ", " & myDict(key).color) 
    Next