西北师范大学GIS设计与实现实验三

西北师范大学学生实验报告

在右侧【命令】菜单中双击“Normal. 单击按钮全屏显示”打开代码窗口。输入相应代码。首先声明模块级变量等。

（4）运行后，【单击按钮全屏显示】，实现全屏操作。

4.定制【地图放大】工具

（1）在刚才新建一个UIControl按钮，命名为“地图放大”，编写代码；

Private Sub 单击图层地图放大_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long) '地图放大

Dim MxD As IMxDocument

Set MxD = ThisDocument

Dim m_Active As IActiveView

Set m_Active = MxD.ActiveView

Dim m_E As IEnvelope '定义一个显示的范围

Set m_E = m_Active.Extent '获取当前显示范围

5.缩放到图层

（1）在刚才新建的工具条中添加一个UIControl工具，命名为“缩放到图层”，编写代码：Sub Get_LayerEnvelop() '缩放到图层

Dim pMxDoc As IMxDocument

Set pMxDoc = ThisDocument

Dim pM As IMap

Set pM = pMxDoc.FocusMap

Dim pl As IFeatureLayer

Set pl = https://www.360docs.net/doc/4c9098344.html,yer(0)

Dim pExt As IEnvelope

Set pExt = pl.AreaOfInterest

pMxDoc.ActiveView.Extent = pExt

pMxDoc.ActiveView.Refresh

End Sub

（2）点击运行。

6.缩放到所选择的元素（element）

（1）在刚才新建的工具条中添加一个UIControl按钮，命名为“缩放到所选择的元素”，

教师意见：

年月日