[求助]下面这段代码我有些不懂,请大家帮我解答一下

<P>下面这段代码是:     如何浏览纪录(属性查询)的代码</P>
<P>Private Sub SelectFeatures()<BR>Dim pMxDocument As IMxDocument<BR>Dim pMap As IMap<BR>Dim pFeatureLayer As IFeatureLayer<BR>Dim pFeatureClass As IFeatureClass<BR>Dim pFeature As IFeature<BR>Dim pFeatureCursor As IFeatureCursor<BR>Dim pQueryFilter As IqueryFilter<BR>On Error GoTo ErrorHandler:<BR>Set pMxDocument = ThisDocument<BR>Set pMap = pMxDocument.FocusMap<BR>If (pMap.LayerCount = 0) Then<BR>MsgBox ("缺少数据")<BR>Exit Sub<BR>End If<BR>Set pFeatureLayer = pMap.Layer(0)<BR>Set pFeatureClass = pFeatureLayer.FeatureClass<BR>Set pQueryFilter = New QueryFilter<BR>pQueryFilter.WhereClause = "FID < 2"<BR>Set pFeatureCursor = pFeatureClass.Search(pQueryFilter, False)<BR>Set pFeature = pFeatureCursor.NextFeature<BR>Do While Not pFeature Is Nothing<BR>'More Operations<BR>Set pFeature = pFeatureCursor.NextFeature<BR>Loop<BR>Exit Sub<BR>ErrorHandler:<BR>MsgBox Err.Description<BR>End Sub</P>
<P><BR>Private Sub UIButtonControl1_Click()<BR>On Error GoTo ErrorHandler:<BR>SelectFeatures<BR>Exit Sub<BR>ErrorHandler:<BR>MsgBox Err.Description<BR>End Sub</P>
<P>这段代码是VBA代码,请问在VB中代码有什么不同的?</P>
<P>IMxDocument这个接口是不是只在VBA中有?</P>
<P>UIButtonControl1_Click()这又是什么意思?UIButtonControl1我对这个不清楚,希望各位解答一下.谢谢!<BR></P>

<P>我也有类似的问题  请问那位可以帮助解决一下</P>
<P>有关于imxdocument的问题</P>

<P>对了  你没有用过在arcmap里定制命令吗</P>
<P>在arcmap下的tool 里有</P>

<P>IMxDocument这个接口是不是只在VBA中有?</P>
<P>是的。</P>
<P>UIButtonControl1_Click()这又是什么意思?UIButtonControl1我对这个不清楚,希望各位解答一下.谢谢!</P>
<P>这个UIButtonControl1是vba里的按纽名字</P>