Свойство Windows. EventList (Visio)Windows.EventList property (Visio)

• 06/08/2017
• Чтение занимает 2 мин
• • 

Возвращает коллекцию EventList объекта или коллекции EventList , содержащую объект event .Returns the EventList collection of an object or the EventList collection that contains an Event object. Только для чтения.Read-only.

СинтаксисSyntax

Expression. EventListexpression.EventList

Expression (выражение ) Переменная, представляющая объект Windows .expression A variable that represents a Windows object.

Возвращаемое значениеReturn value

EventListEventList

ПримерExample

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство EventList для добавления объекта события в коллекцию EventList объекта Document .This Microsoft Visual Basic for Applications (VBA) macro shows how to use the EventList property to add an Event object to the EventList collection of a Document object. Когда объект события инициируется путем добавления фигуры в документ, задается указанная надстройка VSL.When the Event object is triggered by adding a shape to the document, the VSL add-on you specify runs.

Перед запуском этого макроса Замените ссылки на фуллпас\филенаме и filename на допустимый путь и имя для надстройки Microsoft Visio VSL или исполняемой программы (exe).Before running this macro, replace references to fullpath\filename and filename with a valid path and name for a Microsoft Visio VSL or executable (EXE) add-on.

 
Public Sub EventList_Example() 
 
 Dim vsoEventList As Visio.EventList 
 Dim vsoEvent As Visio.Event 
 Dim vsoAddons As Visio.Addons 
 Dim vsoAddon As Visio.Addon 
 
 'Prevent overflow error. 
 Const visEvtAdd% = &H8000 
 
 'Add the specified add-on to the Addons collection. 
 Set vsoAddons = Visio.Addons 
 Set vsoAddon = vsoAddons.Add ("fullpath\filename ") 
 
 'Add a ShapeAdded event to the EventList collection 
 'of the document. The event will start the specified add-on, which 
 'should take no arguments. 
 Set vsoEventList = ThisDocument.EventList 
 Set vsoEvent = vsoEventList.Add(visEvtAdd + visEvtShape, visActCodeRunAddon, _ 
 "filename ", "") 
 
End Sub

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.