第三讲 用户界面定制——VBA开发.pptVIP

用户界面定制－－VBA开发 上一讲 内容回顾 ArcGIS整体架构 ArcEngine与ArcObject的关系与区别 ArcEngine的体系结构 对象组件模型COM 如何阅读OMD COM 类与接口 类对象拥有一个或多个接口 接口是定义了一组方法和属性的逻辑关系 与对象的通信是通过接口来进行的 OMD 中的类与对象 抽象类（Abstract Class） 普通类（Class） 组件类（CoClass） 接口 方法和属性 OMD 中关系符号的含义 继承 组成 用来创建 对应关系 1：N 关联 用户界面定制－－VBA开发 用户界面定制－－VBA开发 VBA开发环境 Application对象 Document对象 定制ArcMap的界面 使用Extension扩展ArcGIS VB语法介绍 运行环境配置 帮助文档 3.1 VBA开发环境 与所有的使用VBA的应用程序类似的环境 客户化对话框（Customize dialog box） VB编辑环境（ Visual Basic Editor 3.1 VBA开发环境 使用客户化对话框（ Customize dialog box: ）进行以下操作 创建新的工具栏和命令 增加、删除、修改命令 设置控件属性 存储和发布客户化结果 VB编辑环境 （Visual Basic Editor ）: 编写代码 使用客户化对话框（Customize dialog box） 打开客户化对话框，使界面进入设置模式 在客户化对话框打开的状态，你可以 … 从新排列或移除现有的命令条目 增加新的工具和命令 改变命令的属性 客户化对话框 Toolbars: 管理工具栏, 创建新的工具栏 VB编辑器 VBA实例：创建工具栏（P25） 在“Tools”菜单中，点击“Customize”，弹出 Customize dialog 对话框 选择Toolbars一项: 点击”new”。弹出 New ToolBar 对话框 输入新的对话框名称，保存 将其拖放到ArcMap上 VBA实例：创建一个宏实现地图的放大（P26-28） 3.2 Application对象 3.2 Application对象 Application对象是ArcMap的根本， 是在VBA环境下的ArcObjects变量的全局变量 是编程的一个起始点 其包括的重要对象（P44 图2-1） DataWindow Extension Document AppDisplay StatusBar Templates 3.2 Application对象 IApplication 应用实例 1）显示Application应用程序的名称 2）打开一个文档 Sub Caption() Dim pApp As IApplication Set pApp = Application MsgBox pApp.Caption pApp.OpenDocument(“d:\test.mxd”) End Sub 3.3 Document对象 3.3 Document对象 是ArcMap框架中的“二号人物” 是在VBA环境下的ArcObjects变量的全局变量 ThisDocument 3.3 Document对象 一个mxd文件包括三种： Normal 模板 (Normal.mxt) 工程模板(*.mxt) 项目文档(*.mxd) 3.3 Document对象 与一个文档相关的代码可以包含在： Normal template 项目文档(mxd) 工程模板(optional) 可以在任何一个层次中客户化 3.3 Document对象 IMxDocument接口： IDocumentDefaultSymbols接口 IDocumentEvents接口 IDocumentEventsDisp接口 3.4 定制ArcMap的界面 3.4 定制ArcMap的界面 3.4.1 定制状态栏 IStatusBar, 状态栏划分为多个区域（面板Panel），每个面板用一个数值代表。如MainPane 为0，AnimationPane为1，PositionPane为2，PagePostionPage 3, 若显示这四个面板，将值表示0＋1＋2＋3 ＝7 Sub StatusBar() Dim pStatusB as IStatusBar Set pStatusB= Applicaton.StatusBar pStatusBar.Panes =255 End Sub 3.4.1 状态栏上显示进度条 Sub ProgressBar() Dim pStatusBar As ISta