Rubberduck - DefaultMember

Examples

Each example is a self-contained MCVE showing the feature in a single specific scenario.

Standard Module

Named Module1 by default, these are general-purpose standard procedural modules.

Class Module

Named Class1 by default, these modules define the default interface for an object of that type.

Predeclared Class

A class module with its VB_PredeclaredId attribute set to True (with or without a @PredeclaredId annotation).

Interface Module

Abstract interfaces are class modules (with or without an @Interface annotation) whose default interface is not a class type intended to be instantiated.

UserForm Module

A predeclared class with a design-time visual designer using the MSForms UI framework.

Document Module

Owned by the host application, these class modules belong to the host document and may handle various events fired by the host application.

Example 1

Class1 (code pane)

Option Explicit
Private InternalState As VBA.Collection
'@DefaultMember
Public Property Get Item(ByVal Index As Variant) As Variant
    Item = InternalState(Index)
End Sub
'if the default member is a property, only the Get accessor needs the attribute/annotation.
Public Property Let Item(ByVal Index As Variant, ByVal Value As Variant)
    InternalState(Index) = Value
End Sub
Private Sub Class_Initialize()
    Set InternalState = New VBA.Collection
End Sub

Class1 (synchronized, hidden attributes shown)

Option Explicit
Private InternalState As VBA.Collection
'@DefaultMember
Public Property Get Item(ByVal Index As Variant) As Variant
    Attribute Item.VB_UserMemId = 0
    Item = InternalState(Index)
End Sub
'if the default member is a property, only the Get accessor needs the attribute/annotation.
Public Property Let Item(ByVal Index As Variant, ByVal Value As Variant)
    InternalState(Index) = Value
End Sub
Private Sub Class_Initialize()
    Set InternalState = New VBA.Collection
End Sub