mod_identify.bas

ArcEngine 这是基于AE组件的源代码

Attribute VB_Name = "Mod_Identify"
Public Type m_pObjArray
      iFeature As iFeature
      iLayerName As String
End Type
Public M_pFeatureArray() As m_pObjArray

Public Function ReturnGeometryName(esriGeometryKind As Long) As String
    Select Case esriGeometryKind
         Case esriGeometryNull
                ReturnGeometryName = ""
                Exit Function
         Case esriGeometryPoint
                ReturnGeometryName = "点"
                Exit Function
         Case esriGeometryMultipoint
                ReturnGeometryName = "多点"
                Exit Function
         Case esriGeometryPolyline
                ReturnGeometryName = "多义线"
                Exit Function
         Case esriGeometryPolygon
                ReturnGeometryName = "面"
                Exit Function
                Exit Function
         Case esriGeometryEnvelope
                ReturnGeometryName = "多义线"
                Exit Function
         Case esriGeometryPath
             ReturnGeometryName = "多义线"
             Exit Function
         Case esriGeometryAny
                     ReturnGeometryName = "多义线"
             Exit Function
         Case esriGeometryMultiPatch
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryRing
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryLine
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryCircularArc
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryBezier3Curve
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryEllipticArc
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryBag
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryTriangleStrip
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryTriangleFan
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometryRay
                     ReturnGeometryName = "多义线"
             Exit Function
        Case esriGeometrySphere
                     ReturnGeometryName = "多义线"
             Exit Function
        Case Else
            ReturnGeometryName = "其他"
    End Select
End Function