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

《地理信息系统设计与开发》实验指导书(黑体,小3号) 课程编号：地理信息系统设计与开发 课程英文名称：Design and Development of Geographic Information System 学时数： 36 学分数：3 适用层次和专业： 地理信息系统及测绘工程本科 实验一 安装MO和VB 1.实验目的 2.实验内容 1.实验目的 2.实验内容 Private Sub Command1_Click() Set Map1.Extent = Map1.FullExtent End Sub 双击地图控件为他的事件 MouseDown 增加以下代码 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Set Map1.Extent = Map1.TrackRectangle End If End Sub 进一步操作PopUp Menu(右键菜单) 使用菜单编辑器生成一个右键菜单Popup1，为Popup1建立以下几个子菜单项“显示全图”“放大”“缩小”编写代码实现“显示全图”的功能； Private Sub pop1Full_Click() Map1.Extent = Map1.FullExtent End Sub 修改Mouse事件中的代码，显示右键菜单 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Set Map1.Extent = Map1.TrackRectangle Else: Button = vbRightButton PopupMenu pop1 End If End Sub 进一步操作：工具栏ToolBar 在窗体上放置ImageList控件 设置ImageList1的属性，增加图片 ZoomIn.bmp;ZoomOut.bmp;Pan.bmp;Globe.bmp(这些文件在光盘目录BitMaps下) 在窗体上放置ToolBar控件 设置ToolBar1的属性，将ToolBar1的图像列表设置为ImageList1;增加按钮ZoomIn,ZoomOut,Pan,设置样式为2-tbrButtonGroup，并设置相应的显示图片；增加第4个按钮设置样式为4-tbrPlaceholder;增加第5个按钮btnFullExtent设置图片为Globe.bmp 注意：VB控件库 Microsoft Windows Common Controls 6.0 中包含ToolBar 和ImageList控件 实验三 动态加载图层 1.实验目的 2.实验内容 Private Sub Command1_Click() Dim shpLayer As New MapObjects2.MapLayer Dim DC As New MapObjects2.DataConnection Dim gds As MapObjects2.GeoDataset Dim FName As String cDlg1.Filter = ESRI Shape文件(*.shp)|*.shp cDlg1.CancelError = True On Error GoTo eTrap cDlg1.ShowOpen If Len(cDlg1.FileName) = 0 Then Exit Sub DC.Database = CurDir If Not DC.Connect Then Exit Sub FName = Left(cDlg1.FileTitle, Len(cDlg1.FileTitle) - 4) Set gds = DC.FindGeoDataset(FName) If gds Is Nothing Then Exit Sub Set shpLayer.GeoDataset = gds Map1.Layers.Add shpLayer Exit Sub eTrap: If Err.Number cdlCancel Then MsgBox Err.Description, vbCritical End I