计算机地图制图上机实习报告二

《计算机地图制图上机实习报告二》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、计算机地图制图上机实习报告二学生姓名：张俊山学生学号：0809100122所在班级：10级地理信息系统实习时间：2012-10-11实习地点：城环机房实现放大缩小功能实验目的：添加工具栏，分别实现放大、缩小、平移和全图鼠标形状添加固定图层验证以打开对话框的形式打开MapObjects支持的所有格式中shp格式的图层，完成显示。掌握CommandDialog组件添加图层的方法实验内容：选择菜单"工程"—>"部件"，添加microsoftwindowscommoncontrols6.0或microsoftwindowscommoncontrols5.0后,这

2、样就可以在左边的工具箱中找到ToolBar,ImageList。然后，把ToolBar,ImageList拖放到Form中就可以。在相应按钮（放大、平移、缩小和全图）的click事件中分别加入以下代码（或在工具栏的click事件中加入以下代码）：Map1.MousePointer=moZoomInMap1.MousePointer=moPanMap1.MousePointer=moZoomOutMap1.MousePointer=moDefault加载固定文件夹下的shp文件DimdcAsNewDataConnectionDimlayerAsMapLay

3、erdc.Database=App.PathIfNotdc.ConnectThenMsgBox"在指定的文件夹下没找到图层数据文件！"EndEndIfSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("States")Map1.Layers.AddlayerSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("Rivers")Map1.Layers.AddlayerMap1.Refresh以对话框形式加shp图层导入Commo

4、nDialog组件，这一组件在对象库MicrosoftCommonDialogControl6.0中。添加Map控件，ConmonDialog控件，并将其名称改为cDlg1，添加一个按钮。在Form上增加一个标注“增加图层”的按钮，并增加VisualBasic的CommonDialog控件，以便确定Shape文件的路径和文件名。双击增加图层按钮就可以编程了，增加以下的VB语句。PrivateSubCommandl_Click()‘打开对话框的方式添加图层CommonDialog1.CancelError=TrueCommonDialog1.DialogT

5、itle="选择地图文件"DimoConnectAsNewDataConnectionDimoDatasetAsGeoDatasetDimsNameAsStringDimoLayerAsMapObjects2.MapLayerCommonDialog1.Filter="ESRIShapefiles(*.shp)

6、*.shp"CommonDialog1.ShowOpenIfLen(CommonDialog1.FileName)=0ThenExitSuboConnect.Database=CurDirIfNotoConnect.ConnectThenExit

7、SubsName=Left(CommonDialog1.FileTitle,Len(CommonDialog1.FileTitle)-4)SetoDataset=oConnect.FindGeoDataset(sName)IfoDatasetIsNothingThenExitSubSetoLayer=NewMapLayeroLayer.GeoDataset=oDatasetMap1.Layers.AddoLayerMap2.Layers.AddoLayerlegend1.setMapSourceMap1legend1.LoadLegendTrueMap1

8、.RefreshEndSub实验心得：基本掌握了怎样添加工具栏，实现放大、缩小、平移和全图的操作步骤，对添加图层还不是很熟练；对其中的代码虽然还不是很理解，但其基本方法和步骤还是基本掌握了。