本页内容

	简介
	了解 Visio 绘制控件
	使用 Visio 绘图控件的场景
	设计最佳作法
	开始使用
	将控件与主机容器相结合
	部署
	小结

简介

Microsoft® Office Visio® 2003 ActiveX® Control（Visio 绘图控件）通过丰富的 Visio
对象模型，作为可嵌入组件来提供 Visio 应用程序的完整功能。您可以通过宿主应用程序中的事件或代码，以编程方式驱动 Visio 绘图控件。此外，Visio
绘图控件可以在您自己的应用程序用户界面 (UI) 的上下文中为应用程序用户提供图表制作环境。

在本文中，您将学到：

返回页首

了解 Visio 绘制控件

Visio 绘图控件将在组件中提供 Visio 应用程序对象模型的功能。Visio 绘图控件可以嵌入使用 Microsoft Visual
Studio®.NET 2003、Microsoft Office XP 和 Microsoft Office 2003 容器（如 Microsoft
Office Word 2003、Microsoft Internet Explorer 5.0 以及更高版本和其他 Microsoft ActiveX®
控件容器）开发的宿主应用程序中。添加 Visio 绘图控件后，该控件就会为显示形状提供绘图画面。

Visio 绘图控件允许开发人员在另一个应用程序的上下文内提供 Visio 功能。这种新级别的集成允许开发人员完全控制与宿主应用程序相结合的 Visio
用户界面。该新增功能更为强大，而不仅仅是将 Visio 绘图嵌入到 OLE 容器文档（如 Word）中。将 Visio 绘图用作 OLE
对象允许您查看容器应用程序中的关系图、将 OLE 对象链接到实际 Visio 文档以反映更改以及通过从容器文档内激活 Visio 应用程序来编辑 Visio
绘图。

在就地 OLE 激活的情况下，您仍然工作于 Visio 用户界面内。您无法创建自己的 UI。无法通过使用包含应用程序的自动功能来以编程方式访问 Visio
文档。您还会受限于只能使用实现 OLE 容器的应用程序主机，这样就不能使用诸如 .NET Windows 窗体之类的技术。

但是，Visio 绘图控件提供了解决这些情况的新功能，并且允许您开发在以前不可能开发的新 Visio 解决方案，例如本文以下 “使用 Visio
绘图控件的场景” 部分中介绍的那些解决方案。

Visio 绘图控件通过 Visio 产品安装发行。还有一个可用于对 Visio 绘图控件 API 进行托管代码访问的主 interop
程序集。如果要从托管代码使用该控件，则必须安装 Visio 主 interop 程序集。请参阅本文的“部署”部分以获得有关安装 Visio 绘图控件和
Visio 主 interop 程序集的详细信息。

返回页首

使用 Visio 绘图控件的场景

要演示 Visio 绘图控件的实用性，请考虑以下客户场景。

该控件可以让您使用各种主机容器构建如刚才介绍的事件驱动应用程序。您可以将绘图画面组件添加到现有的或规划的应用程序中，而不是构建宿主于 Visio
应用程序用户界面中的解决方案。对于 Visio 绘图控件，应用程序通常会反映如图 1 所示的体系结构。

图 1. 宿主 Visio 绘图控件的应用程序

在应用程序中使用 Visio 绘图控件提供以下优点：

您还可以使用托管代码来开发 Visio 绘图控件解决方案。托管代码互操作性通过 Visio 主 interop 程序集提供，这些程序集提供对 Visio
绘图控件 API 和 Visio Automation 库的托管代码访问。在出现该绘图控件之前，对于托管代码，只能使用托管语言编写 COM
加载项或可执行文件。使用该控件，您可以直接从应用程序执行 Visio Automation 代码。这种集成允许您将 Windows
窗体用作应用程序容器并且以托管语言（例如 Visual Studio C++、Visual.NET C# 或 Visual Basic
.NET）编写代码。

返回页首

设计最佳作法

因为 Visio 绘图控件是可编程组件，您可以直接将 Visio 解决方案代码集成到主机容器应用程序中。在以前的 Visio 版本中，开发人员为
Visio 客户端应用程序编写解决方案时，需要在 COM 加载项、Visio 解决方案库 (VSL)、进程外可执行文件或在文档中的 Visual Basic
for Applications (VBA) 项目中打包解决方案代码。

通过允许从宿主应用程序对 Visio Application 对象进行编程，Visio
控件简化了解决方案体系结构和开发过程。在自定义应用程序（例如 C# 应用程序）或 Internet Explorer
中使用控件的开发人员应该直接针对宿主应用程序中的 Visio 对象模型进行编程，而不必将 Visio 逻辑分隔到 COM 加载项、VSL
或可执行文件中。从宿主应用程序中调用 Visio COM 加载项、VSL 或可执行文件，使得 Visio 集成的调试复杂化了，这毫无必要。

但是，如果希望在 Microsoft Office System 应用程序而不是在 Visio 中宿主 Visio 控件，则必须使用 COM
加载项。在这种情况下，为宿主应用程序（而不是 Visio）创建一个 COM 加载项。例如，如果您计划将 Visio 控件宿主于 Microsoft Office
Word 2003 文档中，则创建一个 Word COM 加载项，然后通过该 Word 加载项访问 Visio 控件。确保该主机的目标是 COM 加载项，因为
Office 宿主应用程序将不会加载绘图控件的 Visio COM 加载项。

使用控件主机限制

Visio 绘图控件支持很多容器，其中包括构建在 Visual Studio.NET 2003、Visual Studio 6.0、Internet
Explorer 5.0 或更高版本、ASP.NET 以及其他 ActiveX 控件容器中的宿主应用程序。但是，Visio 控件无法直接嵌入到：

注 可以将 ActiveX 控件嵌入到 Visio 绘图控件中（而不是将 Visio 绘图控件嵌入另一个 ActiveX
控件中）。但是，因为 Visio 绘图控件无法在 Visio 文档中执行 VBA 代码，所以最好将其他 ActiveX
控件集成到宿主应用程序项目中，而不是集成到 Visio 文档中。

将 Visio 控件用于 Internet Explorer 浏览器控件中

即使无法直接将 Visio 绘图控件嵌入到另一个 ActiveX 控件中，您仍然可以利用依赖于 Internet Explorer
浏览器控件的应用程序来使用 Visio 绘图控件。

Internet Explorer 5.0 或更高版本为 Visio 绘图控件提供了非常优秀的主机容器，允许开发人员根据 Microsoft Visual
Basic Scripting Edition (VBScript) 中的 Visio 对象模型或者根据由 European Computer
Manufacturers Association 规范定义的 ECMAScript 来编写脚本，例如 JScript 或 JavaScript。

要将 Visio 绘图控件与基于 Internet Explorer 浏览器控件的应用程序相结合，例如 Microsoft Office Project
Web Access 客户端，请执行以下操作：

将 Visio 控件用于 Microsoft Office InfoPath 2003 中

尽管无法将 Visio 绘图控件直接嵌入到 InfoPath 2003 表单，InfoPath 还是提供了包含 Internet Explorer
窗口的解决方案任务窗格。您可以将 Visio 绘图控件直接嵌入到该 InfoPath 解决方案任务窗格窗口中，然后使用文档对象模型 (DOM) 以在 Visio
绘图和 InfoPath 表单之间共享数据。

了解 Visio 绘图控件的 SDI

当设计使用 Visio 绘图控件的应用程序时，了解 Visio 控件在单个窗口中支持单个文件非常重要。由于该控件的单文档界面 (SDI)
体系结构，所以在设计集成 Visio 绘图控件与应用程序时要考虑以下事项：

迁移现有的 Visio 解决方案

在将代码从现有的 Visio 客户端应用程序解决方案迁移到 Visio 控件时，请将这些设计注意事项包括在您的计划中。

启动新的 Visio 开发

如果您只启动集成应用程序的 Visio，则最好直接根据宿主应用程序代码中的 Visio
对象模型进行编程。除了本文档中的设计建议和实现指导外，还需参考以下资源以获得有关使用 Visio 对象模型的信息：

返回页首

开始使用

本部分包含在应用程序中使用 Visio 绘图控件的基本步骤。它将说明如何将控件嵌入到主机容器中、如何将 Visio
文档加载到控件窗口并保存更改以及如何获得对 Visio Application 对象的引用，以便您可以借助编程方式使用 Visio 文档。

创建 Visio 绘图控件实例

本部分将详细说明创建 Visio 绘图控件实例和设置下列容器引用的过程：Windows 窗体、基于 Visual Basic 6.0
窗体的应用程序、Office 文档和 Internet Explorer。

注 开发人员无法在设计阶段激活 Visio 控件中的 Visio 绘图。控件中的 Visio 绘图只能在运行时激活。

以托管代码方式创建 Visio 绘图控件实例

您可以轻松地以托管代码方式创建 Visio 绘图控件实例。

完成这个过程以将下列程序集引用添加到项目中：

要将 Visio 绘图控件添加到 Windows 窗体：

1.	在 Visual Studio .NET 中，在设计模式中显示 Windows 窗体。单击工具箱。
2.	在工具箱内右键单击，然后选择 Add/Remove Items 打开 Customize Toolbox 对话框。
3.	单击 Customize Toolbox 对话框中的 COM Components 选项卡。为类型库选中 Microsoft Visio Drawing Control，如图 2 所示。 图 2. 将 Visio 绘图控件添加到 Visual Studio .NET 工具箱中
4.	单击 OK。Visio 绘图控件现在出现在工具箱中，如图 3 所示。 图 3. Visual Studio .NET 工具箱中的 Visio 绘图控件
5.	通过在工具箱中双击 Visio 绘图控件，或者单击 Visio 绘图控件然后将其拖动到窗体，可以将该控件添加到窗体。

在 Visual Basic 6.0 中创建 Visio 绘图控件实例

您可以简单地使用 Visual Basic 6.0 来创建 Visio 绘图控件实例。完成这个过程以将引用添加到 Visio
绘图控件类型库。如果要以编程方式更改包含在绘图控件实例中的 Visio 文档，则需要添加一个对 Microsoft Visio 11.0 类型库的引用。

要将 Visio 绘图控件添加到 Visual Basic 6.0 窗体：

1.	在 Visual Basic 6.0 中，在设计模式中显示窗体，右键单击工具箱，然后选择 Components。
2.	在 Components 对话框中的 Controls 选项卡上，选中 Microsoft Visio Drawing Control 11.0，如图 4 所示。 图 4. 将 Visio 绘图控件添加到 Visual Basic 6.0 工具箱中
3.	单击 OK。Visio 绘图控件现在出现在工具箱中。 图 5. Visual Basic 6.0 工具箱中的 Visio 绘图控件
4.	通过在工具箱中双击 Visio 绘图控件，或者单击 Visio 绘图控件然后将其拖动到窗体，可以将该控件添加到窗体。

在 Microsoft Office System 应用程序文档中创建 Visio 绘图控件

完成这个过程以将引用添加到 Visio 绘图控件类型库。如果要以编程方式更改包含在绘图控件实例中的 Visio 文档，则需要添加一个对 Microsoft
Visio 11.0 类型库的引用。

要将 Visio 绘图控件添加到 Office 应用程序文档中：

1.	右键单击 Office 应用程序的工具栏，然后选择 Control Toolbox。
2.	在 Control Toolbox 工具栏上，单击 More Controls 按钮，然后选中 Microsoft Visio Drawing Control，如图 6 所示： 图 6. 将 Visio 绘图控件添加到 Microsoft Office Word 工具箱中

在将 Visio 绘图控件插入到 Office 应用程序文档后，可以通过右键单击它，然后选择 Properties
来查看其属性。如果要从文档的 Visual Basic 项目中以编程方式访问 Visio 绘图控件，那么右键单击该控件，然后选择 View
Code。

在 Internet Explorer 中创建 Visio 绘图控件实例

要将 Visio 绘图控件添加到 Web 窗体或 HTML 页，您要遵循“以托管代码方式创建 Visio 绘图控件实例”中的步骤，不同之处在于您要将
Visio 绘图控件拖动到 Web 页上，而不是 Windows 窗体上。Visual Studio .NET 将下面的 HTML 添加到 Web 页：

修改 Properties 窗口中的值以更新 Visio 绘图控件实例中的属性标记。例如，如果修改 Src 属性，Visual
Studio .NET 会生成类似于下面的标记：

将 Visio 绘图控件宿主为客户端对象，并为脚本语言（例如，VBScript）支持限量属性。您可以编写脚本对 Visio
绘图控件所公开的属性进行更改。但是，您无法使用脚本语言访问 Visio 对象模型，这意味着您无法以编程方式更改由控件显示的 Visio
文档。用户可以通过单击绘图画面对 Visio 文档进行更改。

注 该控件将只初始化任意给定的 Internet Explorer 进程中的第一个线程。如果您希望在基于 Internet Explorer
的应用程序中使用该控件的多个实例，请为该控件的每个额外的实例创建一个新的 Internet Explorer 进程，然后在新的 Internet
Explorer 进程中加载包含该控件的 HTML 页。

获得对 Visio 应用程序对象的引用

您可以通过 Visio 绘图控件的 API 来访问 Visio 对象模型。要获得对 Visio Application
对象的引用，请使用绘图控件的 Document 或 Window 属性。

例如，下面的 C# 代码说明如何使用该绘图控件的 Window 属性以获得对 Visio Application
对象的引用。

using Microsoft.Office.Interop.Visio;
private Microsoft.Office.Interop.Visio.Application application = null;
application = (Microsoft.Office.Interop.Visio.Application) drawingControl.Window.Application;

可以使用下面的 Visual Basic 6.0 代码来完成相同的任务：

Dim vsoApplication As Visio.Application
Set vsoApplication = DrawingControl.Window.Application

管理文档

当加载 Visio 绘图控件时，将会显示一个空白 Visio 绘图。如果希望显示现有的 Visio 文档，则绘图控件会公开一个 Src
属性以便将文档加载到控件中。然后，您可以使用文档的 SaveAs 方法保存所有更改。

加载 Visio 文档

使用 Visio 绘图控件的 Src 属性来将文档加载到该控件。例如，下面的 C# 示例将显示如何加载 Visio 绘图：

drawingControl.src="C:\\Drawing.vsd";

可以使用 Src 属性加载任意 Visio 文件类型（例如，.vsd、.vdx、.vst 或
.svg）。可以本地存储该文件或将其存储在远程文件服务器上。

Visio 控件的 Src 属性会加载在 Src 值中指定的文件副本。要将更改保存在控件的文档中，必须使用
SaveAs 方法来保存 Visio 文档。或者，还可以保存流中的更改。但是，在这两种情况下，都不能修改由 Src
属性加载的原始文档。

将 Visio 文档保存到文件

该控件加载由 Src 属性指定的文件副本。通过 SRC 加载的文件不能用于读取/写入操作，因此无法使用 Save
方法保存。要将更改保存到 Visio 绘图控件中加载的文档，请调用文档的 SaveAs 方法。下面的 C# 示例将说明如何使用绘图控件的
Document 属性来调用 SaveAs 方法：

Visio.Document document = drawingControl.Document;
document.SaveAs("C:\\Drawing.vsd");

您无法使用 SaveAsEx 方法将 Visio 2003 文档保存到 Visio ActiveX 控件中的 Visio 2002
格式。要将 Visio 绘图控件中加载的绘图保存到 Visio 2002 格式，请启动一个 Visio 的不可见实例，并在 Visio 应用程序实例中调用
SaveAsEx 方法，如同 Visual Basic 6.0 代码中的演示，该代码将 Visio 2003 绘图保存到 Visio 2003
文件格式中：

Application.Documents(1).SaveAsEx("C:\Documents and Settings" & _
    "\myusername\My Documents\Visio2002 file.vsd", visSaveAsWS + _
    visSaveAsListInMRU)

将控件中的 Visio 文档保存到流

开发人员可能要将更改保存到 Visio 绘图控件的绘图中，而无需将绘图保存到磁盘中。例如，如果用户修改 Word 文档中嵌入控件中的 Visio
文档，那么当用户将该 Word 文档以电子邮件消息形式转发时，所做的更改会丢失。当另一个用户打开该文档时，该控件会加载由 Src
属性指定的文件，覆盖所有修改。

要将流中的更改保存到控件中的 Visio 文档：

当控件在第一次初始化后在其容器文档中激活时，该控件会显示最后一个流中的图像，而不显示由 Src 属性指定的原始文档。

使用控件中的空白文档

要在第一次初始化该控件时将空白绘图加载到其中，请将 Src
属性设置为空字符串。但是，如果希望在加载现有绘图文档后在控件中模拟创建新的空白绘图，则有三种选择：

返回页首

将控件与主机容器相结合

您可以修改应用程序中的 Visio 绘图控件的外观。默认情况下，关闭所有 Visio
工具栏，并且不显示模具窗格。您可以选择通过显示滚动条、标尺或者更改窗口背景颜色来选择绘图控件画面出现的方式。

绘图控件公开一个 PageSizingBehavior
属性，该属性确定页面在绘图控件窗口内显示的方式。您可以选择调整与绘图控件大小相关的页面，或者提供类似于 Visio 的视图，以显示部分绘图页面。

因为该控件只支持单个窗口，所以无法访问 ShapeSheet
或诸如图标编辑器以及主控和分组编辑之类的窗口。默认情况下，启用页面和形状的右键单击菜单。控制形状行为的有限 Visio UI
会反映要与容器应用程序紧密结合的控件的意图。允许用户修改文档上形状的最佳方法就是使用自定义的 UI。但是，如果您希望使用 Visio
菜单和工具栏，则绘图控件确实支持与宿主应用程序结合的菜单和工具栏。

最具可能的是，Visio 绘图控件应用程序会由事件驱动，并且响应包含在应用程序中的用户单击按钮或菜单项。该绘图控件还公开 Visio
事件，以便您可以在控件本身内响应用户单击。

管理绘图画面显示

您可以通过控件的 Window 属性修改 Visio 绘图控件表面的外观。例如，下面的 C# 代码将隐藏绘图控件的滚动条：

drawingControl.Window.ShowScrollBars = (short)_ 
    Visio.VisScrollbarStates.visScrollBarNeither;

这个示例同时隐藏水平和垂直滚动条。VisScrollbarStates 枚举的其他可能值包括
visScrollBarBoth（同时显示两个滚动条）、visScrollBarHoriz（显示水平滚动条）和
visScrollBarVert（显示垂直滚动条）。

通过移除部分 Visio UI，您可以使得绘图控件看起来与应用程序结合的更紧密。下面的 C# 代码将隐藏标尺：

drawingControl.Window.ShowRulers = 0;

还可以更改窗口的背景颜色以适合应用程序的配色方案。例如，下面的 C# 代码会将窗口的背景颜色设置为纯红色：

drawingControl.Window.BackgroundColor = (uint) 
    ColorTranslator.ToOle(Color.Red);
drawingControl.Window.BackgroundColorGradient = (uint) 
    ColorTranslator.ToOle(Color.Red);

在此示例中，ColorTranslator 类用于将 .NET 颜色类型转换成 OLE_COLOR 类型，这就是 Visio
Automation 指定颜色的方式。

Visio 控件的用户设置

Visio 绘图控件将相同的基本 Application 对象共享为 Visio 客户端应用程序。因此，如果用户更改 Visio
客户端应用程序的应用程序设置（例如将页面背景更改为蓝色），那么在宿主应用程序中运行时，相同的设置将会应用到 Visio 控件。Visio 控件的
HostID 属性允许您在注册表中存储该控件的不同用户设置。要设置 HostID 属性，请使用字符串来指示将要在
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\VisioHosts]
项中创建的子项的名称。尽管可以为控件的子项的名称使用任意字符串，但最好使用 GUID 来确保唯一性。

HostID 属性可以在设计阶段在控件的 Properties
窗口中进行设置，也可以借助编程方式在宿主应用程序代码中进行设置。

页面调整和缩放

使用 Visio 绘图控件的 PageSizingBehavior 属性根据控件窗口调整页面的大小。该属性
(visNeverResizePages) 的默认设置提供的视图类似于 Visio 的视图，可在该窗口内查看视图中页面的一部分。下面的 C#
代码示例调整页面大小以适配该控件：

drawingControl.PageSizingBehavior = 
    Visio.VisPageSizingBehaviors.visResizePages;

当 PageSizingBehavior 设置为 visResizePages
时，该页面的形状将不会根据该页面进行调整。形状会保留在 Visio
页面坐标系统的相对位置，其原点位于页面的左下角。在控件内调整页面的大小进行适配会隐藏页边界，在控件调整到绘图画面的最大区域时，这一点会非常有用。

要在绘图控件窗口中重新调整整个页面（包括其形状），请通过控件的 Window 属性设置 Zoom 属性，如下面的 C#
示例所示：

drawingControl.Window.Zoom = 2.0;

该代码将窗口的内容放大到 200%。要使其生效，必须在使用 Src 属性加载文档后对缩放设置进行设置。

要防止用户更改缩放设置，请设置 ZoomLock 属性，如下面 C# 示例所示：

drawingControl.Window.ZoomLock = true;

通过 VisZoomBehavior 属性可以设置 Visio 所控制的缩放的最大范围，该属性可以通过绘图控件的 Window
或 Document
属性进行访问。默认情况下，该控件使用文档的当前缩放设置。如果希望能够将缩放设置到任意级别，不要只设置为不连续设置（例如，50% 或
100%），在不对外观进行任何调整的情况下，可将 VisZoomBehavior 属性设置为 VisZoomVisioExact
值，如下面的 C# 示例所示：

drawingControl.Window.ZoomBehavior = 
    Visio.VisZoomBehavior.visZoomVisioExact;

注 无法在 Word 文档中调整 Visio 绘图控件大小。如果要调整绘图控件大小并保存更改，则在下一次打开该 Word
文档时该控件将重置为其默认大小。

形状搜索窗口管理

您可以使用 Visio ItemFromID 属性“关闭”文档的模具窗格中的 Visio
形状搜索窗口。要使形状搜索窗口在模具窗格中不可见，请将该属性的 Visible 属性设置为 false，例如：

Windows(1).ItemFromID(Visio.visWinIDShapeSearch).Visible = False

要在模具窗格中显示形状搜索窗口，请将相同的值设置为 True。

注 您只能管理基于每个窗口的形状搜索窗口的可见性。

集成菜单和工具栏

在使用 Visio 绘图控件构建应用程序时的最佳作法就是实现一个自定义 UI。如果您希望在容器应用程序中显示 Visio 菜单和工具栏，请设置绘图控件的
NegotatiateToolbars 和 NegotiateMenus 属性。下面的 C# 代码同时启用菜单和工具栏合并：

drawingControl.NegotiateMenus = True;
drawingControl.NegotiateToolbars = True;

最佳作法是将这两个参数设置为相同的值。该控件将不支持工具栏和菜单的独立协商。

容器应用程序必须支持 OLE 菜单合并以便显示 Visio 菜单或工具栏。例如，您可以在 Word 文档中启用工具栏合并。在 Word 文档的
Visual Basic 项目中，您可以借助编程方式显示 Visio 工具栏。下面的示例将显示 Layout & Routing
工具栏。

vsoApplication.CommandBars(“Layout & Routing”).Visible = True重要说明
请勿尝试将菜单和工具栏与 ActiveX 控件的多个活动实例合并。该控件的多个实例共享单个基本 Visio Application
对象。在尝试将菜单与单个 Application 对象和该控件的多个活动实例合并在一起时，可能会得到意外结果。

要要说明 请勿将菜单和工具栏与 Internet Explorer 用户界面合并。在 Internet Explorer
中合并菜单存在着已知的问题（请参阅 Microsoft 知识库文章 193098 PRB:Unexpected Menu Merging Behavior in Internet
Explorer）。

非 OLE 菜单合并主机的菜单和工具栏集成

如果您的容器不支持 OLE 菜单合并（例如，Windows 窗体），您可以使用 IOleCommandTarget 接口运行 Visio
命令。您可以实现自己的菜单项和工具栏按钮，如下面的 C# 示例所示：

using System.Runtime.InteropServices;
using System;

namespace OleCommandTarget
{
    [StructLayout(LayoutKind.Sequential)]
    public struct OLECMDTEXT
    {
        public UInt32 cmdtextf;
        public UInt32 cwActual;
        public UInt32 cwBuf;
        public char rgwz;
    }

    [StructLayout(LayoutKind.Sequential)]
    public struct OLECMD
    {
        public UInt32 cmdID;
        public UInt64 cmdf;
    }

    [ComImport(), Guid("B722BCCB-4E68-101B-A2BC-00AA00404770"),
        InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IOleCommandTarget
    {
        [PreserveSig()]
        int QueryStatus( [In, MarshalAs(UnmanagedType.Struct)] ref Guid 
            pguidCmdGroup, [MarshalAs(UnmanagedType.U4)] int cCmds, 
            [In, Out] IntPtr prgCmds, [In, Out] IntPtr pCmdText);

        [PreserveSig()]
        int Exec(ref Guid pguidCmdGroup, uint nCmdID, uint nCmdExecOpt, 
            object[] pvaIn, [In, Out, MarshalAs(UnmanagedType.LPArray)] 
            object[] pvaOut);
    }
}

在创建菜单项后，请使用 IOleCommandTarget 接口将适当的 Visio 用户界面命令用于该目标。下面的示例在单击菜单项时会启用
Connector 工具：

using OleCommandTarget;

private void menuItem_Click(object sender, System.EventArgs eventData)
{
    SendCommand();
}

private void SendCommand()
{
    const UInt32 VISCMD_DRCONNECTORTOOL = 
         (UInt32)Visio.VisUICmds.visCmdDRConnectorTool;
    IOleCommandTarget commandTarget = 
         (IOleCommandTarget)axDrawingControl1.GetOcx();

    try
    {
        Guid CLSID_Application = new Guid("{0x00021A20, 0x0000, 0x0000, 
            {0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46}}");
        commandTarget.Exec(ref CLSID_Application, VISCMD_DRCONNECTORTOOL, 
            0, null, null);
    }
    catch(System.Runtime.InteropServices.COMException ex)
    {
        MessageBox.Show(ex.ToString());
    }
}

处理事件

为了 Visio 事件的使用更为简便，Visio 绘图控件对象将公开所有 Visio Window 和 Document
事件。这允许开发人员可以直接从该控件访问这些事件，而无需通过 Visio Document 对象。

鼠标和键盘事件通常用于 Visio 控件编程中。您可以在 Visio 绘图控件上使用鼠标事件来显示自定义的 Windows
窗体以及更新宿主应用程序中的数据。

如果希望“锁定”Visio
控件的绘图画面，并防止最终用户直接修改绘图中的任何内容，您可以侦听所有键盘和鼠标事件并“丢弃这些事件”。如果宿主应用程序“抑制”了鼠标和键盘事件，则 Visio
绘图画面将不会响应用户的键入和鼠标单击操作。

鼠标和键盘事件对象

由 Visio AddAdvise 方法创建的事件对象提供了最佳的性能。您可以像使用任何其他 Visio 事件一样，将 Visio
鼠标和键盘事件与 AddAdvise 一起使用。

下面的代码示例将演示如何使用 Visual Basic 6.0 中的事件接收器来捕获鼠标事件：

Implements Visio.IVisEventProc
Private Function IVisEventProc_VisEventProc( _
    ByVal nEventCode As Integer, _
    ByVal pSourceObj As Object, _
    ByVal nEventID As Long, _
    ByVal nEventSeqNum As Long, _
    ByVal pSubjectObj As Object, _
    ByVal vMoreInfo As Variant) As Variant

    Dim strMessage As String

    ‘ Determine if mouse up event fired.
    If nEventCode = visEvtCodeMouseUp Then
        MsgBox ("MouseUp coordinates (" & pSubjectObj.X & ", " _
            & pSubjectObj.Y & ")")
    End If

End Function

下面的代码示例说明如何使用 AddAdvise 方法来创建鼠标对象的事件对象。

Private mEventSink As clsEventSink
Dim vsoMouseUpEvent As Visio.Event
Dim vsoWindowEvents As Visio.EventList

Set mEventSink = New clsEventSink

Set vsoWindowEvents = DrawingControl1.Window.EventList

Set vsoMouseUpEvent = vsoWindowEvents.AddAdvise( _
    visEvtCodeMouseUp, mEventSink, "", "Mouse up...")

委托鼠标单击事件

尽管使用 AddAdvise 创建的事件对象提供了最佳性能，您还可以在 Windows 窗体中定义 C#
委托来处理绘图控件窗口内的鼠标单击事件，如下所示：

this.drawingControl.MouseUpEvent += new 
    AxMicrosoft.Office.Interop.VisOcx.EVisOcx_MouseUpEventHandler(
    this.drawingControl_MouseUpEvent);

然后事件处理程序将会具有以下签名：

private void drawingControl_MouseUpEvent(
    object sender, AxVisOcx.EVisOcx_MouseUpEvent eventData)

形状的鼠标事件

Visio 鼠标事件在 Page 和 Window 对象上公开。要定位用户单击的页面或窗口中的特定形状，开发人员必须使用
Visio SpatialSearch 方法。下面的 C# 代码传入窗口上单击事件的 x- 和 y- 坐标、设置指示出如何建立选择对象的
Visio 常量，然后定义一个在 x- 和 y- 坐标周围进行搜索的较小容错范围。

MySelection = Window.SpatialSearch(x, y, visSpatialContainedIn, 
    0.001, visSpatialFrontToBack)

如果将该容错设置为相对于形状大小而言非常小的单位，则 SpatialSearch
方法返回的选择对象将只包含一个形状，即最终用户在该窗口内单击的形状。

返回页首

部署

Visio 绘图控件是通过 Visio 产品安装过程进行发行的。这样，就不会有关于控件本身的附加许可问题了。宿主绘图控件的应用程序只有在 Visio
安装到计算机上之后才能工作。

Visio 绘图控件是作为 Minimal Install 选项的组成部分进行安装的。如果您的应用程序是以托管代码编写的，并且要利用
Visio 主 interop 程序集，则必须选择 Typical Install 选项才能安装 Visio 主 interop 程序集。

首先，确保该计算机已经安装了 .NET Framework 1.1；否则 Visio 主 interop 程序集将无法安装。.NET Framework
1.1 是随 Visual Studio .NET 2003 安装的版本。对于运行应用程序的客户端来说，还可以安装作为应用程序的安装程序组成部分的免费 .NET
Framework 1.1 Redistributable。

此处有两个选项可用于通过 Visio 产品安装程序自动部署 Visio 绘图控件：

下面的示例说明如何使用 Windows 脚本主机来利用 Typical Install 选项以无提示方式安装 Visio：

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("setup.exe /qn PIDKEY= INSTALLLEVEL=20")
To call the Visio product MSI directly, use the following code:
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec("msiexec.exe /qn /i " & _
    "PIDKEY= INSTALLLEVEL=20")

返回页首

小结

Visio 绘图控件允许开发人员以丰富的 Visio 绘图功能来扩展自定义应用程序和解决方案。通过提供对控件的编程功能以及对完整 Visio
对象模型的访问，Visio 组件可以由用户绘图操作或宿主应用程序中的事件和数据来驱动。使用 Visio 绘图控件的解决方案的优点在于：

关于作者

Mark Bukovec 是一位自由开发人员和技术作家。之前，Mark 曾在 Microsoft 工作过五年，最近是为 COM+
组工作的程序经理。您可以通过 empiredown@hotmail.com 联系
Mark。