IfeatureSelection:SelectFeatures方法介绍

已知一个要素图层和我们的选择条件，寻找出符合要求的要素并闪烁显示，使用的IfeatureSelection接口的SelectFeatures方法
Public Sub searchSelection(byval sqlfilter as string, byval pFeatLyr as iFeatureLayer)
Dim pFilter As IqueryFilter ‘做一个过滤器
pFilter = New QueryFilter
pFilter.WhereClause = sqlfilter 如"area>100000",ARCGIS中的字段值是区分大小写的，如nevada不能写成Nevada
Dim pFeatureSelection As IFeatureSelection ‘获取图层
pFeatureSelection = pFeatLyr ‘QI

pFeatureSelection.SelectFeatures(pFilter,
esriSelectionResultEnum.esriSelectionResultNew, False) ‘重要方法
Dim pColor As IRgbColor
pColor = New RgbColor
pColor.Red = 220
pColor.Green = 112
pColor.Blue = 60
pFeatureSelection.SelectionColor = pColor ‘将选择集添上颜色

AxMapControl1.CtlRefresh(esriViewDrawPhase.esriViewGeoSelection)
‘控件局部刷新
Dim pFeatSet As IselectionSet ‘新建一个selectionset对象，它用于保存获得的要素
pFeatSet = pFeatureSelection.SelectionSet
Dim pFeatCursor As IFeatureCursor
pFeatSet.Search(Nothing, True, pFeatCursor) ‘使用要素游标去获取单个要素
Dim pFeat As IFeature
pFeat = pFeatCursor.NextFeature
Do Until pFeat Is Nothing
If Not pFeat Is Nothing Then
Dim pFillsyl2 As ISimpleFillSymbol
pFillsyl2 = New SimpleFillSymbol
pFillsyl2.Color = getRGB(220, 60, 60)

AxMapControl1.FlashShape(pFeat.Shape, 15, 20, pFillsyl2) ‘被选中的要素闪烁
‘将要素的某个字段值写入LISTBOX

ListBox1.Items.Add(pFeat.Value(pFeatCursor.FindField("state_name")))

ListBox1.Refresh() ‘可以使listbox中的项逐个出现
End If
pFeat = pFeatCursor.NextFeature
Loop
End Sub
我们需要注意“将选择集添上颜色”这个语句，在这个过程中，符合要求的要素将呈选择状态，我们可以使用另外一种方法来设置选择集的颜色：
Dim pSelEnv As ISelectionEnvironment
Dim pRgbColor As IRgbColor
Set pSelEnv = New SelectionEnvironment
Set pRgbColor = New RgbColor
pRgbColor.Red = 255
pSelEnv.AreaSelectionMethod = esriSpatialRelIntersects
Set pSelEnv.DefaultColor = pRgbColor
MapControl1.Map.SelectByShape MapControl1.TrackCircle, pSelEnv, False
MapControl1.Refresh esriViewGeography
如上面代码中看到的，SelectionEnvironment能够控件的要素选择集的缺省颜色，缺省symbol等。