VBA Access如何在类模块中声明可被主模块调用的Public Type

VBA语法存在固有约束，不允许在类模块中直接声明Public Type，这是设计层面的限制，并非代码编写错误。以下是三种可落地的替代方案：

方案1：将公共Type定义移至标准模块 #

这是最常用、改造成本最低的方案，直接把自定义类型的声明放到标准模块（.bas）中，类模块和主模块都可以直接调用。

1. 标准模块示例代码：

' 标准模块（如Module1）中声明公共Type
Public Type CustomDataType
    ID As Long
    Name As String
    Score As Double
End Type

2. 类模块中调用该类型定义公共成员：

' 类模块（如clsTest）中代码
Public UserInfo As CustomDataType

3. 主模块调用示例：

Sub Test()
    Dim obj As New clsTest
    ' 读写自定义类型成员
    obj.UserInfo.ID = 1001
    obj.UserInfo.Name = "张三"
    Debug.Print obj.UserInfo.ID, obj.UserInfo.Name
End Sub

方案2：用类属性替代自定义类型 #

如果自定义类型的字段和类的业务逻辑强绑定，直接把Type的字段封装为类的公开属性，更符合面向对象的封装规范。
类模块示例代码：

' 直接声明公共字段替代Type
Public ID As Long
Public Name As String
Public Score As Double

' 也可以用属性过程做逻辑校验，更严谨
Private m_remark As String
Public Property Get Remark() As String
    Remark = m_remark
End Property
Public Property Let Remark(value As String)
    If Len(value) <= 50 Then ' 可以加自定义校验逻辑
        m_remark = value
    End If
End Property

主模块调用示例：

Sub Test2()
    Dim obj As New clsTest
    obj.ID = 1002
    obj.Remark = "测试用户"
    Debug.Print obj.ID, obj.Remark
End Sub

方案3：通过公开方法暴露类内私有Type的内容 #

如果不想改动现有类内私有Type的代码，可以新增公开的属性或方法，把私有Type的内容对外暴露。
类模块示例代码：

' 保留原有私有Type定义
Private Type PrivateCustomType
    ID As Long
    Name As String
End Type
Dim privateData As PrivateCustomType

' 新增公开属性暴露对应字段
Public Property Get DataID() As Long
    DataID = privateData.ID
End Property
Public Property Let DataID(value As Long)
    privateData.ID = value
End Property

Public Property Get DataName() As String
    DataName = privateData.Name
End Property
Public Property Let DataName(value As String)
    privateData.Name = value
End Property

' 也可以直接返回所有内容
Public Function GetAllData() As Variant
    GetAllData = Array(privateData.ID, privateData.Name)
End Function

方案选择建议 #

• 方案1适合自定义类型需要在多个模块、多个类中复用的场景
• 方案2适合自定义类型仅和当前类绑定的场景，可扩展性更强
• 方案3适合已有代码中已经写好私有Type，不想大幅重构的场景

内容的提问来源于stack exchange，提问作者ggdepaz