本例要完成的功能是过滤层中要显示的Features，即根据指定的条件显示层中的Features。
要点
实现本例的功能用到接口IFeatureLayerDefinition中的属性DefinitionExpression ：设置查询条件来选择出要显示的Features。
程序说明
先得到要过滤层的FeatureLayer,再用IFeatureLayerDefinition.
DefinitionExpression设置显示条件。
代码
Private Sub UIButtonControl1_Click()
Dim pMxDocument As IMxDocument
Dim pMap As IMap
Dim pActiveView As IActiveView
Dim pFeatLayer As IFeatureLayer
Dim pFeatureLayerD As IFeatureLayerDefinition
Set pMxDocument = Application.Document
Set pMap = pMxDocument.FocusMap
Set pActiveView = pMap
Set pFeatLayer = pMap.Layer(0)
Set pFeatureLayerD = pFeatLayer
pFeatureLayerD.DefinitionExpression = "FID <=10"
pMxDoc.UpdateContents
pActiveView.Refresh
End Sub
要点
实现本例的功能用到接口IFeatureLayerDefinition中的属性DefinitionExpression ：设置查询条件来选择出要显示的Features。
程序说明
先得到要过滤层的FeatureLayer,再用IFeatureLayerDefinition.
DefinitionExpression设置显示条件。
代码
Private Sub UIButtonControl1_Click()
Dim pMxDocument As IMxDocument
Dim pMap As IMap
Dim pActiveView As IActiveView
Dim pFeatLayer As IFeatureLayer
Dim pFeatureLayerD As IFeatureLayerDefinition
Set pMxDocument = Application.Document
Set pMap = pMxDocument.FocusMap
Set pActiveView = pMap
Set pFeatLayer = pMap.Layer(0)
Set pFeatureLayerD = pFeatLayer
pFeatureLayerD.DefinitionExpression = "FID <=10"
pMxDoc.UpdateContents
pActiveView.Refresh
End Sub
6279
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
