?? vba14-3.txt
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -