Le portail francophone de la géomatique

#####################################################################################
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Geodatabase

Public Class frm_attribut_search
    Dim i As Integer
    Dim pFlayer As IFeatureLayer

    Private Sub frm_attribut_search_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox_couche.Items.Clear()
        For Me.i = 0 To frm_demarage.axMapControl1.LayerCount - 1
            ComboBox_couche.Items.Add(frm_demarage.axMapControl1.get_Layer(i).Name)
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ComboBox_couche_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_couche.SelectedIndexChanged

        pFlayer = frm_demarage.axMapControl1.get_Layer(ComboBox_couche.SelectedIndex)
        ComboBox_champs.Items.Clear()
        For Me.i = 0 To pFlayer.FeatureClass.Fields.FieldCount - 1
            ComboBox_champs.Items.Add(pFlayer.FeatureClass.Fields.Field(i).Name)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Dim pqfilter As IQueryFilter = New QueryFilterClass()
                Dim pfcursor As ICursor

                pqfilter.WhereClause = ComboBox_champs.Text & ComboBox_operator.Text & "'" & TextBox_critaire.Text & "'"
                pFlayer = frm_demarage.axMapControl1.get_Layer(ComboBox_couche.SelectedIndex)
                pfcursor = pFlayer.Search(pqfilter, True)
                MsgBox(pfcursor)
    End Sub
End Class
###################################################################################