module2.bas

vb+mapxvb+mo二次开发实现鹰眼功能

Attribute VB_Name = "Module2"
Public EditLayer As MapXLib.Layer, EditLayerName As String
Public Feature1 As New MapXLib.Feature, Feature2 As New MapXLib.Feature, FeatureN As New MapXLib.Feature



Public Sub ChangeCombo()
    Dim lyr As MapXLib.Layer
    Dim I As Integer, TmpStr As String
    
    I = 0
    For Each lyr In frmD.Map1.Layers
        I = I + 1
        TmpStr = frmD.Map1.Layers.Item(I).Name
        If (frmD.Map1.Layers(TmpStr).Editable = True) Then
            Set EditLayer = lyr
            Exit For
        End If
    Next
End Sub