GIS程序开发—MO实验报告.docVIP

学 号 实习报告 学生姓名 班级 成绩 指导教师(签字) 年月 日  ESRI MapObjects2.4、ESRI MapObjects Legend Control、ESRI MapObjects Scalebar Control和Microsoft Windows Common Controls-6.0控件； （3）建立Form 后，在工具栏中选择“”添加 Map 控件。 （二）：地图操作的基本功能 1)步骤： （1）在工具栏中选择 CommandButton添加按钮 （2）进行编程 2)编程： （1）全局声明 Option Explicit Dim r As MapObjects2.Rectangle （2）地图放大——单击“地图放大”按钮，地图逐渐放大 Private Sub command1_click() Dim poi As MapObjects2.Point Dim r As MapObjects2.Rectangle Dim rec As MapObjects2.Recordset Set r = Map1.Extent r.ScaleRectangle 0.5 Map1.Extent = r End Sub （3）地图缩小——不断单击“地图缩小”按钮，地图逐渐缩小至原始大小 Private Sub command2_click() Dim poi As MapObjects2.Point Dim r As MapObjects2.Rectangle Dim rec As MapObjects2.Recordset Set r = Map1.Extent r.ScaleRectangle 1.6 Map1.Extent = r End Sub （4）地图还原——单击“地图还原”按钮，地图直接恢复原始大小 Private Sub command3_click() Set Map1.Extent = Map1.FullExtent End Sub （5）帮助——单击“帮助”按钮，提供系统帮助功能提示 Private Sub command4_click() Dim bz As String bz = 选择工具栏可实现放大、缩小、移动、还原功能； vbCrLf 单击“地图放大”按钮，地图逐渐放大； vbCrLf 单 击“地图缩小”按钮，地图逐渐缩小，直至原始大小； vbCrLf 单击“地图还原”按钮，地图直接恢复原始大小。 vbCrLf vbCrLf 鄢靓雯，2011/11/05 MsgBox bz, , 中国地图（长江） End Sub (三）:添加GIS工具栏 1）步骤： （1）在工具栏中选择 Toolbar和 Imagelist添加工具栏； （2）设置Imagelist1： 2-1) 右击Imagelist1，选择属性，进入设置界面； 2-2)【通用】中设置小图像尺寸，使用自定义的20*20 2-3) 进入【图像】选择卡，添加一系列小图标（注：由于安装夹有 部分文件缺失，无“samples”项，故图片为自行创作）如图：