刚学AO开发遇到些问题，恳请帮忙解答！

楼主^#

更多发布于：2008-07-30 09:12

我在按照如下的实例进行操作时，遇到了一些问题，恳请各位能指点迷津。
使用VB创建一个COM组件 1、创建一个ActiveX DLL 工程 启动VB，在创建新工程的时候选择“ActiveX DLL”类型。 修改Class1类模块名称为“AdjacentTool”。 修改“Project1”工程名称为“Tutorial”。 导入“ArcID”模块。 保存类“AdjacentTool”为“Tutorial_ AdjacentTool.cls”文件。保存工程为“Tutorial.vbp”文件。 2、引用对象库 在VB的“Project”菜单，选择“References”菜单条。 在“References”对话框，选择ArcMap Object Library 和 ESRI Object Library。 （如果在条目中没有该两项，则查找引用EsriMx.olb和EsriCore.olb）单击 “OK”按钮。 3、实现所需的接口 在“AdjacentTool”类模块代码窗体顶部添加如下代码： Option Explicit Implements ICommand Implements ITool Dim pApp As esriMx.Application 'ArcMap app Dim pDoc As ImxDocument 在代码窗口的左边组合框中选择“Icommand”条目。在代码窗口的右边组合框中选择每一个方法或属性去创建空的过程。对“Itool”条目重复以上两项，创建每一个方法或属性的空过程。 4、增加工具的区别代码 Private Property Get ICommand_Category() As String 'Category属性表现为在“Customize”对话框的“Commands”页面的左边列表中。 ICommand_Category = "Tutorial" End Property Private Property Get ICommand_Caption() As String 'Category属性表现为在“Customize”对话框的“Commands”页面的右边列表中。 ICommand_Caption = "AdjacentTool" End Property Private Property Get ICommand_Name() As String ICommand_Name = "Tutorial_AdjacentTool" End Property 5、增加工具的描述代码 Private Property Get ICommand_Message() As String '鼠标移动经过时在状态条上显示的信息。 ICommand_Message = "Selects features " ; "Adjacent to the feature you click on" End Property Private Property Get ICommand_Tooltip() As String '鼠标移动经过时显示的信息。 ICommand_Tooltip = "Select adjacent features" End Property 6、增加工具的可用性代码 Private Sub ICommand_OnCreate(ByVal hook As Object) Set pApp = hook Set pDoc = pApp.Document End Sub Private Property Get ICommand_Enabled() As Boolean With pDoc.FocusMap If .LayerCount > 0 Then ICommand_Enabled = True ElseIf .LayerCount = 0 Then ICommand_Enabled = False End If End With End Property Private Function ITool_Deactivate() As Boolean ’其他按钮按下是是否失效，缺省为False ITool_Deactivate = True End Function 7、增加工具的功能实现代码 Private Sub ITool_OnMouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long) Dim pScreenDisp As IScreenDisplay Dim pDt As IDisplayTransformation Dim pPt As IPoint Dim pMap As IMap Dim pLayer As IFeatureLayer Dim pSelEnv As ISelectionEnvironment Dim pSelection As ISelection Dim pEnumFeat As IEnumFeature Dim pFeature As IFeature Dim pFeatureCursor As IFeatureCursor Dim pSpatialFilter As ISpatialFilter Dim pFeatureSelection As IFeatureSelection Dim pFillSymbol As ISimpleFillSymbol Dim pColor As IRgbColor Dim psym As ISymbol '把屏幕坐标点转换成地图坐标点 Set pScreenDisp = pDoc.ActiveView.ScreenDisplay Set pDt = pScreenDisp.DisplayTransformation 'get the MouseDown location in map units Set pPt = pDt.ToMapPoint(X, Y) '引用一个图层 'the tutorial expects the first layer to 'serve as the target Set pMap = pDoc.ActiveView.FocusMap Set pLayer = pMap.Layer(0) pLayer.Selectable = True '定义空间过滤条件 'create a SpatialFilter to be used in 'a point in polygon selection Set pSpatialFilter = New SpatialFilter With pSpatialFilter Set .Geometry = pPt .GeometryField = _ pLayer.FeatureClass.ShapeFieldName .SpatialRel = esriSpatialRelWithin End With ‘'空间查询 Set pFeatureCursor = _ pLayer.Search(pSpatialFilter, False) 'pFeature is a polygon feature Set pFeature = pFeatureCursor.NextFeature 'create a SpatialFilter to be used in the 'search for polygons adjacent to pFeature Set pSpatialFilter = New SpatialFilter With pSpatialFilter Set .Geometry = pFeature.Shape .GeometryField = _ pLayer.FeatureClass.ShapeFieldName .SpatialRel = esriSpatialRelTouches End With Set pFeatureSelection = pLayer 'QI ‘'空间选择 pFeatureSelection.SelectFeatures _ pSpatialFilter, esriSelectionResultNew, False pFeatureSelection.SetSelectionSymbol = True ‘'定义颜色及符号 Set pColor = New RgbColor pColor.RGB = vbRed Set pFillSymbol = New SimpleFillSymbol pFillSymbol.Color = pColor pFillSymbol.Style = esriSFSSolid '显示选择结果 Set psym = pFillSymbol 'QI Set pFeatureSelection.SelectionSymbol = psym Dim pitem As ICommandItem pDoc.ActiveView.Refresh '使用内建命令统计选择集合 'finish by displaying 'statistics for the adjacent features 'ArcID is a VB module that was exported from 'ArcMap Set pitem = pApp.Document.CommandBars _ .Find(ArcID.Query_SelectionStatistics) pitem.Execute End Sub 8、编译成DLL库 在VB的“Project”菜单中，选择“Tutorial Properties”，然后选择“Component”页面。选择“Binary Compatibility”选项。单击“OK”。保存工程。在“File”菜单中，选择“Make Tutorial.dll”。 9、使用ArcMap注册该组件库 启动ArcMap在“Tools”菜单中选择“Customize”。点击“Customize”对话框中的“Add from file”按钮。双击“Tutorial.dll”。单击“OK”按钮。可以看出在“Customize”对话框的“Commands”页面的左边增加了一个名为“Tutorial”的条目。在该条目中有一个“AadjacentTool”的命令。 10、把组件添加到文档并使用。 把上面注册的“AdjacentTool”命令拖放到一个工具条上。使用该工具条，观察工具效果。（使用USA的STATES数据作为例子数据。） 
遇到了如下一些问题：
1、在第一条中第4行“导入ArcID模块”是如何实现的？
2、我将代码在VB程序dll界面下输入完成后，总是在该行（Dim pApp As esriMx.Application 'ArcMap app）显示用户定义类型未定义，而且很多次我用到Application时都有这种显示。
3、第8条编译成DLL库，按照提示操作时，我选择“二进制兼容”时，提示我不能二进制兼容。
是不是我的VB有问题，是需要一些引用，但是我的引用里面关于ESRI的我全部选定了，希望各位朋友帮忙指导一下，我现在正在学习AO开发，还没入门，恳请帮助！
小弟不胜感激！！<img src="images/post/smile/dvbbs/em02.gif" />

喜欢0 评分0

举报回复

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2008-07-30 10:58

ArcID在默认的mxt文档里有；
Application只在arcmap和arccatalog，arcscene里有效；

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

coverage

路人甲

注册日期2008-07-03
发帖数14
QQ
铜币180枚
威望0点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2008-07-30 11:36

非常感谢您的回复！
但我还是不太明白，我是按照它上面的提示一步步操作的，为什么没看到ArcID模块，但能在ArcMap内部的宏里面看到，我不太明白他这一句“导入ArcID模块”是什么意思。
Application在这儿是无效的吗？劳烦给解释的详细点！<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

举报回复喜欢评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

3楼^#

发布于：2008-07-30 13:17

上面说错，Application在你的程序里是有效的，但是代码是8.x版本的，所以在9.x中已经变化了
”Dim pApp As esriMx.Application“改为 "Dim pApp As Application" . 
你可以在下面的连接里找到8.x和9.x的一些不同: http://edndoc.esri.com/arcobjects/9.0/

[此贴子已经被作者于2008-7-30 13:18:00编辑过]

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

coverage 路人甲注册日期2008-07-03 发帖数14 QQ 铜币180枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2008-07-30 13:36 谢谢，我仔细看一下，非常感谢！！<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

刚学AO开发遇到些问题，恳请帮忙解答！

最新喜欢：