基于VBA的二次开发.pptVIP

GIS设计与开发 17 代码解释： (1)第一行：Dim pDoc As IMxDocument 定义一个表示ArcMap文档的变量。 (2)第二行：Dim pEnv As IEnvelope 定义一个矩形，确定数据的范围。 (3)ThisDocument： 预定义的变量，代表当前的文档。 (4)ActiveView： 提供一个IActiveView接口，将文档数据连接到当前的屏幕显示数据。 GIS设计与开发 18 (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 Wuhan University School of Remote Sensing and Information Engineering GIS设计与开发 Wuhan University School of Remote Sensing and Information Engineering GIS工程设计开发综合实习 ——基于C#.NET和AO/AE的GIS设计与开发 Part 6：基于 VBA的二次开发 精品资料 你怎么称呼老师？ 如果老师最后没有总结一节课的重点的难点，你是否会认为老师的教学方法需要改进？ 你所经历的课堂，是讲座式还是讨论式？ 教师的教鞭 “不怕太阳晒，也不怕那风雨狂，只怕先生骂我笨，没有学问无颜见爹娘 ……” “太阳当空照，花儿对我笑，小