VBA界面未在监视窗口中显示属性

Question

我正在使用 VBA，并且遇到了这种情况，即使用接口时变量未显示在监视窗口中：

名为 ITest 的接口：

Public Property Get name() As String

End Property

类名为 Class1：

Implements ITest

Private Property Get ITest_name() As String
    ITest_name = "T1"
End Property

名为 Module1 的模块正在运行测试：

Public Sub main()
    Dim interface As ITest
    Set interface = New Class1
End Sub

End Sub 的断点：

叫名会员：

调用名称成员似乎也对监视窗口没有影响

如果我可以在使用界面调试代码的同时使用监视窗口，那就太好了 - 有其他人经历过这种情况或知道解决方案吗？

修改代码后：

非常感谢

Answer 1

我认为问题的发生是因为没有对 Class1 实例的公共引用，因为创建实例的方式意味着它对 VBA 是匿名的。如果您使用 Google 搜索，您会发现很多建议不要使用“as new class”，因为它引入了一些问题。

下面的修改后的代码（更像是你使用接口的方式）非常清楚地显示了 myClass 的内容

修订的 Class1

Option Explicit

Implements ITest

Private Type Properties
    name As String
End Type

Private p As Properties

Private Property Get ITest_name() As String
    ITest_name = name
End Property

Private Property Let ITest_name(ByVal Value As String)
    name = Value
End Property

Public Property Let name(ByVal Value As String)
    p.name = Value
End Property

Public Property Get name() As String
    name = p.name
End Property

修改界面

Option Explicit

Public Property Get name() As String

End Property

Public Property Let name(ByVal Value As String)

End Property

修订模块

Option Explicit

Public Sub main()

    Dim interface As ITest
    Dim myClass As Class1
    Set myClass = New Class1
    Set interface = myClass
    interface.name = "T1"
    Debug.Print interface.name

End Sub

如果您打算使用接口（如果您这样做的话对您有好处），那么您会发现 VBA Rubberduck 插件（正在重构）中的接口生成器可以节省大量输入。