Shape.PersistsEvents 属性 (Visio)

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

语法

表达式。PersistsEvents

表达 一个代表 Shape 对象的变量。

返回值

整数

备注

每个具有 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。