VBA+AO 常用代码
ArcMap定制
Zoom Pan
Zoomin
功能:放大,通过一跟踪矩形
具体实现:新添一 UIcontrol:zoomin
Private Sub zoomin_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long,
ByVal y As Long)
Dim mxdoc As IMxDocument
Dim pa As IActiveView
Dim pdis As IScreenDisplay
Dim pr As IRubberBand
Dim pEnv As IEnvelope
Set mxdoc = Application.Document
Set pa = mxdoc.FocusMap
Set pdis = pa.ScreenDisplay
Set pr = New RubberEnvelope
Set pEnv = pr.TrackNew(pdis, Nothing)
pa.Extent = pEnv
pa.Refresh
End Sub