课程设计方案vb和mapobjects的二次开发.docx

课程设计报告 课程名称： 地理信息系统 设计名称： MapObiects的二次开发 院 ＜系）： ********* 专业班级： ********* 姓名： *************** 学号： *********** 指导教师： ******** **** ^年 * 月 * 日 、设计目的： 1）、实习类型：课程设计； 2）、了解VB的软硬件环境、Map Objects数据类型； 3） 、初步掌握该软件的基本操作技能； 4）、能够熟练的操作VB6.0软件，并能应用该软件简单的与 M0进行开发 5）、掌握产品的输出设计。 6）、培养利用 GIS 方法解决实际问题的能力。 二、 设计主要仪器设备，器材，药品，软件等 1）软件准备： VB6.0 2）硬件准备：PC机500M内存，128M显卡最低） 3）资料准备：MapObjects控件、USA等SHP文件 三、 设计原理和内容： 1）设计题目：Map Objects的二次开发 2）具体要求：应用 VB 软件与 MO 控件进行结合，实现 MO 的二次开发。 3）功能描述： MapObjects是可以允许用户向应用程序中添加地图的制图软件控件集合。 MapObjects 可以在多种符合工业标准的开发环境下使用，比如 Visual Basic, PowerBuilder，Visual C++ 等。MapObjects 可以直接嵌入到这些开发 环境中使用，允许用户快捷地创建应用程序。 MapObjects运行于 Windows XP 或 Windows NT 4.0 或更高版本。 MapObjects 包括一个 ActiveX 控件 （OCX 也就是 Map 控件，还包括 45个 ActiveX 自动对象。可用于符合 IT 行业标准的 Windows 编程环境。 MapObjects主要功能： 显示一张包含多个图层的地图 （道路，河流，边界 。 放大，缩小，漫游。 创建新的几何图形，如点，线，圆，多边形。 为图层添加注释。 识别地图上被选中的要素 点，线，面）。 可以通过线，矩形，多边形，圆来选择要素 可以选取距某参照物一定距离范围内的要素。 可以通过SQL语句来选择要素。 对选择的要素进行统计。 查询与更新被选择的要素的属性数据 制作专题地图。 根据字段的值标注图层要素。 显示从航片或卫星图片上获取的图像。 动态显示实时或时间系列数据。 通过输入地址在地图上定位。 将数据投影到不同的坐标系下 MapObjects对象模型 ＜具体见附录） 数据通道对象组 地图显示对象组 几何图形对象组 地址匹配对象组 地理坐标对象组 四、设计步骤  Data Access Objects Map Display Objects) Geometric Objects Address Match Objects) Projection Objects) 1添加图层 Commo nDialog1.Filter = ESRI Shapefiles (*.shp|*.shp Commo nDialog1.I ni tDir = App.Path + \data Common Dialog1.ShowOpe n 0刁幵3n j|￡1■/■■ 0刁幵 3 n j|￡1 ■ /■ ■ ■K JI X 5 Ei兀 4X13+ I1K：|事■密 自话Tf闻:SJ lb w 2、添加菜单栏工具一一菜单编辑器帮助上下文IE 00 ： |0| 2、添加菜单栏 工具一一菜单编辑器 帮助上下文IE 00 ： |0 | QIqxi?) 取消 厂复选? I*有效? 协调位置⑴： 0 一 Hone 可见加 厂显示窗口列裘哪） * ■?書 * |下一个an| teA⑴ 析音I 析 音I 照 驕」良HMH 「具二询二一 二工二杳二二 3、Toolbar 禾口 ImageList If Toolbarl.Butto ns(1.Value = 1 Then Mapl.MousePo in ter = moZoo mln ElseIf Toolbar1.Butto ns(2.Value = 1 The n Map 1.MousePoi nter = moZoomOut ElseIf Toolbar1.Butto ns(3.Value = 1 The n Map1.MousePo in ter = moPa n ElseIf Toolbar1.Button s(4.Value = 1 The n Map1.MousePo in ter = moArrow Set Map1.Exte nt = Map1.FullExte nt ElseIf Toolbar1.Butto ns(5.Value = 1 The n Map1.MousePo in