vb+ae '图层查找函数

最新推荐文章于 2021-07-16 19:06:47 发布

jaanna

最新推荐文章于 2021-07-16 19:06:47 发布

阅读量756

点赞数

分类专栏： GIS 文章标签： vb integer

本文链接：https://blog.csdn.net/jaanna/article/details/1868602

版权

GIS 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

     '图层查找函数
    '对在图层列表中显示的选择的图层进行查询显示。
    Private Sub QueryByClass(ByRef operator As esriSelectionResultEnum)
        Dim pFeatureLayer As IGeoFeatureLayer
        Dim j As Integer
        Dim pFeatureselection As IFeatureSelection
        Dim pActiveView As IActiveView

On Error GoTo ErrorHandler

        pActiveView = m_pMap
        pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing)
        For j = 0 To lstClass.Items.Count - 1
            If (lstClass.GetSelected(j)) Then
word="vbup1037"”
                If (FoundLayer(VB6.GetItemString(lstClass, j), pFeatureLayer)) Then
                    pFeatureselection = pFeatureLayer
                    If (pFeatureLayer.Selectable) Then
                        pFeatureselection.SelectFeatures(Nothing, operator, False)
                    Else
                        If (operator = esriSelectionResultEnum.esriSelectionResultNew) Then pFeatureselection.Clear()
                    End If
                End If
            Else
word="vbup1037"”
                If (FoundLayer(VB6.GetItemString(lstClass, j), pFeatureLayer)) Then
                    pFeatureselection = pFeatureLayer
                    If ((operator = esriSelectionResultEnum.esriSelectionResultNew) Or (operator = esriSelectionResultEnum.esriSelectionResultAnd)) Then pFeatureselection.Clear()
                End If
            End If
        Next j
        pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing)
        'm_pApp.StatusBar.message(0) = "被选择的特征要素数目: " & CStr(m_pMap.SelectionCount)
        RefreshSelectButtons()