vba15-2.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

Public Sub OpenOverviewWindow()
    ' Create the overview window.
    Dim pDataWindowFactory As IDataWindowFactory
    Dim pOverviewWindow As IOverviewWindow
    Set pDataWindowFactory = New OverviewWindowFactory
    If Not pDataWindowFactory.CanCreate(Application) Then
        MsgBox "Unable to create overview window."
        Exit Sub
    End If
    Set pOverviewWindow = pDataWindowFactory. _
    Create(Application)
    pOverviewWindow.Show True
    ' Set the layer displayed in the window.
    Dim pMxDocument As IMxDocument
    Dim pMap As IMap
    Dim pLayer As ILayer
    Dim pOverview As IOverview
    Set pMxDocument = Application.Document
    Set pMap = pMxDocument.FocusMap
    Set pLayer = pMap.Layer(0)
    Set pOverview = pOverviewWindow.Overview
    pOverview.OverlayGridLayer = pLayer
End Sub