创建新类并声明包含事件的 Circle 对象 （VBA/ActiveX）

您可以使用关键字为特定对象类型声明变量，以便在执行事件时收到通知。WithEvents

1. 在 VBA IDE 中，插入一个类模块。从“插入”菜单中，选择“类模块”。
2. 在“项目资源管理器”窗口中选择新的类模块。
3. 将“属性”窗口中的类的名称更改为“事件类模块”。
4. 使用 F7 打开类的“代码”窗口，或者选择菜单选项“查看代码”。
5. 在类的“代码”窗口中，添加以下行：

   Public WithEvents Object As AcadCircle

   使用事件声明新对象后，它将出现在类模块的“对象”下拉列表框中，您可以在类模块中为新对象编写事件过程。（在“对象”框中选择新对象时，该对象的有效事件将列在“过程”下拉列表框中。