1、使用IEnumFeature对象获取map中的FeatureSelection，该方法可以获取所有图层的选择要素
Dim m_pMap as Imap
Set m_pMap=Mapcontrol1.Map
Dim pEnumFeature As IEnumFeature
Set pEnumFeature = m_pMap.FeatureSelection
Dim pfeat As IFeature
Set pfeat = pEnumFeature.Next
Do while not pfeat is nothing
‘opera
Set pfeat=pEnumFeature.Next
Loop
2、使用ISelectionSet，IEnumIDs，FeatureClass.GetFeature()方法获取某个图层中的选择要素
Dim lyr2 As IFeatureLayer
Set lyr2 = MapControl1.Layer(1)
Dim selection As IFeatureSelection
Set selection = lyr2
Dim psel As ISelectionSet
Set psel = selection.SelectionSet
Dim lID As Long
Dim pEnumIDs As IEnumIDs
Set pEnumIDs = psel.IDs
Dim s As String
Dim pFeature As IFeature
lID = pEnumIDs.Next
Do
Set pFeature = lyr2.FeatureClass.GetFeature(lID)
‘opera
lID = pEnumIDs.Next
Loop Until lID = -1 \'-1 is returned after last valid ID has been reached