对实时图层应用自定义 VB 操作

先决条件：

如果安装 ArcGIS Desktop 媒体包中的 ArcGIS Desktop 面向开发人员的 VBA 资源软件并获得软件许可，则可使用 Tracking Analyst 所提供的自定义 VB 图层操作。ArcGIS Desktop 安装指南中提供有安装和许可信息。安装之后，可参照“ArcGIS Desktop 面向开发人员的 VBA 资源”帮助系统中关于使用 Visual Basic 编辑器为 ArcGIS Desktop 创建宏的说明。

进行该过程前，必须使用 Visual Basic 编辑器创建一个 VB 宏与该操作配合使用。

由于自定义 VB 图层操作仅可应用于实时追踪图层，因此自定义 VB 图层操作有别于其他图层操作。自定义 VB 图层操作也不同于服务操作，因为它适用于追踪图层而不适用于追踪服务。由于 VB 操作添加到追踪图层，因此可应用于实时事件，但不可应用于触发操作前图层中的已有事件。

了解有关实时追踪图层的自定义 VB 操作的详细信息

步骤：

1. 使用 Visual Basic 编辑器创建要用于实时追踪图层的 VB 宏。
2. 在内容列表窗口中右键单击要对其应用操作的追踪图层，然后单击快捷菜单中的属性。将弹出图层属性对话框。

   也可以在内容列表中双击追踪图层。

3. 单击图层属性窗体的操作选项卡。
4. 单击新建操作按钮。
5. 在要创建的操作类型面板中选择 Visual Basic。如果处理实时追踪图层，将仅列出 Visual Basic选项。
6. 单击文本框并输入操作的名称，然后单击确定启动操作参数窗体。
7. 在 Visual Basic 操作参数对话框中，单击投影下拉箭头并选择投影 或常规。

“常规”文件夹中存储的宏可影响 ArcMap 中打开的所有文档。位于“投影”文件夹的宏仅影响当前地图文档。

8. 单击模块下拉箭头并选择含有宏的模块。

Visual Basic 编辑器中的默认模块名称是 ThisDocument。

9. 单击宏下拉箭头并选择想要使用的宏的名称。

   如果提前创建 VB 宏并存储在该模块中，则其会出现在列表中。

10. 设置操作的触发器。单击操作触发方式面板中下面所需选项旁边的按钮，然后按照进一步说明设置触发器：

    始终	始终触发操作。
    属性查询	基于属性条件触发操作。了解如何设置属性触发器。
    位置查询	基于位置条件触发操作。了解如何设置位置触发器。
    属性和位置查询	基于属性条件和位置条件的组合触发操作。

11. 完成对操作触发器的设置后，单击确定创建操作。
12. 新操作将显示在图层操作列表中。如果列表中显示其他图层操作，可使用上箭头和下箭头按钮按照希望将其应用到追踪图层的顺序放置它们。也可通过选中或取消选中其复选框来启用或禁用列表中的某项图层操作。
13. 在图层属性对话框中单击应用或确定以应用所有更改。

提示:

此操作所使用的 VB 宏必须符合实时追踪数据的格式。以下一些简单的 VB 宏有助于加深初步认识：

该宏在 ArcMap 状态栏上显示传入数据消息的第五字段。符合操作触发条件的所有传入事件均将运行该宏。

Public Sub StatusBarMacro(ParamArray varArgs() As Variant) Application.StatusBar.Message(0) = varArgs(5) End Sub

该宏显示消息框中传入数据消息的第三字段。符合操作触发条件的所有传入事件均将运行该宏。

Public Sub MessageBoxMacro(ParamArray varArgs() As Variant) MsgBox varArgs(3) End Sub

警告:

使用自定义 VB 操作应格外小心。例如，如果对带有数千个事件的输入实时数据使用示例的消息框宏，并且所有的记录均符合操作的触发条件，则需要逐个关闭每个事件的消息框。