[原创]送出：任意图层中图元（区域）面积的vb代码

<P>Private Sub Map1_SelectionChanged()<BR>Dim ftr As MapXLib.Feature<BR>Dim lyr As MapXLib.Layer<BR>For Each lyr In Map1.Layers<BR>    For Each ftr In lyr.Selection<BR>    If (ftr.Type = miFeatureTypeRegion) Then<BR>    　Debug.Print "找到：" ; ftr.Name ; ftr.Area ; "平方公里"<BR>    End If<BR>    Next<BR>Next<BR>End Sub<BR></P>