IFeatureSelection Example

IFeatureSelection Example   [Visual Basic 6.0]Language<BR>  Public Sub SelFeatures()<BR>  Dim pMxDoc As IMxDocument<BR>  Dim pMap As IMap<BR>  Dim pFeatSel As IFeatureSelection<BR>  Dim pQF As IQueryFilter<BR>  Dim pSelSet As ISelectionSet<BR>  <BR>  Set pMxDoc = Application.Document<BR>  Set pMap = pMxDoc.FocusMap<BR>  Set pFeatSel = pMap.Layer(0)<BR>  <BR>  ' set up query filter with where clause<BR>  Set pQF = New QueryFilter<BR>  pQF.WhereClause = "FID=1"<BR>  <BR>  ' perform selection<BR>  pFeatSel.SelectFeatures pQF, esriSelectionResultNew, False<BR>  pFeatSel.SelectionChanged<BR>  pMxDoc.ActiveView.PartialRefresh esriViewGeography, Nothing, Nothing<BR>  <BR>  ' report number of selected features<BR>  Set pSelSet = pFeatSel.SelectionSet<BR>  MsgBox pSelSet.Count<BR>  <BR>End Sub<BR>

谢谢！