Part6基于VBA的二次开发.pptVIP

(2)关闭VBA开发环境，返回到ArcMap。 GIS设计与开发 19 在ArcMap环境中，点击菜单Tools，指向Macros，然后点击Macros。 选择Module1.MyZoomIn，然后点击Run，当前的图层将被放大显示。 (3)运行宏 GIS设计与开发 20 1）点击Tools菜单，点击Customize子菜单 2）点击Commands选项卡，选择Project.Module1.MyZoomIn。 （4）将宏添加到工具条上 GIS设计与开发 21 3）将Project.Module1.MyZoomIn拖动到My Own Tools工具条上。 4）在Customize环境下，可以右键点击该按钮，修改其相关属性，如点击Change Button Image，改变图标的类型。 5）关闭Customize对话框。 6）点击刚才添加的宏按钮，运行相关的宏。 练习：请按照同样的办法添加MyZoomOut宏。 区别在于：将 pEnv.Expand 0.5, 0.5, True 改为： pEnv.Expand 2.0, 2.0, True GIS设计与开发 22 可以在代码中调用一些嵌入式命令，如Find命令。 具体方法如下： (1)在ArcMap中，点击Tools，指向Macros，然后点击Visual Basic Editor。 10、调用嵌入命令 GIS设计与开发 23 (2)在如图所示的Visual Basic Editor中，在Modules中添加一个模块，即Module2，然后添加如下图所示的代码。 GIS设计与开发 24 (3)返回到ArcMap。 (4)右键点击需要添加命令的菜单，点击Customize，如图所示，将Commands中的宏拖动到菜单条上。 GIS设计与开发 25 (5)测试： 调入一个图层，将其放大或缩小，点击刚才添加的按钮，对程序进行测试。 GIS设计与开发 26 命令(command)类似于一个宏，但是允许有更多的定制。命令是UIControl的一种类型。 在VBA中创建命令的具体方法如下： （1）在ArcMap环境中，点击菜单Tools，Customize。 （2）在Customize对话框中，点击Commands选项卡， （3）在Save下拉框中，选择你的 Project的名字，或者选择“无标题” 11、在VBA中创建一个Command(命令) GIS设计与开发 27 (4)在Categories列表框中，选择UIControls。 (5)点击New UIControl。 (6)在如图所示的New UIControl对话框中，选择UIButtonControl, 然后点击Create and Edit. GIS设计与开发 28 下面为UIButtonControl的点击(Click)事件添加代码。 添加将图形恢复到数据集的范围。 添加如下代码： (6)为UIToolControl添加代码 GIS设计与开发 29 （7）下面为该Command添加ToolTip(工具提示)和message(消息)。 在Procedure(进程)组合框中，选择Message,并添加如下代码。 GIS设计与开发 30 （8）点击ToolTip进程，并输入下列代码 GIS设计与开发 31 （9）点击File，Close and Return to ArcMap (10)在ArcMap中，点击Tools， Customize， 然后点击Commands选项。 （11）点击Save下拉框，选择你的project名，或“无标题” （12）在Categories列表中，选择UIControls 并拖动UIButtonControl1 到你所创建的工具条上，如图所示。然后关闭Customize对话框。 （13）在ArcMap中打开一个图层，然后进行测试。 GIS设计与开发 32 (1)在ArcMap环境中，点击Tools，Customize； (2)点击Commands选项卡，在Save下拉组合框中选择“无标题”； (3)在Categories列表中选择UIControls； (4)点击New UIControl； (5)选择UIToolControl类型， 点击Create and Edit。 12、在VBA中创建一个Tool(工具) GIS设计与开发 33 (6)添加如下代码 GIS设计与开发 34 （7）在UIToolControl1的Enabled事件进程中添加如下代码： （8）在CursorID事件过程中添加如下代码，从而控制使用该工具时的光标的类型。 GIS设计与