VB.NET中如何让Dictionary属性可设为Nothing且自动实例化？

一、实现自动实例化的Dictionary属性 #

要实现既允许将属性设为Nothing，又能在调用成员时自动初始化的效果，可通过属性Getter懒加载结合Setter实现：

Public Class ConfigClass
    ' 私有字段存储Dictionary实例
    Private _dictProperty As Dictionary(Of String, String)

    Public Property DictProperty As Dictionary(Of String, String)
        Get
            ' 字段为Nothing时自动实例化
            If _dictProperty Is Nothing Then
                _dictProperty = New Dictionary(Of String, String)()
            End If
            Return _dictProperty
        End Get
        Set(value As Dictionary(Of String, String))
            ' 允许外部赋值（包括Nothing）
            _dictProperty = value
        End Set
    End Property
End Class

使用效果：

• 直接调用成员：config.DictProperty.Add("key", "value")，Getter会自动创建实例，无需手动初始化
• 主动置空：config.DictProperty = Nothing，后续再次调用成员时会重新实例化
• 直接获取属性值：Dim dict = config.DictProperty，若之前为Nothing，会自动创建实例后返回

二、关于Getter中判断访问目标的问题 #

无法在Getter中区分当前访问是针对属性值本身，还是要调用其成员。

原因是CLR的调用逻辑：当执行config.DictProperty.Add(...)时，实际分两步执行：

1. 调用DictProperty的Getter方法，获取Dictionary实例
2. 调用该实例的Add方法

Getter执行时仅知道自身被调用，完全不知道后续要对返回实例执行什么操作——不管是直接赋值给变量，还是调用成员，Getter的执行逻辑完全一致。

若需区分两种场景，可通过以下方式变通：

• 额外提供获取原始可空实例的方法（如GetRawDict()），自动实例化的属性仅用于成员调用
• 自定义Dictionary包装类，封装所有成员并在内部处理初始化逻辑，但会增加代码复杂度

内容的提问来源于stack exchange，提问作者Klaus Müller