大众计算机学习网

专门提供各种电脑教程

PowerPoint中的Application对象使用范例

Admin | 2012-8-28 9:32:36 | 被阅次数 | 5325

  通过三个步骤,可为Application对象的事件创建事件句柄。该对象在PowerPoint环境中使用。

  在类模块中声明一个对象变量以响应事件。
  编写特定的事件过程。
  在另一模块中初始化声明的对象。

  一、声明对象变量

  在为 Application 对象的事件编写过程之前,必须新建一个类模块,然后声明一个具有事件的 Application 类型的对象。例如,假设已新建一个类模块且其名称为 EventClassModule。该新类模块包含以下代码。

  Public WithEvents App As Application

  二、编写事件过程

  声明具有事件的新对象之后,该对象就会出现在类模块的“对象”列表中,然后就可以为此新对象编写事件过程。(当在“对象”列表中选择新对象时,“过程”列表中就会列出该对象的有效事件。)从“过程”列表中选择一个事件;就会在类模块中添加一个空过程。

  Private Sub App_NewPresentation()

  End Sub

  三、初始化声明的变量

  在过程运行之前,必须将类模块中声明的对象(本示例中为 App)与 Application 对象相连。用户可以在任意模块中使用以下代码实现此处理过程。

  Dim X As New EventClassModule
  Sub InitializeApp()
      Set X.App = Application
  End Sub

  运行 InitializeApp 过程。当运行此过程后,类模块中的 App 对象就会指向 Microsoft PowerPoint 的 Application 对象,然后当事件发生时,类模块中的事件过程就会运行。