11、自定义对象的创建与使用

wasm7browser

于 2025-07-27 15:33:56 发布

阅读量25

点赞数

CC 4.0 BY-SA版权

分类专栏：解锁Access 2003 VBA：从入门到精通文章标签：自定义对象属性方法

本文链接：https://blog.youkuaiyun.com/wasm7browser/article/details/150596706

解锁Access 2003 VBA：从入门到精通专栏收录该内容

37 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

自定义对象的创建与使用

1. 创建自定义对象的属性

在编程中，我们可以为自定义对象创建属性。以下是一个示例，展示了如何为 clsCar 类创建 VehicleIdNumber 属性：

Public Property Get VehicleIdNumber() As Double
    VehicleIdNumber = dblVehicleIdNumberVal
End Property
Public Property Let VehicleIdNumber(ByVal Value As Double)
    dblVehicleIdNumberVal = Value
End Property

这个属性允许我们获取和设置车辆的 ID 号。

2. 创建自定义对象的方法

方法是可以在对象上执行的操作。对于自定义类，我们可以使用公共子过程和函数来实现方法。

2.1 使用公共子过程和函数

要为自定义类实现一个方法，只需在类本身中添加一个公共子过程或函数。例如，要向类模块添加一个名为 TestMethod 的方法，可以添加以下代码：

Public Sub TestMethod()
    'code for the method goes here
End Sub

2.2 为 `clsCar` 类创建方