荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Jobs (温少), 信区: Visual
标 题: Microsoft Word 对象--运用事件
发信站: BBS 荔园晨风站 (Sun Jan 16 18:25:46 2000), 转信
运用事件
一个事件既可以是一个被对象识别的操作(比如，打开一个文档或者从应用程序退
出)，也可以是一个能够编写代码来响应的操作。一个用户的操作或一段程序代码
都可以导致事件的发生，事件也可以由系统引起。Word所支持的事件均列在下表
中，该表还列出了ActiveX控件事件，它们将在第十二章“ActiveX控件和对话框
”中进行讨论。
要了解关于运用Word事件的信息，请参阅下列“帮助”主题：“使用Document对
象的事件”、“使用ActiveX控件的事件”以及“使用Application对象的事件”
。
Document事件
当用户打开或关闭一个已经存在的文档时，或者用户在新建一个文档时，就发生
了文档事件，如以下示例所示。
事件描述
当关闭一个文档时发生Close事件。
当创建一个基于模板的新文档时发生New事件。
当打开一个文档时发生Open事件。
一个文档事件过程的范围取决于它保存的位置。如果在一个文档中保存Open或
Close事件过程，那么该过程仅当用户关闭或打开该文档时才发生；如果在一个模
板中保存Open或Close事件，那么当打开或关闭基于该模板的文档或该模板本身时
，该过程才发生。一个新事件过程必须保存在模板中；一个保存在文档中新事件
过程决不会运行，因为文档只能基于模板来创建。
以下的示例在打开文档时将Word应用程序的窗口扩至最大状态。
Private Sub Document_Open()
Application. WindowState = wdWindowStateMaximize
End Sub
ActiveX控件事件
Word为Word文档中的ActiveX控件执行LostFocus 和 GotFocus事件。
事件描述
在焦点移开嵌入式 ActiveX 控制时发生LostFocus事件。
当焦点移至内嵌式 ActiveX 控制时发生GotFocus事件。
以下的示例保持CommandButton1处于禁用状态，直到用户在TextBox1中键入一个
值。
Private Sub TextBox1_LostFocus()
If TextBox1. Value = "" Then
CommandButton1. Enabled = False
Else
CommandButton1. Enabled = True
End If
End Sub
其他ActiveX控件事件的文档在“Microsoft 窗体帮助”中。有关在自定义对话框
和文档中使用ActiveX控件的内容，请参阅第十二章“ActiveX控件和对话框”。
Application事件
当用户退出应用程序或焦点移至另一个文档时发生Application事件。但是，与
Document和ActiveX控件事件不同，Application事件默认事件处于禁用状态。在
用户随同Application对象使用事件之前，必须新建一个类模块并声明一个包含事
件的 Application 类型对象。用户可以在Visual Basic编辑器中使用类模块命令
(插入菜单)的形式来新建一个类模块。
启用Application对象的事件，最好向类模块中添加以下声明。
Public WithEvents App As Application
定义了包含事件的新对象后，它将出现在类模块的“对象”下拉列表框中，然后
可为新对象编写事件过程。（在“对象”框中选定新对象后，其有效事件将出现
在“过程”下拉列表框中。）
但是在过程运行之前，必须将类模块中的已声名对象和 Application 对象相连接
。要完成上述任务，可以在任何模块中使用下列声明(在这里“EventClass”是用
户创建的用来启用事件的类模块的名字)。
Public X As New EventClass
当用户已经创建了X对象变量后(EventClass类的一个实例)，可以设置
EnventClass类的App对象于Word Application对象等价。
Sub InitializeApp()
Set X. App = Application
End Sub
在用户运行InitializeApp过程之后，EventClass类模块中的App对象指向了Word
Application对象，而且只要事件发生，类模块中的事件过程也将会运行。
在用户禁用Application对象的事件之后，可以为下表中的事件创建事件过程。
事件描述
当新建一个文档、打开一个已有文档或使另一个文档成为活动文档时
DocumentChange事件发生。
当用户退出Word时Quit事件发生。
以下的实例确保了在用户退出Word之前，“常用”工具栏和“格式”工具栏均为
可见。结果，当重新启动Word时，这些工具栏将不会出现。
Private Sub App_Quit()
CommandBars ("Standard"). Visible = True
CommandBars ("Formatting"). Visible = True
End Sub
--
我想超越这平凡的生活，注定我暂时漂泊！
我无法停止我内心的狂热，对未来的执着！
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.11.111]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店