地图基本功能的实现

重庆交通大学

学生实验报告

实验课程名称地理信息系统软件二次开发开课实验室空间数据处理实验室

学院河海学院年级2008 专业班 1 学生姓名学号08260117 开课时间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格式文件的功能；、

2、实现地图的放大功能；

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) '此处不加引号且不能添加固定文件

https://www.360docs.net/doc/839678305.html,yers.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（图像放大）

经操作后可以看出，此放大功能只能进行固定倍数的放大。

4、地图的所缩小功能

点击窗体中视图菜单中的缩小选项，如图2-7

图2-7

进如代码窗口，输入代码：

Private Sub MnuViewZoomOut_Click()

Dim r As MapObjects2.Rectangle

Set r = Map1.Extent

r.ScaleRectangle 1.5

Map1.Extent = r

End Sub

运行结果如图2-8（图像原始大小），图2-9（图像放大），图2-10（图像缩小），

图2-8（图像原始大小）

图2-9（图像放大）

图2-10（图像缩小）

经操作后可以看出，此缩小功能只能进行固定倍数的缩小。

5、地图的漫游功能

点击窗体中视图菜单中的漫游选项，如图2-11，

图2-11

进如代码窗口，输入代码：

Private Sub MnuViewPan_Click()

'Dim button As Integer, shift As Integer, x As Single, y As Single

Map1.Pan

'此处有待改进

End Sub

运行，如图2-12，图2-13（放大后的图像），图2-14（图像漫游），

图2-12

图2-13（放大后的图像）

图2-14（图像漫游）

经操作后可以看出，此漫游功能能进行上下左右的漫游，但是很机械。

6、地图的全视功能

点击窗体中视图菜单中的整个视图选项，如图2-15，

图2-15

进如代码窗口，输入代码：

Private Sub MnuViewAll_Click()

Map1.Extent = Map1.FullExtent

End Sub

运行过程如图2-16（放大后的图像）,图2-17（图像全视），

图2-16（放大后的图像）

图2-17（图像全视）

经过操作后发现，此系统能够实现放大、缩小、漫游后图像的全视。

7、菜单栏与快捷键的一一对应

在窗体上双击Toolbar1，进入代码窗口，写入代码：

On Error Resume Next

Select Case button.Key

Case "打开"

Call MnuFileOpen_Click(1) '为什么此处必选1

Case "整个视图"

Call MnuViewAll_Click

Case "放大"

Call MnuViewZoomIn_Click

Case "缩小"

Call MnuViewZoomOut_Click

Case "漫游"

Call MnuViewPan_Click '为什么此处不添加索引号也行为什么End Select

End Sub

运行，点击快捷键“打开”，如图2-18，图2-19

图2-18

图2-19

其功能与菜单栏中的打开选项一模一样，依次试验快捷键中全视、放大、缩小、漫游，结果与菜单栏中的打开选项一样，此处不一一例举。

四、实验成果

此程序成果需实际操作、运行，在实验步骤中已经体现，在此不累述。

五、实验心得

1、此实验中，放大功能比较机械，每次固定了放大倍数；

2、此实验中，缩小功能必须在放大功能的基础上才能够实现，且每次缩小

的是固定的倍数；

3、此实验中，漫游功能机械且不方便；

4、此实验结果需操作运行。

5、此系统需要改进。