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

实现放大缩小功能

实验目的：

添加工具栏，分别实现放大、缩小、平移和全图 鼠标形状添加固定图层

验证以打开对话框的形式打开MapObjects支持的所有格式中shp格式的图层，完成显示。掌握CommandDialog 组件添加图层的方法

实验内容：

选择菜单"工程"—>"部件"，添加microsoft windows common controls 6.0或microsoft windows common controls 5.0后,这样就可以在左边的工具箱中找到ToolBar, ImageList。然后，把ToolBar, ImageList拖放 到Form中就可以。

在相应按钮（放大、平移、缩小和全图）的click事件中分别加入以下代码（或在工具栏的click事件中加入以下代码）：

Map1.MousePointer = moZoomIn Map1.MousePointer = moPan Map1.MousePointer = moZoomOut Map1.MousePointer = moDefault

加载固定文件夹下的shp文件

Dim dc As New DataConnection Dim layer As MapLayer dc.Database = App.Path If Not dc.Connect Then

MsgBox "在指定的文件夹下没找到图层数据文件！" End End If

Set layer = New MapLayer

Set layer.GeoDataset = dc.FindGeoDataset("States") yers.Add layer