通过

Application.PersistsEvents 属性 (Visio)

  • 项目

指示对象是否能够在其 EventList 集合中包含持久事件。 此为只读属性。

语法

表达式。PersistsEvents

expression：表示 Application 对象的变量。

返回值

整数

备注

每个具有 EventList 属性的对象也具有 PersistsEvents 属性。 为了具有永久性，事件的动作代码必须是 visActCodeRunAddon，但该代码也必须位于其 PersistsEvents 属性为 True 的对象的 EventList 集合中。 当前能够使事件具有永久性的对象只有 Document、Master 和 Page 对象。

永久事件实际上能否永久取决于其 Persistent 属性的值。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 PersistsEvents 属性确定某对象能否包含永久事件。 执行宏会在“文档”、“页面”和“窗口”对象的“即时”窗口中分别打印 1 (True) 、1 (True) 和 0 (False) 。

 
Public Sub PersistsEvents_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 Set vsoDocument = Documents.Add("") 
 Debug.Print vsoDocument.PersistsEvents 
 Debug.Print ActivePage.PersistsEvents 
 Debug.Print ActiveWindow.PersistsEvents 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。