通过

Application.Active 属性 (Visio)

  • 项目

指示 Application 对象表示的 Microsoft Visio 实例是否是 Microsoft Windows 桌面上的活动应用程序（具有突出显示的标题栏的应用程序）。 此为只读属性。

语法

表达式。积极

expression：表示 Application 对象的变量。

返回值

整数

备注

Windows 桌面上的活动应用程序有别于活动的 Visio 实例，活动的 Visio 实例是通过调用 OLE GetActiveObject 方法（在 Microsoft Visual Basic 中为 GetObject 方法）返回的。 GetObject 方法检索最近激活的 Visio 实例，该实例可能是当时桌面上的活动应用程序，也可能不是。 在所有正在运行的 Visio 实例中，只有一个是活动的 Visio 实例。

例如，假设启动一个 Visio 实例和一个其他应用程序，如 Microsoft Excel。

  • 如果 Visio 的实例是桌面上的活动应用程序， 则 GetObject (“visio.application”) 检索该实例，其 Active 属性为 True。

  • 如果激活 Microsoft Excel 的实例， GetObject (“visio.application”) 检索同一个 Visio 实例，但其 Active 属性为 False。

如果 Application 对象的 Active 属性是 True，而 InPlace 属性不是 True，则可以假设相应的 Visio 实例就是活动 Visio 实例。 如果在容器应用程序中为就地编辑而激活 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。