地图基本功能的实现

《地图基本功能的实现》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、重庆交通大学学生实验报告实验课程名称地理信息系统软件二次开发开课实验室空间数据处理实验室学院河海学院年级2008专业班1学生姓名学号08260117开课时间2011至2012学年第1学期总成绩教师签名16目录实验二地图基本功能的实现3一、实验内容3二、实验要求3三、实验步骤31、系统基本界面的设置；32、打开*.shp格式的文件43、地图的放大功能74、地图的所缩小功能95、地图的漫游功能116、地图的全视功能137、菜单栏与快捷键的一一对应14四、实验成果16五、实验心得1616实验二地图基本功能的实现一、实验内容1、学习菜单中事件的编辑；

2、2、学习Toolbar中添加的快捷键图标与菜单中的对应操作；3、学习GIS应用系统的基本界面操作。二、实验要求1、实现系统只打开*.shp格式文件的功能；、2、实现地图的放大功能；3、实现地图的缩小功能；4、实现地图的漫游功能；5、实现地图的全视功能；6、实现菜单栏与快捷键的一一对应功能。三、实验步骤1、系统基本界面的设置；修改工程名，修改窗体名，设置窗体图标，编辑菜单，编辑快捷键图标，添加内容窗口，设置鹰眼窗口，添加基本地图窗口，在代码窗口中进行基本界面的设置，代码为：PrivateSubForm_Load()boo=FalseFrmMai

3、n.WindowState=2Map1.Width=Screen.Width-3400Map1.Height=Screen.Height-2000'调整MAP的界面16layercontrol.Width=Screen.Width-17300Map2.Width=Screen.Width-17300layercontrol.Height=Screen.Height-6000Map2.Height=Screen.Height-8000'调整内容窗口和鹰眼窗口的界面EndSub运行结果后，系统基本界面如图2-1图2-12、打开*.shp格式的文件

4、点击窗体中“文件-打开”，如图2-1，16图2-1进入代码窗口，设置如下代码：PrivateSubMnuFileOpen_Click(IndexAsInteger)'添加文件DimdconnAsNewMapObjects2.DataConnectionDimshplayerAsNewMapObjects2.MapLayerCommonDialog1.Filter="ESRIShapefiles(*.shp)

5、*.shp"'设置虑通器，只打开*.shp格式的文件CommonDialog1.ShowOpenIfLen(CommonDialog1.

6、FileName)=0ThenExitSubdconn.Database=CurDirIfNotdconn.ConnectThenExitSubFileName=Left(CommonDialog1.FileTitle,Len(CommonDialog1.FileTitle))'为什么此处不减四dconn.ConnectSetshplayer.GeoDataset=dconn.FindGeoDataset(FileName)'此处不加引号且不能添加固定文件Map1.Layers.AddshplayerEndSub16运行过程见图2-2，图2-

7、3，图2-4图2-2图2-316图2-4此图为吉林省行政区划图。3、地图的放大功能点击窗体中视图菜单中的“放大”选项，如图2-5，图2-5进入代码窗口，输入代码：PrivateSubMnuViewZoomIn_Click()DimrAsMapObjects2.Rectangle16Setr=Map1.Extentr.ScaleRectangle0.5'大于1就是缩小Map1.Extent=rboo=TrueEndSub实现地图的放大功能，运行过程，见图2-6图2-7；图2-5（图像原始大小）图2-6（图像放大）经操作后可以看出，此放大功能只能

8、进行固定倍数的放大。164、地图的所缩小功能点击窗体中视图菜单中的缩小选项，如图2-7图2-7进如代码窗口，输入代码：PrivateSubMnuViewZoomOut_Click()DimrAsMapObjects2.RectangleSetr=Map1.Extentr.ScaleRectangle1.5Map1.Extent=rEndSub运行结果如图2-8（图像原始大小），图2-9（图像放大），图2-10（图像缩小），16图2-8（图像原始大小）图2-9（图像放大）16图2-10（图像缩小）经操作后可以看出，此缩小功能只能进行固定倍数的缩

9、小。5、地图的漫游功能点击窗体中视图菜单中的漫游选项，如图2-11，图2-11进如代码窗口，输入代码：PrivateSubMnuViewPan_Click()'Di