课程设计----基于vb和mapobjects的二次开发

《课程设计----基于vb和mapobjects的二次开发》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、课程设计报告课程名称：地理信息系统设计名称：MapObjects的二次开发院（系）：*********专业班级：*********姓名：***************学号：***********指导教师：************年*月*日一、设计目的：（1）、实习类型：课程设计；（2）、了解VB的软硬件环境、MapObjects数据类型；（3）、初步掌握该软件的基本操作技能；（4）、能够熟练的操作VB6.0软件，并能应用该软件简单的与MO进行开发（5）、掌握产品的输出设计。（6）、培养利用GIS方法解决实际问题

2、的能力。二、设计主要仪器设备，器材，药品，软件等（1）软件准备：VB6.0（2）硬件准备：PC机500M内存，128M显卡（最低）（3）资料准备：MapObjects控件、USA等SHP文件三、设计原理和内容：（1）设计题目：MapObjects的二次开发（2）具体要求：应用VB软件与MO控件进行结合，实现MO的二次开发。（3）功能描述：üMapObjects是可以允许用户向应用程序中添加地图的制图软件控件集合。üMapObjects可以在多种符合工业标准的开发环境下使用，比如VisualBasic，Power

3、Builder，VisualC++等。MapObjects可以直接嵌入到这些开发环境中使用，允许用户快捷地创建应用程序。üMapObjects运行于WindowsXP或WindowsNT4.0或更高版本。üMapObjects包括一个ActiveX控件(OCX)也就是Map控件，还包括45个ActiveX自动对象。可用于符合IT行业标准的Windows编程环境。üMapObjects主要功能：Ø显示一张包含多个图层的地图(道路，河流，边界)。Ø放大，缩小，漫游。Ø创建新的几何图形，如点，线，圆，多边形。Ø为图层

4、添加注释。Ø识别地图上被选中的要素（点，线，面）。Ø可以通过线，矩形，多边形，圆来选择要素Ø可以选取距某参照物一定距离范围内的要素。Ø可以通过SQL语句来选择要素。Ø对选择的要素进行统计。Ø查询与更新被选择的要素的属性数据Ø制作专题地图。Ø根据字段的值标注图层要素。Ø显示从航片或卫星图片上获取的图像。Ø动态显示实时或时间系列数据。Ø通过输入地址在地图上定位。Ø将数据投影到不同的坐标系下üMapObjects对象模型（具体见附录）Ø数据通道对象组（DataAccessObjects)Ø地图显示对象组（MapDis

5、playObjects）Ø几何图形对象组（GeometricObjects)Ø地址匹配对象组（AddressMatchObjects）Ø地理坐标对象组（ProjectionObjects）四、设计步骤1、添加图层CommonDialog1.Filter="ESRIShapefiles(*.shp)

6、*.shp"CommonDialog1.InitDir=App.Path+"data"CommonDialog1.ShowOpen2、添加菜单栏工具——菜单编辑器3、Toolbar和ImageListIfToolb

7、ar1.Buttons(1).Value=1ThenMap1.MousePointer=moZoomInElseIfToolbar1.Buttons(2).Value=1ThenMap1.MousePointer=moZoomOutElseIfToolbar1.Buttons(3).Value=1ThenMap1.MousePointer=moPanElseIfToolbar1.Buttons(4).Value=1ThenMap1.MousePointer=moArrowSetMap1.Extent=Map1.

8、FullExtentElseIfToolbar1.Buttons(5).Value=1ThenMap1.MousePointer=moIdentifyElseIfToolbar1.Buttons(6).Value=1ThenMap1.MousePointer=moArrowForm5.ShowToolbar1.Buttons(6).Value=tbrUnpressedElseIfToolbar1.Buttons(7).Value=1ThenMap1.MousePointer=moArrowToolbar1.Bu

9、ttons(7).Value=tbrUnpressedElseIfToolbar1.Buttons(8).Value=1ThenMap1.MousePointer=moCrossreflashElseIfToolbar1.Buttons(9).Value=1ThenMap1.MousePointer=moCrossreflashElseIfToolbar1.Buttons(10).Va