《地理信息系统设计与开发》实验指导书

《《地理信息系统设计与开发》实验指导书》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、《土也王里信息系纟充设计与升生》圭马佥扌旨导丰（欺体，＜1、3弓〉课程编号：地理信息系统设计与开发课程英文名称：DesignandDevelopmentofGeographicInfonnationSystem学时数：36学分数：3适用层次和专业：地理信息系统及测绘工程本科实验一安装M0和VB1.实验口的学习安装M0学习安装VB6熟悉VB6开发环境2.实验内容安装VB6.0安装M02.3或更高版本在VB窗体屮添加M0组件为M0组件添加数据china,shp实验二视图缩放和全图操作1•实验口的掌握M0控件的一般使用方式2.实

2、验内容添加地图控件，通过设置地图控件的属性添加数据在窗体上增加一个按钮，双击这个按钮,在代码窗口小输入以下代码PrivateSubCommeindl_Click()SetMapl.Extent=Mapl.FullExtentEndSub双击地图控件为他的事件MouseDown增加以下代码PrivatcSubMaplMouseDown(ButtonAsInteger,ShiftAsIntcgcr,XAsSingle,YAsSingle)TfButton=vbLeftButtonThenSetMap1.Extent二Map1.

3、TrackRectangleEndIfEndSub进一步操作PopUpMenu(右键菜单)使用菜单编辑器生成一个右键菜单Popup1,为Popup1建立以下几个子菜单项“显示全图”“放大”“缩小”编写代码实现“显示全图”的功能;PrivateSubpoplFullClick()Mapl.Extent=Mapl.FullExtcntEndSub修改Mouse事件中的代码，显示右键菜单PrivateSubMapIMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSing

4、le)IfButton二vbLeftButtonThenSetMap1.Extenl二Map1.TrackRectangleElse:Button二vbRightButtonPopupMenupoplEndIfEndSub进一步操作：工具栏ToolBar在窗体上放置ImageList控件设置ImageListl的属性,增加图片Zoomln.bmp;ZoomOut.bmp;Pan.bmp;Globe,bmp(这些文件在光盘口录BitMaps下)在窗体上放置ToolBar控件设置ToolBarl的属性,将ToolBarl的图像

5、列表设置为ImageListl;增加按钮Zoomln,ZoomOut,Pan,设置样式为2-tbrButtonGroup，并设置相应的显示图片；増加第4个按钮设置样式为4-tbrPlaceholder;加第5个按钮btnFullExtent设置图片为Globe,bmp注意：VB控件库MicrosoftWindowsCommonControls6.0中包含ToolBar和ImageList控件实验三动态加载图层1.实验目的掌握CommandDialog组件添加图层的方法练习VB屮添加按钮的一般方法2.实验内容导入Comman

6、dDialog组件，这一组件在对象库MicrosoftCommonDialogControl6.0中。添加Map控件,ConmonDialog控件，并将其名称改为cDlgl,添加一个按钮.程序代码：PrivatcSubCommand1Click()DimshpLciyerAsNewMap0bjects2・MapLayerDimDCAsNewMap0bjects2.DataConnectionDimgdsAsMapObjects2・GeoDatasetDimFNamcAsStringcDlgl.Filter="ESRISha

7、pe文件(*・shp)

8、*・shp〃cDlgl.CancelError=TrueOnErrorGoToeTrapcDlgl.ShowOpcnIfLen(cDlgl.FileName)=0ThenExitSubDC.Database=CurDirIfNotDC.ConnectThenExitSubFName=Left(cDlgl.FileTitle,Len(cDlgl.FileTitle)-4)Setgds=DC.FindGeoDatasct(FName)IfgdsIsNothingThenExitSubSetshpLaye

9、r.GeoDataset=gdsMapl.Layers.AddshpLayerExitSubeTrap:IfErr.Number<>cdlCancelThenMsgBoxErr.Description,vbCriticalEndIfEndSub实验四调整图层顺序1•实验目的掌握在M0当中如何调整图层顺序