属性过程中存储有关问题

属性过程中存储问题

    Private MyDictionary1 As New Dictionary(Of String, String)
    Private ReadOnly Property NewDictionary1() As Dictionary(Of String, String)

        Get
       
            MyDictionary1.Add(1, "①")
            MyDictionary1.Add(2, "②")
            MyDictionary1.Add(3, "③")
            MyDictionary1.Add(4, "④")
            MyDictionary1.Add(5, "⑤")

            Return MyDictionary1
        End Get

        'Set(ByVal value As Dictionary(Of String, String))
        ' MyDictionary1 = value
        'End Set
    End Property

这个功能是检索属性值的。问题是这个NewDictionary1属性每次调用都触发事件，导致MyDictionary1重复添加而发生错误了。
我直接另外建立sub子过程里处理MyDictionary1添加存储过程了。

我觉得这样做太分散又不好集成管理了。有什么方法在属性过程中能够存储信息又能多次调用属性呢。




------解决方案--------------------
    
    Private ReadOnly Property NewDictionary1() As Dictionary(Of String, String)

        Get
       dim MyDictionary1 As New Dictionary(Of String, String)
            MyDictionary1.Add(1, "①")
            MyDictionary1.Add(2, "②")
            MyDictionary1.Add(3, "③")
            MyDictionary1.Add(4, "④")
            MyDictionary1.Add(5, "⑤")

            Return MyDictionary1
        End Get

        'Set(ByVal value As Dictionary(Of String, String))
        ' MyDictionary1 = value
        'End Set
    End Property