vba定制overview窗口

例子，大家应该都看过啦，有没谁把arcgis 都定制了一遍？学习中，呵呵

Public Sub CreateOverviewWindow()
    ' Creates an overview window of size 275 by 275 and places it in lower left hand corner of application window.
    Dim pAppWin As IWindowPosition
    Set pAppWin = Application
    
    Dim left As Long
    Dim right As Long
    Dim top As Long
    Dim bottom As Long
          
    left = pAppWin.left
    right = 275
    top = (pAppWin.Height + pAppWin.top) - 275
    bottom = pAppWin.top + pAppWin.Height
    
    Dim pOverview As IOverview
    Dim pOverviewWindow As IOverviewWindow
    Dim pDataWindowFactory As IDataWindowFactory
    Dim pFillSymbol As ISimpleFillSymbol
    Dim pLineSymbol As ISimpleLineSymbol
    Dim pRgbColor As IRgbColor
    Set pDataWindowFactory = New OverviewWindowFactory
    If Not pDataWindowFactory.CanCreate(Application) Then Exit Sub
    
    'Create a new overview window
    Set pOverviewWindow = pDataWindowFactory.Create(Application)
    
    pOverviewWindow.PutPosition left, top, right, bottom
    
    'Change the area of interterest fill symbol
    'to a hollow fill with a blue border of size 2
    Set pOverview = pOverviewWindow.Overview
    Set pFillSymbol = New SimpleFillSymbol
    Set pLineSymbol = New SimpleLineSymbol
    Set pRgbColor = New RgbColor
    pRgbColor.Green = 111
    pLineSymbol.Color = pRgbColor
    pLineSymbol.Width = 2
    pFillSymbol.Style = esriSFSForwardDiagonal
    pFillSymbol.Outline = pLineSymbol
    pOverview.AoiFillSymbol = pFillSymbol
    
End Sub<img src="images/post/smile/dvbbs/em08.gif" />

不错

<P>这么好的帖子竟然没有人响应。把旧帖翻出来，我来支持一把，温故而知新。</P>