ArcGIS中VBA编写属性查询代码.docVIP

ArcGIS中VBA编写属性查询代码 1-1 功能说明： 图1-1中。第一个组合框用于确定当前图层，第二个确定该图层中的要素属性。利用=控制查询范围，text中输入的是：比如查询“面积”5000的图斑，按“”，text中就输入5000。结果如下 操作方法： 窗体创建 打开tools》macros》visual basic editor 在visual basic editor页面，点击insert》userform，添加了一个窗体进来，可以放在nomal里也可以放在“工程”里。 然后添加要素，大概如上。 双击后键入代码： Dim x As String ‘x是用来确定=的 Dim i As Integer ‘i进行循环控制 Private Sub CommandButton1_Click() x = End Sub Private Sub CommandButton2_Click() x = = End Sub Private Sub CommandButton3_Click() x = End Sub Private Sub ComboBox1_dropbuttonclick() Dim pdoc As IMxDocument Set pdoc = ThisDocument Dim pmap As IMap Set pmap = pdoc.FocusMap Dim player As ILayer For i = 0 To pmap.LayerCount - 1 UserForm1.ComboBox1.AddItem pmap.Layer(i).Name Next End Sub Private Sub ComboBox1_Change() Dim pdoc As IMxDocument Set pdoc = ThisDocument Dim pmap As IMap Set pmap = pdoc.FocusMap Dim player As IFeatureLayer For i = 0 To pmap.LayerCount - 1 If ComboBox1.Text = pmap.Layer(i).Name Then Set player = pmap.Layer(i) Exit For End If Next Dim pfclass As IFeatureClass Set pfclass = player.FeatureClass Dim pfields As IFields Set pfields = pfclass.Fields Dim pfield As IField For i = 0 To pfields.FieldCount - 1 Set pfield = pfields.Field(i) UserForm1.ComboBox2.AddItem pfield.Name Next End Sub Private Sub CommandButton4_Click() On Error GoTo line Dim pdoc As IMxDocument Set pdoc = ThisDocument Dim pmap As IMap Set pmap = pdoc.FocusMap Dim pFeLayer As IFeatureLayer For i = 0 To pmap.LayerCount - 1 If pmap.Layer(i).Name = UserForm1.ComboBox1.Text Then Set pFeLayer = pmap.Layer(i) Exit For End If Next i Dim pFeClass As IFeatureClass Dim pFeCursor As IFeatureCursor Dim pqfilter As IQueryFilter Set pFeClass = pFeLayer.FeatureClass Set pqfilter = New QueryFilter pqfilter.WhereClause = ComboBox2.Text + x + TextBox1.Text Set pFeCursor = pFeClass.Search(pqfilter, False) Dim pFeature As IFeature For i = 0 To pFeClass.FeatureCount(pqfilter) - 1 Set pFeature = pFeCursor.NextFeature pmap.SelectFeature pFeLa