计算机地图制图上机实验报告一.docVIP

计算机地图制图上机实习报告一 学生姓名： 谢蕊 学生学号： 0811100122 所在班级： 10级测绘工程一班 实习时间： 2012-9-13 实习地点： 城环学院机房 实验目的：实验内容：1、首先，工程，添加部件，将MO加进来；其次，拖拽一个地图框，右键特性，添加地图图片和四个功能按钮，如图所示： 2、编写代码，实现地图的缩小、放大、平移、全图功能，有两种方式： （1）在map1的mouse down 事件添加代码，此时需要先生命一个字符串型的变量flag,分别赋与fangda、suoxiao、pingyi 、quantu给flag，代码如下： Dim flag As String Private Sub Command1_Click() flag = fangda End Sub Private Sub Command2_Click() flag = suoxiao End Sub Private Sub Command3_Click() flag = quantu End Sub Private Sub Command4_Click() flag = pingyi End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As