属性 Let 创建一个不需要的变量

Question

我在任何地方都找不到任何东西，所以这是我的问题（尽管它主要是化妆品问题）：

我有一个类被用作自定义数据类型，但是当我查看本地变量或观察窗口时，我看到每个 Property Let 都创建了一个额外的变量，这使得窗口中充斥着冗余变量和信息（并且可能占用额外的空间）。

示例：

在类模块 Class1 中：

Private data As Integer

Property Get X() As Integer
    X = data
End Property

Property Let X(ByVal Value As Integer)
    data = Value
End Property

然后进行测试：

Sub Test1()

Dim TestClass As Class1
Set TestClass = New Class1

TestClass.X = 100

End Sub

在本地窗口中：

我应该以某种方式回收这个额外的变量还是我做错了什么？

--- 如果您查看现有的 Excel 对象（如工作表），则没有任何重复的变量。

编辑：为了澄清，我想知道是否有一种方法可以在本地/监视窗口中隐藏属性以使它们更易于导航。

Answer 1

没关系。 data 是您的私有变量，X 只是财产。没有错。但是您应该考虑命名约定，私有变量的 setter 和 getter 应该以某种方式保持一致，例如：

'Member variable, pName - private Name
Private pName As String

'Properties
Property Get Name() As String
    Name = pName
End Property

Property Let Name(val As String)
    pName = val
End Property