ArcMap是ArcGIS家族的成员之一,它内置了一种集成编程环境―VBA(Visaul Basic for Apllications)。通过VBA编程,用户不但可以扩展ArcMap的菜单、工具条等,而且可以完成大多数用户的特定需求。
ArcMap中VBA编程的方法有两种,一种是写VBA宏,另一种是创建UIControl并在其事件中写入实现用户需求的代码。下面列出两种方法的一般步骤。
方法一:写VBA宏(直接在VBA编辑器中编辑函数和过程)
1、如图1,单击菜单栏中的 命令,选择 的 项, 直接启动ArcMap的VBA编辑器;或者选择 的 项,进入如图2所示Macro对话框,在“Macro Name”文本框中输入要创建的宏的名称,并点 按钮,启动VBA编辑器。
3、在“New UIControl”对话框中,用户可根据需要选择UIControl类型:
UIButtonControl:创建Button;
UIToolControl:创建与Map交互的Tool;
UIEditBoxControl:创建EditBox;
UIComboBoxControl:创建ComboBox。
最后点击 按钮只创建UIControl或者点击 按钮创建UIControl并进入VBA编辑器。与方法一不同,此时应在UIControl的事件中进行VBA编程。
ArcMap中VBA编程的方法有两种,一种是写VBA宏,另一种是创建UIControl并在其事件中写入实现用户需求的代码。下面列出两种方法的一般步骤。
方法一:写VBA宏(直接在VBA编辑器中编辑函数和过程)
1、如图1,单击菜单栏中的 命令,选择 的 项, 直接启动ArcMap的VBA编辑器;或者选择 的 项,进入如图2所示Macro对话框,在“Macro Name”文本框中输入要创建的宏的名称,并点 按钮,启动VBA编辑器。
![按此在新窗口浏览图片](http://www.sdgis.com/Data/Chinese/Develop/ArcGISBook/1/pic/wd0101-1.jpg)
图1 启动Macro对话框/启动VBA编辑器
![按此在新窗口浏览图片](http://www.sdgis.com/Data/Chinese/Develop/ArcGISBook/1/pic/wd0101-2.jpg)
图2 Macro对话框
2、在图3所示的窗口中,用户可以根据实际选择在Normal节点或者Project节点的ThisDocument、Forms、Modules中编写宏(函数或过程),Normal节点下所写的宏系统自动保存,除非用户删除,否则它将始终存在并在任何工程中都有效;而在Project节点下所写得宏随工程保存(如不保存工程,则宏也将不被保存),并中有效。
3、运行VBA宏
在VBA编辑器中写好VBA代码后,有两种方式运行:第一,点击VBA编辑器工具条中的 (运行)按钮,可立即运行写好的代码;第二,退出VBA编辑器,重新启动Macro对话框,如图2,选择要运行的VBA宏名称,点击
按钮即可运行相应的VBA宏。
方法二:创建UIControl(交互式VBA编程)
1、用鼠标右击任何工具栏(条),在弹出的上托式菜单中选择
菜单项,如图4,进入图5所示的Customize对话框。
![按此在新窗口浏览图片](http://www.sdgis.com/Data/Chinese/Develop/ArcGISBook/1/pic/wd0101-4.jpg)
图4 启动“Customize”对话框
2、切换到“Customize”对话框的“Commands”页,选中“UIControls”后点击 按钮,进入图6所示的“New UIControl”对话框。3、在“New UIControl”对话框中,用户可根据需要选择UIControl类型:
UIButtonControl:创建Button;
UIToolControl:创建与Map交互的Tool;
UIEditBoxControl:创建EditBox;
UIComboBoxControl:创建ComboBox。
最后点击 按钮只创建UIControl或者点击 按钮创建UIControl并进入VBA编辑器。与方法一不同,此时应在UIControl的事件中进行VBA编程。
![按此在新窗口浏览图片](http://www.sdgis.com/Data/Chinese/Develop/ArcGISBook/1/pic/wd0101-5.jpg)
图5 Customize对话框
![按此在新窗口浏览图片](http://www.sdgis.com/Data/Chinese/Develop/ArcGISBook/1/pic/wd0101-6.jpg)
图6 New UIControl对话框
4、UIControl创建后,在图5所示的“Customize”对话框选中UIControl并将其拖置到任意工具条上,用户便可象使用系统已有的Control一样使用所创建的UIControl。![按此在新窗口浏览图片](http://www.sdgis.com/Data/Chinese/Develop/ArcGISBook/1/pic/wd0101-3.jpg)
图3 VBA编辑器(VBE)