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