Свойство Application.Active (Visio)
Указывает, является ли экземпляр Microsoft Visio, представленный объектом Application , активным приложением на рабочем столе Microsoft Windows— приложением с выделенной строкой заголовка. Только для чтения.
Синтаксис
expression. Активных
выражение: переменная, представляющая объект Application.
Возвращаемое значение
Целое число
Замечания
Активное приложение на рабочем столе Windows отличается от активного экземпляра Visio, который возвращается вызовом метода OLE GetActiveObject (метод GetObject в Microsoft Visual Basic). Метод GetObject извлекает экземпляр Visio, который был недавно активирован, который может быть активным приложением на рабочем столе в данный момент. Из всех запущенных экземпляров Visio только один является активным экземпляром Visio.
Например, предположим, что вы запускаете один экземпляр Visio и одно из другого приложения, например Microsoft Excel.
Если экземпляр Visio является активным приложением на рабочем столе, GetObject("visio.application") извлекает этот экземпляр, а его свойство Active имеет значение True.
Если вы активируете экземпляр Microsoft Excel, GetObject("visio.application") извлекает тот же экземпляр Visio, но его активное свойство имеет значение False.
Если свойство Active объекта Приложения имеет значение True, можно предположить, что соответствующий экземпляр Visio является активным экземпляром Visio, если свойство InPlace не имеет значения True. Если экземпляр Visio активирован для редактирования на месте в приложении-контейнере, этот экземпляр не обязательно будет сообщать о себе как активном экземпляре Visio.
Пример
В следующей программе Visual Basic показано, как получить активный экземпляр Visio.
Public Sub Active_Example()
Dim vsoApplication1 As Visio.Application
Dim vsoApplication2 As Visio.Application
'Create two new instances of Visio.
Set vsoApplication1 = CreateObject("visio.application")
Set vsoApplication2 = CreateObject("visio.application")
'Use the Active property to determine whether
'the instance of Visio is active. 'Result = False. Prints "0" in the Immediate window
Debug.Print vsoApplication1.Active
'Result = True. Prints "-1" in the Immediate window.
Debug.Print vsoApplication2.Active
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.