vba14-3.txt

来自「ao的一些代码集合」· 文本 代码 · 共 26 行

Private Sub FindFeature(pFeatureLayer As IFeatureLayer, _
strSearch As String)
    ' Select features based on the given search value.
    Dim pMxDocument As IMxDocument
    Dim pMap As IMap
    Dim pActiveView As IActiveView
    Dim pFeatureSelection As IFeatureSelection
    Dim pQueryFilter As IQueryFilter
    Set pMxDocument = Application.Document
    Set pMap = pMxDocument.FocusMap
    Set pActiveView = pMap
    Set pFeatureSelection = pFeatureLayer
    'Create the query filter
    Set pQueryFilter = New QueryFilter
    pQueryFilter.WhereClause = "NAME like '%" & _
		strSearch & "%'"
    ' Clear previous selection.
    pActiveView.PartialRefresh esriViewGeoSelection, _
		Nothing, Nothing
    'Do the query and refresh the map.
    pFeatureSelection.SelectFeatures pQueryFilter, _
		esriSelectionResultNew, False
    pActiveView.PartialRefresh esriViewGeoSelection, _
		Nothing, Nothing
End Sub