将事件与 Application 对象一同使用 | Microsoft Docs
- 2018/11/13
必须先创建一个类模块，并使用事件声明一个 Application 类型的对象，然后才能对 Application 对象使用事件。 例如，假定已经创建了一个名为 EventClassModule 的新的类模块。 新的类模块包含以下代码：
VB
Public WithEvents App As Application
使用事件声明新对象后，该对象将显示在类模块的"对象"列表框中，并且您可以为新对象编写事件过程。 (在"对象"框中选择新对象时，该对象的有效事件将列在"过程"列表框中。)
在运行过程之前，必须将类模块中声明的对象与 Application 对象连接起来。 可在任意的模块中用下列代码完成这一操作。
示例
VB
Dim X As New EventClassModule Sub InitializeApp() Set X.App = Application End Sub
运行 InitializeApp 过程之后，类模块中的 App 对象指向 Microsoft Excel Application 对象，并且类模块中的事件过程将在事件发生时运行。
赞 (0)