[地图基本功能的实现.docVIP

重 庆 交 通 大 学 学 生 实 验 报 告 实验课程名称 地理信息系统软件二次开发 开课实验室 空间数据处理实验室 学 院 河海学院 年级 2008 专业班 1 学 生 姓 名 学 号 开 课 时 间 2011 至 2012 学年第 1 学期 总 成 绩 教师签名 目录 实验二 地图基本功能的实现 3 一、实验内容 3 二、实验要求 3 三、实验步骤 3 1、系统基本界面的设置； 3 2、打开*.shp格式的文件 4 3、地图的放大功能 7 4、地图的所缩小功能 9 5、地图的漫游功能 11 6、地图的全视功能 13 7、菜单栏与快捷键的一一对应 14 四、实验成果 16 五、实验心得 16 实验二 地图基本功能的实现 一、实验内容 1、学习菜单中事件的编辑； 2、学习Toolbar中添加的快捷键图标与菜单中的对应操作； 3、学习GIS应用系统的基本界面操作。 二、实验要求 1、实现系统只打开*.shp格式文件的功能；、 实现地图的放大功能； 3、实现地图的缩小功能； 4、实现地图的漫游功能； 5、实现地图的全视功能； 6、实现菜单栏与快捷键的一一对应功能。 三、实验步骤 1、系统基本界面的设置； 修改工程名，修改窗体名，设置窗体图标，编辑菜单，编辑快捷键图标，添加内容窗口，设置鹰眼窗口，添加基本地图窗口，在代码窗口中进行基本界面的设置，代码为： Private Sub Form_Load() boo = False FrmMain.WindowState = 2 Map1.Width = Screen.Width - 3400 Map1.Height = Screen.Height - 2000 调整MAP的界面 layercontrol.Width = Screen.Width - 17300 Map2.Width = Screen.Width - 17300 layercontrol.Height = Screen.Height - 6000 Map2.Height = Screen.Height - 8000 调整内容窗口和鹰眼窗口的界面 End Sub 运行结果后，系统基本界面如图2-1 图2-1 2、打开*.shp格式的文件 点击窗体中“文件-打开”，如图2-1， 图2-1 进入代码窗口，设置如下代码： Private Sub MnuFileOpen_Click(Index As Integer) 添加文件 Dim dconn As New MapObjects2.DataConnection Dim shplayer As New MapObjects2.MapLayer CommonDialog1.Filter = ESRI Shapefiles(*.shp)|*.shp 设置虑通器，只打开*.shp格式的文件 CommonDialog1.ShowOpen If Len(CommonDialog1.FileName) = 0 Then Exit Sub dconn.Database = CurDir If Not dconn.Connect Then Exit Sub FileName = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle)) 为什么此处不减四 dconn.Connect Set shplayer.GeoDataset = dconn.FindGeoDataset(FileName) 此处不加引号 且不能添加固定文件 Map1.Layers.Add shplayer End Sub 运行过程见图2-2，图2-3，图2-4 图2-2 图2-3 图2-4 此图为吉林省行政区划图。 3、地图的放大功能 点击窗体中视图菜单中的“放大”选项，如图2-5， 图2-5 进入代码窗口，输入代码： Private Sub MnuViewZoomIn_Click() Dim r As MapObjects2.Rectangle Set r = Map1.Extent r.ScaleRectangle 0.5 大于1就是缩小 Map1.Extent = r boo = True End Sub 实现地图的放大功能，运行过程，见图2-6图2-7； 图2-5（图像原始大小） 图2-6（图像放大）