如何创建放大镜(虫眼)

 

本例要实现的是如何创建放大镜(虫眼)，将所选区域放大一定的倍数。

l 要点

用户通过定义IMapInset、IMapInsetWindow、IDataWindowFactory三个接口，运用它们的方法、属性来创建放大镜(虫眼)。

l 程序说明

运用这个子程序生成了一个新的放大镜窗口，在本例中将放大率设定为200%代替原来的400%。

l 代码

Public Sub CreateMagnifierWindow()

    Dim pMapInset As IMapInset
    Dim pMapInsetWindow As IMapInsetWindow
    Dim pDataWindowFactory As IDataWindowFactory

    Set pDataWindowFactory = New MapInsetWindowFactory
    If pDataWindowFactory.CanCreate(Application) Then
        Set pMapInsetWindow = pDataWindowFactory.Create(Application)
        Set pMapInset = pMapInsetWindow.MapInset
        'Set the zoom percent to 200%
        pMapInset.ZoomPercent = 200
        pMapInsetWindow.Show True
    End If

End Sub