默认头像
路人甲
路人甲
  • 注册日期2005-06-25
  • 发帖数26
  • QQ155351222
  • 铜币257枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1681回复:3

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

楼主#
更多 发布于:2006-03-05 22:20

下面这段代码是:     如何浏览纪录(属性查询)的代码

Private Sub SelectFeatures()
Dim pMxDocument As IMxDocument
Dim pMap As IMap
Dim pFeatureLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
Dim pFeature As IFeature
Dim pFeatureCursor As IFeatureCursor
Dim pQueryFilter As IqueryFilter
On Error GoTo ErrorHandler:
Set pMxDocument = ThisDocument
Set pMap = pMxDocument.FocusMap
If (pMap.LayerCount = 0) Then
MsgBox ("缺少数据")
Exit Sub
End If
Set pFeatureLayer = pMap.Layer(0)
Set pFeatureClass = pFeatureLayer.FeatureClass
Set pQueryFilter = New QueryFilter
pQueryFilter.WhereClause = "FID < 2"
Set pFeatureCursor = pFeatureClass.Search(pQueryFilter, False)
Set pFeature = pFeatureCursor.NextFeature
Do While Not pFeature Is Nothing
'More Operations
Set pFeature = pFeatureCursor.NextFeature
Loop
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub


Private Sub UIButtonControl1_Click()
On Error GoTo ErrorHandler:
SelectFeatures
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub

这段代码是VBA代码,请问在VB中代码有什么不同的?

IMxDocument这个接口是不是只在VBA中有?

UIButtonControl1_Click()这又是什么意思?UIButtonControl1我对这个不清楚,希望各位解答一下.谢谢!

喜欢0 评分0
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2006-03-06 10:59

IMxDocument这个接口是不是只在VBA中有?

是的。

UIButtonControl1_Click()这又是什么意思?UIButtonControl1我对这个不清楚,希望各位解答一下.谢谢!

这个UIButtonControl1是vba里的按纽名字

GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2006-02-21
  • 发帖数76
  • QQ
  • 铜币19枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2006-03-07 11:54

对了  你没有用过在arcmap里定制命令吗

在arcmap下的tool 里有

举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2006-02-21
  • 发帖数76
  • QQ
  • 铜币19枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2006-03-07 22:02

我也有类似的问题  请问那位可以帮助解决一下

有关于imxdocument的问题

举报 回复(0) 喜欢(0)     评分
默认头像

返回顶部