创建以下示例类MyClass

Option Explicit

Property Get MyProperty() As String
    MyProperty = "Some String"
End Property

字符串
将其导出为MyClass.cls并在记事本中打开。它看起来像：

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "MyClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Property Get MyProperty() As String
    MyProperty = "Some String"
End Property

型
将Attribute Value.VB_UserMemId = 0添加到MyProperty()，使此属性成为默认属性。

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "MyClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Property Get MyProperty() As String
    Attribute Value.VB_UserMemId = 0
    MyProperty = "Some String"
End Property

型
保存文件并导入VB编辑器（不要复制粘贴，使用导入！）.
行Attribute Value.VB_UserMemId = 0在VBE中不可见。但是如果你现在创建一个类的新示例，你可以调用类本身来访问默认属性：

Option Explicit

Public Sub Example()
    Dim cl As MyClass
    Set cl = New MyClass
    
    Debug.Print cl  ' this returns the default property now
    Stop
End Sub

型
而且它也会显示在手表窗口中（但遗憾的是它不会在本地窗口中显示值。
x1c 0d1x的数据