VB的程序设计与开发实习报告

VB 的程序设计与开发实习报告 实习内容 实习内容 在完成 PPT 中一 二 三 四 五 六章内容中的练习的基础上 利用 VB 和 AO 自行设计并开发一个 GIS 实验系统 利用 VBA 的方式设计并开 发一个简单的 GIS 系统 实习要求 实习要求 1 在学习基于 VB 和 AO AE 的程序设计的相关知识的基础上 设计并开发一个 GIS 系统 要求具有如下功能 1 基本功能 图层的添加 删除 图形的放大 缩小 漫游 全图显示 基本的空间查询功能 2 提高部分 空间分析功能 叠置分析 缓冲区分析 网络分析 2 利用 VBA 的方式设计并开发一个简单的 GIS 系统 要求具有自己定制的菜单系统 工具按钮 具有放大 缩小 漫游等功能 在完成以上设计与开发任务的 基础上 介绍 GIS 系统的设计与开发的主要过程 注意事项等 实习意义实习意义 实习步骤实习步骤 一 创建程序的用户界面 1 启动 VB 启动 VB 时 显示 New Project 对话框 选择 Standard EXE 进入 Visual Basic 环境 2 保存文件 1 保存 Visual Basic 工程 点击 File Save Project 2 新建文件夹 LoanCalc 保存窗体文件 保存工程文件 将工程名改为 Loan Calculator 二 从用户处获取信息 1 添加文本框控件 1 在工具箱中单击生成 TextBox 控件的工具 如果不知道是哪一个 将鼠标移到每个工具上停一会就可看见工具提示 2 将鼠标指针移动到窗体上 指针变 成十字丝 表明即将绘制一个控件 3 将指针移至要绘制控件的区域的一角 4 单击并按住鼠标左键不放 5 拖动鼠标到另一个对角 到达最终位置 6 满意后 松开鼠标 绘制成功 2 设置控件的属性 在窗体上添加控件后 通常要设置控件的一个或多个属性 属性是控制对象外观和行为方式的摄制 下面修改刚才添加的文本编辑框的相关 属性 修改其 Name 属性和 Text 属性 选中控件 按 F4 修改相关属性 将 Name 改为 txtPrincipal Text 属性改为空 3 按同样的方法添加其他三个文本编辑框 并修改相关属性 另外 3 个文本编辑框的 Name 分别为 txtIntRate txtTem txtPayment 同时清除它们的 Text 属性 4 移动控件及改变控件大小 右键点击工具栏 选中 Form Editor 工具菜单 5 标记程序的控件 为每个文本框控件添加一个标签 Label 控件 提供提示信息 6 添加命令按钮 前面完成了设计 下面需要提供一些开始操作的方法 这就是命令按钮控件的目的 添加两个命令按钮 Name 分别为 cmdCalculate cmdExit Caption 属性分别为 Calculate Payment Exit 三 改变窗体的属性 可设置窗体的属性来控制它的外观和行为方式 1 修改窗体的名称为 frmMain 2 改变窗体的宽度和高度 Width Height 属性 3 改变窗体的 WindowState 等 四 为程序的执行编写代码 现在的 Project 还不能做任何工作 必须添加一些代码 1 响应事件 通过在事件过程 Event Procedures 中放置代码 来使程序对事件做出响应 事件过程是特定事件作用对象时所运行的一段代码 双击窗体上的 Exit 按钮 响应 Click 点击 事件 进入代码窗口 以 Private Sub 开始 以 End Sub 结束 Private Sub 后面的部分表明子过程的名称 为 cmdExit Click 这是表明一个名为 cmdExit 的控件的 Click 事件过程的一个预定义名称 2 指定事件过程 查看代码窗口顶部附近的两个下拉列表框 Object 框列出了放置在当前窗体中的所有对象及窗体本身 Procedure 框列出了 Object 框中当前所选 对象的所有事件 使用这两个下拉列表可以导航到代码窗口的任一部分 可以看成一个导航工具 3 编写 Calculate Payment 命令按钮的代码 该按钮的功能是 在用户提供的信息基础上计算每月的付款金额 1 变量的声明 Calculate 子过程的第一部分用于声明所需的变量 Calculate 子过程使用四个变量 本金额 利率 贷款金额 计算出的月付款 在 Private Sub cmdCalculate Click 和 End Sub 之间的空行上 键入以下代码 Dim cPrincipal As Currency Dim fIntRate As Single Dim nTerm As Integer Dim cPayment As Currency 变量声明的一般格式为 单词 Dim 紧接着一个变量名 单词 As 和变量类型 2 过程代码 过程代码是过程中做实际工作的剩余部分 添加如下两行代码 Store the Principal in the variable cPrincipal cPrincipal Val txtPrincipal Text 第一行是一个解释要做什么的注释 以单引号 标记 第二行提取用户输入到 txtPrinpical 文本框的信息 并放入变量 cPrincipal 中 这是一个赋值语句 Val 函数 用于将括号中的任何内容转换成数值类型以便于后面的计算 添加剩余代码 Store the Principal in the variable cPrincipal cPrincipal Val txtPrincipal Text convert the interest rate to its decimal equivalent i e 12 75 become 0 1257 fIntRate Val txtIntRate Text 100 Convert annual interest rate to monthly by dividing by 12 fIntRate fIntRate 12 Covert number of years to number of months nTerm Val txtTem Text 12 Calculate and display the monthly payment The Format function makes the displayed number look good cPayment cPrincipal fIntRate 1 1 fIntRate nTerm txtPayment Text Format cPayment Fixed 3 运行程序 运行程序 输入以下值 Principal 本金 128000 Interest Rate 利率 9 75 Term 周期 30 年 点击 Calculate Payment 命令按钮 观察一下自己的结果 五 创建一个菜单栏 1 建立主要的菜单项 1 首先打开希望菜单所在的窗体 然后以三种方法中的任何一种启动 Menu Editor 1 单击工具栏上的 Menu Editor 按钮 2 选择 Tools Menu Editor 3 按 Ctrl E 2 创建一个简单的菜单系统 六 创建 Visual Basic 的工具栏 要创建工具栏 需要用到多个控件 一个或多个 ToolBar 控件以及 ImageList 控件 ImageList 控件包含其他控件使用的位图集 ToolBar 控件在它的按钮上显示来 自 ImageList 控件的图像 1 添加到工具箱 要在窗体上绘制一个 ToolBar 控件 首先需要把它添加到工具箱中 开始在工具箱空白区单击鼠标右键 从弹出式菜单中选取 Components 打 开 Components 对话框 选取第一组 Common 控件 Microsoft Windows Common Controls6 0 如图所示 包含标准工具栏和 ImageList 控件 如果需要 CoolBar 件 则同时选择第三组 Common 控件 Microsoft Windows Common Controls36 0 2 为工具栏获取图片 1 在窗体上绘制 ImageList 控件 并给予命名 该控件对用户不可见 大小由 Visual Basic 设置 2 为 ImageList 控件添加图像 按下 Properties 窗口中的 Custom 属性的省略号 按钮 或者右键单击 ImageList 控件并选取 Properties 打开属性页对话框 3 为 ImageList 控件添加图像 单击 Insert Picture 按钮 选择需要的图片 4 添加所需图像 点击 确定 3 创建一个标准的工具栏 1 在窗体上绘制 ToolBar 控件 2 设置工具栏的排列方式 1 顶部定位 Align 1 vbAlignTop 2 底部定位 Align 2 vbAlignBotton 3 左边或右边定位 3 vbAlignLeft 4 vbAlignRight 4 浮动 Align 0 vbAlignNone 3 右键单击控件 选取 Properties 打开属性页对话框 4 将 ToolBar 控件的 ImageList 属性设置为提供图像的 ImageList 控件的名称 4 创建工具栏按钮 1 在工具栏上添加标准按钮 点击 Insert Button 按钮 添加标准按钮 修改 Key 属性 Caption 属性 Image 属性等 5 用代码激活按钮 工具栏的按钮没有自己的事件 实际上是为工具栏自身的 ButtonClick 和 ButtonMenuClick 事件编写代码 可以使用 Button 对象的 key 属性确 定实际上按了哪个按钮 添加代码 七 创建 ActiveX 控件 7 1 建立 ActiveX 控件的步骤 1 启动一个新的 Visual Basic ActiveX 控件工程 为控件绘制界面 2 添加代码 激活希望控件具有的所有属性 方法和事件 3 建立一个测试工程 在 Visual Basic 中测试控件 确保使用赋予控件的所有属性 方法和属性 4 将控件编译到一个 OCX 文件中 然后在控件的编译版本上测试 如果是为 Internet 开发的 就在 Web 页上测试 5 利用 Package and Deployment Wizard 或其他工具 为控件建立一个包括所有支持文件的可配置版本 7 2 创建一个用户绘制的控件 可以用图形方法自己绘制界面 创建一个不包括任何现有控件的完全原始的控件 绘 制自己的控件需要比其他两种方法做更多的工作 但是它可以提供一个个原始的或不同的用户界面 7 3 创建 ActiveX 控件 1 启动 Visual Basic 选择 File New Project 2 在 New Project 对话框中 选择 ActiveX Control 选项 创建了一个叫做 UserControl1 的 UserControl 对象的新工程 3 在属性窗口中将 UserControl 对象的名称改为 AddressCtl 4 选择 Project 将工程名改为 Address 5 在窗体上添加 5 个 TextBox 控件 将它们的 Text 属性设置为空字符串 同时给他们赋予下列名字 txtName txtStreet txtCity txtState txtZip 6 在窗体上添加 5 个 Label 控件 同时赋予下列属性 Name 属性 lblName lblStreet lblCity lblState lblZip Caption 属性 Name Street City State Zip 7 排列控件的布局 8 在控件中添加改变尺寸的代码 1 双击 UserControl 对象 打开代码窗口 2 从 Procedures 框中 选择 Resize 事件 3 添加以下代码 4 保存 9 在控件中添加新属性 10 测试 ActiveX 控件 1 在工程组中添加一个测试工程 选择 File Add project 选择一个 standard EXE 工程类型即可 2 建立测试工程 在工程组中添加 Standard EXE 工程时 ToolBox 中有一个暗淡显示的图标 这个图标代表用户控件 只要打开 UserControl 窗体 它就会保持为不可用状态 添加一个命令按钮 添加相应的代码 3 设置启动工程 当使用一个工程组时 必须首先指定哪个工程是启动工程 将测试工程 Project1 设置为启动工程 右键点击 Project1 选取 Set as Start Up 4 运行测试程序 11 编译控件 1 创建 OCX 文件 2 从 Visual Basic 的 File 菜单中选择 Make 选项 3 出现 Make Project 对话框后 键入一个文件名 4 单击 OK 按钮 VB 编译此控件 并将 OCX 文件写入磁盘 12 测试编译的控件 在 VB 中启动一个新的 Standard EXE 工程 选择菜单 Project Components 显示 Components 对话框 单击 Browse 按钮 选择刚才创建的 OCX 文件 在 Toolbox 中出现一个新的图标 然后在窗体中绘制该控件进行测试 13 将控件配置到其他计算机上 将 OCX 文件复制到其他用户的计算机上 并用 REGSVR32 命令为文件注册 其他已经在计算机上安装了 Visual Basic 以及支 持文件 的用户就可以使用此控件了 如 REGSVR32 d data address ocx 14 将控件注册以后 就可以在其他程序中使用了 点击 Project Components 在 Components 对话框中就可以找到我们刚才创件的 OCX 控件了 八 建立 ActiveX DLL 1 建立动态链接库 1 启动 VB 执行 文件 菜单中的 新建工程 命令 打开 新建工程 对话框 2 在 新建工程 对话框中选择 ActiveX DLL 图表 然后单击 打开 按钮 将在工程中自动建立一个类模块 Class1 3 打开属性窗口 把类的名字该成 Fraction 4 点击 保存 按钮 把类模块保存到文件 mathfrac cls 中 5 在 Project Name 中输入工程名 math 在 工程描述 内输入适当的信息 在 启动窗体 中选 none 然后单击 确定 6 执行文件菜单的 工程另存为 命令 把工程保存到 mathproj vbp 中 7 打开类模块 在窗口中输入以下的代码 8 执行 文件 菜单中的 生成 mathproj dll 命令 打开 生成工程 对话框 在 文件名 一栏写上要输入的名字 通常用工程文件作为文件名 把扩展名改成 dll 即 mathproj dll 单击 确定 2 测试 DLL 1 执行 文件 菜单中的 添加工程 命令 在打开的 添加工程 对话框 新建 选项卡 中选择 EXE 图标 然后单击 打开 按钮 添加工程后 在 资源管理器 中有两个工程 组成一个工程组 为了使程序能运行 必须把新添加的工程设为启动工程 2 保存工程组和新添加的工程及其窗体 3 打开 project 菜单中的 References 子菜单 在列表框中选择 math 单击 确定 4 在窗体上画 6 个文本框 4 个命令按钮 文本框的 Name 属性分别为 txtN1 txtN2 txtN3 txtD1 txtD2 txtD3 Text 属性为空白 命令按钮的 Name 属性分别为 cmdAdd cmdSubstract cmdMultiply cmdDivide Caption 属性为 加 减 乘 除 再在 窗体上添加三条直线 用来把分子分母隔开 5 编写用户驱动程序 6 运行 九 使用已经编译的 DLL 基本步骤如下 1 安装 将 DLL 及其所需要的任何组件和文件拷贝到开发人员的 PC 机上 2 注册 DLL 使用 regsvr32 程序在 Windows Registry 中注册 dll 十 十 VB 数据库编程数据库编程 1 数据控件 Data 控件 1 选择数据库 2 选择记录集 3 添加数据绑定控件并确定其 DataSource 和 DataField 2 ADO ActiveX Data Objects ADO ActiveX 数据对象 1 引用 2 建立一个数据源 建立 ODBC 数据源 3 建立 ADO 数据控件通过 ADO 控件的属性页 设置相关属性 4 数据绑定类似于 Data 控件 设置几个编辑框 实现数据的绑定 5 使用 DataGrid 控件 6 打开和关闭一个连接 7 使用 Execute 方法 Connection 对象的 Execute 方法能运行一个数据源的 SQL 语句 在窗体上添加一个 list 框件 lstHouse 添加一个命令按钮 然后添加代码 8 创建一个记录集 Dim rs as ADODB Recordset Set rs New AODDB Recordset 9 记录集的导航 MoveFirst MoveLast MoveNext MovePrevious Move 基于基于 VB 的的 AO 开发开发 1 设置环境 设置环境 1 打开一个 Visual Basic 工程 并创建一个标准的 EXE 工程 如下图所示 2 点击 VB 的 Project 菜单 然后点击 Components 3 在 Components 对话框中 点击 ESRI MapControl 然后点击 确定 MapControl 将出现在 VB 工具盒中 2 添加 添加 MapControl 可以在一个 VB 窗体中添加一个或多个 MapControl 1 点击 VB 工具箱中的 MapControl 图标 2 点击并拖动到 VB 窗体的适当位置 或者是双击 MapControl 图标 MapControl 将自动放置在窗体上 如下图 所示 3 MapControl 的属性页 的属性页 MapControl 有 4 个属性页 General Map Color 和 Picture 1 右键点击 MapControl 然后点击 Properties 打开 MapControl 的属性页 2 使用 What s This 按钮 获取属性页的帮助 1 在属性页对话框中 右键点击某个控件或标签 2 然后点击 What s This 按钮 将显示相关的帮助信息 3 点击属性页的其他的任何地方 关闭帮助 3 直接点击属性页对话框的 帮助 按钮 获取相关的 AO 的帮助 4 使用属性页添加数据 1 右键点击 MapControl 然后点击 Properties 然后打开 MapControl 属性页 2 点击 Map 标签 3 点击 Add Layers 按钮 按钮 4 在 Add Layers 对话框中 导航到包含数据的文件夹 5 点击并高亮显示需要添加的数据 如果需要选择多个数据 通过同时按住 shift 键的方式进行选择 6 点击 Add 按钮 将选中的数据添加到 MapControl 中 7 点击 确定 按钮 应用选中的图层 并自动关闭属性页对话框 8 点击 Run 菜单 并点击 Start 子菜单 运行程序 5 从 从 Map Document 中添加数据 中添加数据 1 右键点击 MapControl 然后点击 Properties 在属性页对话框的 General 标签中 2 点击浏览图形文档 Browse Map Document button 按钮 如下图所示 3 在 Map Documents 对话框中 导航到包含所需要选择的 map document 的文件夹 4 点击并高亮显示目标 map document 然后点击 打开 按钮 5 点击 Run 运行程序 得到如图所示的结果 7 使用属性页管理数据 使用属性页管理数据 1 如下图所示 在 Map 属性页中 在 Layers 列表中 可以通过点击移动图层顺序的按钮 移动图层的上下 顺序 一般将栅格数据放在下面 2 如下图所示 点击 Properties button 属性按钮 弹出如下图所示的图层属性的设置对话框 可以修改图层 的相关属性 例如 将符号 Symbol 该为玫瑰色 3 运行结果为 8 使用属性页设置控件的外形 使用属性页设置控件的外形 在如图所示的属性页的 General 选项卡 选中 Preview in Design Mode 然后点击 确定 然后改变控件的相关外 形 如边界的类型 然后点击 应用 就可以在设计模式下观察修改的结果 9 使用属性页设置图形属性 利用 Map 属性页可以设置图形的相关属性 如坐标系统 比例尺 图形的旋转角度等 10 更新属性 编辑代码 1 更新属性 点击 MapControl 激活 点击 Custom 属性的 按钮 打开 MapControl 的属性页 更新相关的属性 2 编辑代码 点击 MapControl 激活 点击 F7 或双击 MapControl 或者点击 View 菜单 然后点击 Code 子菜单 进行代码的编辑 11 使用 ArcObjects 开发帮助 ArcObjects 开发帮助提供了关于 ArcObjects 中的每个对象 object 属性 property 方法 method 和事件 event 的相关 帮助 1 打开 ArcObjects Developer Help 1 点击 MapControl 激活 MapControl 2 按 F1 打开 ArcObjects Developer Help 2 从对象浏览器 Object Browse 中获取帮助 1 点击 F2 或者点击 View 菜单 选择 Object Browser 子菜单 2 从 Project Library 下拉列表中选择 esriMapControl 3 在类列表 Classes 中选择 MapControl 然后从成员列表 Members of MapControl 中选择一个事件 方法或属 性 4 点击 Help button 帮助按钮 打开相关的帮助信息 12 添加 ZoomIn 放大 功能 在 OnMouseDown 程序中添加如下代码 运行程序以后 用鼠标点击图形 然后拉动一个矩形 释放鼠标 图层将放大显示 13 添加 Pan 漫游 功能 修改前面的 OnMouseDown 程序 如果点击左键 则执行放大操作 如果点击右键 则执行移动操作 代码如下 运行程序 执行相关的放大和漫游操作 14 添加移动到全范围 Zoom to Full Extent 的功能 1 在 VB 的窗体上添加一个命令按钮 CommandButton 修改命令按钮的 Caption 属 性为 Full Extent 2 双击 Full Extent 命令按钮 添加代码 Private Sub Command1 Click MapControl1 Extent MapControl1 FullExtent End Sub 3 点击 MapControl 控件 修改 ShowScrollbars 属性为 False 4 运行程序 测试成果 15 创建 Find 寻找 工具 给定一个州的名字 找到该州 并放大显示 例子数据位于 ArcGIS DeveloperKit samples data usa 操作如下 1 在 Project Components 中引入 ESRI MapControl 控件 并在窗体中加入 MapControl 控件 2 在 Project References 中引入 ESRI Carto Object Library IFeatureLayer ESRI GeoDatabase Object Library IQueryFilter 3 使用属性页添加图层 states shp 和 ushigh shp 4 添加一个 Label 按钮 并修改其 Caption 属性为 State 4 添加一个 TextBox 按钮 并清除其 text 属性 6 双击 TextBox 按钮 进入代码编写环境 7 选择 KeyPress 事件 然后添加如下代码 6 运行程序 输入美国各州的名称 New Jersey Ohio Texas 然后回车 将放大显示相关的图形 16 基于比例尺显示图层 通过代码确定某个图层是否可见 在某个比例尺下 不必显示太多的细节 1 在 Components 对话框中引入 ESRI MapControl 控件并加入到窗体中 2 在 References 对话框中引入 ESRI Carto Object Library 3 利用属性页将 states shp ushigh shp counties shp 添加到 MapControl 中 4 将 counties 图层移动到 states 图层之下 5 点击属性按钮 显示 counties 图层的属性 点击 Symbology 选项卡 点击 Categories 然后点击 Unique Values 6 选择 STATE NAME 字段 然后点击 Add All Values 按钮 然后点击 确定 7 然后在 Form Load 程序中添加如下代码 运行程序 放大图形 直到 counties 图层可见为止 当点击 Full Extent 按钮后 counties 图层不再可见 17 通过代码添加图层 解释 AddShapefile 方法 添加一个新的图层到 MapControl 的顶部图层 AddLayer 方法 在确定的顺序添加一个图层 图层可以是不同的格式的 如 TIN Raster coverage 或者是 ArcSDE 的 LoadMxFile 和 AddLayerFromFile 方法也可以用来添加数据到 MapControl 1 在 Components 对话框中引入 ESRI MapControl 控件 并加入到窗体中 2 在 References 中引入 ESRI Geodatabase Object Library 3 在 References 中引入 ESRI DataSourceFile Object Library 4 在 References 中引入 ESRI Carto Object Library 4 在代码区添加如下代码 运行程序 测试成果 18 增加空间查询工具 本例中实现了四种空间定位查询的功能 1 按点查询 给定一个鼠标点位 检索出离它最近的空间的空间对象 并显示它的属性 回答它是什么 它的属性是什么 2 按线查询 给出一条直线或折线段 检索出它包含的点或穿过的线或面 显示它们的属性 3 按矩形查询 给出一个矩形 检索出这个矩形范围内或相交的某个类或某一层的空间对象 并显示出每个对象的属性表 本 例中的矩形查询是检索出包含或者穿过该矩形的全部地物 4 按多边形查询 给定一个多边形 检索出这个多边形范围内或相交的某个类或某一层的空间对象 其实现方法与按矩形查询类 似 操作如下 1 在 Components 中引入 ESRI Mapcontrol 空间 并加入到窗体中 2 在 References 中分别引入 1 ESRI Carto Object Library 2 ESRI Display Object Library 3 ESRI GeoDatabase Object Library 4 ESRI Geometry Object Library 5 ESRI System Object Library 6 ESRI SystemUI Object Library 3 在工程中添加一个 form 和一个 module 4 在 Form1 中添加一个 MapControl 两个 ComboBox 一个用来显示图层名 改 Name 属性为 cboLayers 一个 用来显示四种查询方法 改 Name 属性为 CobSelect 另外在 Form1 中添加 5 个 CommandButton 分别用来执行放大 漫游 居中 显示图层 和选择操作的功能 5 通过 MapControl 的属性页面添加图层 本例中用到的图层文件位于 ArcGIS DeveloperKit samples data usa 文件夹中 例如可加入 ushigh shp states shp wind shp 6 在 Form2 中添加一个 MSHFLexGrid 控件 用来显示查询结果的属性 7 在 module 中定义了 3 个全局变量 m pCurrentLayer m pMap m pLayer 分别用来获取 Form1 中的当前图层 当前地图和当前的特征图层 8 在 module 中定义一个 ConvertPixelsToMapUnits 函数 用来把象素的距离转换成地图上的距离 9 定义 SelectMouseDown 函数用来实现点查询 AO 中点查询的过程为 先把屏幕上的点转换为地图上的点 pActiveView ScreenDisplay DisplayTransformation ToMapPoint x y x y 为屏 幕上的点的 xy 坐标 再以这个点为中心生成一个圆形的缓冲区 定义空间查询条件 对当前图层的所有特征进行遍历 找到符合空间查询条件的特征 Dim pCursor As IFeatureCursor Set pCursor pFeatureLayer Search pFilter False pCursor 即为指向所有符合条