在vb.net环境下开发ArcMap 定制组件，有点疑问！！

楼主^#

更多发布于：2005-09-28 11:56

想在vb.net环境下开发ArcMap 定制组件，但是却始终不能成功，加载生成的dll的时候总是显示：can't load type library from specified file. 我知道这个原因是因为没有转化为COM ，但是我的代码中明明已经写了的呀
代码见下面：
组件功能：放大视图一倍。
<H4>2.1 创建一个新的类库</H4>
1) 打开Visual Studio .NET；
2) 在vs.net 环境中，点击菜单：文件->新建->项目；
3) 在新建项目对话框中，在左侧项目类型面板中选择 Visual Basic 项目；
4) 在右侧的模板面板中选择类库；
5) 命名项目为VBNetCmds，并且选择项目存储的路径；
6) 点击确定，这样就新建了一个项目。
2.2 引用ESRI 对象库
在正常使用ESRI提供的dotnet对象库之前，你必须将必须的ESRI对象库引用到当前项目中。ESRI对象库在安装Devkit 开发包时被安装，默认的安装路径为：ArcGIS安装根目录\DotNet 。
1) 点击项目菜单，然后点击添加引用子菜单，添加引用对话框打开后，选择.net 标签，依次选择ESRI.ArcGIS.Geometry，ESRI.ArcGIS.SystemUI，ESRI.ArcGIS.Framework，ESRI.ArcGIS.Carto四个ESRI对象库，在本项目中还会用到其它几个对象库，如System.Drawing等，这时可以同时选择。
2) 点击确定，关闭添加引用对话框，同时完成必需引用的添加。
说明：
ESRI.ArcGIS.Geometry 引用是因为在后面的代码中会使用到 Iextent ，Ipoint 等接口；
ESRI.ArcGIS.SystemUI 引用是因为要用来Icommand 等接口；
ESRI.ArcGIS.Carto
ESRI.ArcGIS.Framework
<H2>2.3 创建一个放大命令</H2>
可以使用Com类向导向项目中添加一个新类。
1) 在解决方案资源管理器中，右击项目，点击添加，然后选择添加新项；
2) 在添加新项对话框中，在右侧面板选择Com类，在对话框底部的名称文本框中输入此Com类的名称，本例中为NetZoomIn.Vb。
3) 在解决方案资源管理器中，右键点击已存在的类（Class1.VB），然后点击删除，将项目创建时自动创建的类删除。
<H2>2.4 添加 Imports 部份：</H2>
添加Imports 表达式，可以简化代码的编写，使代码具有更好的可读性。
1) 在解决方案资源管理器中，双击NETZoomIn.VB，打开它的代码编辑窗口。
2) 在代码窗口的顶部，类声明的起始部份添加如下的代码；
<H5>Imports ESRI.ArcGIS.SystemUI '定义Icommand、ITool等接口 Imports ESRI.ArcGIS.ArcMapUI '定义ImxApplication、IDataWindow等接口 Imports ESRI.ArcGIS.Geometry '定义IGeometry、IPoint等接口 Imports ESRI.ArcGIS.Framework '定义IcommandBar、IDocument、IdockbleWindow等接口 Imports ESRI.ArcGIS.Carto '定义IFeatureLayer、ICADLayer 等接口 Imports System.Drawing '命令使用的图标位图IBitmap接口等 Imports System.Runtime.InteropServices '</H5>
<H4>2.5 实现 Icommand 接口：</H4>
1) 在NetZoomIn.VB代码窗口，可以使用如下代码声明NetZoomIn类实现Icommand接口：
 Public Class NetZoomIn <PRE> Implements ICommand </PRE>
2) 在NetZoomIn 类代码窗口顶部的向导栏，点击左侧的下接列表，并选中Icommand；
3) 在右侧的下接列表中，选择Icommand 接口的第一个成员 Bitmap，Bitmap属性的代码框架将被添加到代码窗口中；
4) 重复2)-3)步，将所有Icommand 接口的成员代码框架添加到代码窗口中；
5) 点击 Ctrl+Shift+S ，保存项目中所有的文件。
<H4>2.6 添加Icommand接口成员代码：</H4>
现在开始向Icommand接口的成员中添加代码。
1) 向类中添加如下所示的代码段，下面的变量成员将被Icommand接口所使用。
<H5> Public Class NetZoomIn Implements ICommand Private m_app As IApplication 'ArcMap应用程序接口 Private m_enabled As Boolean '此命令是否有效 Private m_bitmap As Bitmap '此命令显示于工具栏上的位图 Private m_hBitmap As IntPtr '位图指针 </H5><PRE>#Region "COM GUIDs" ？？这里的GUID怎么取得？？ </PRE><PRE>成员变量在类定义的开始部份进行声明。 </PRE>
2) 在NetZoomIn代码窗口，卷动并找到OnCreate 方法，添加如下代码到该方法：
<H5>Public Sub OnCreate(ByVal hook As Object) Implements ESRI.ArcGIS.SystemUI.ICommand.OnCreate '该类创建时实现的功能，引用ArcMap应用程序，并使用该命令处于有效状态 If Not (hook Is Nothing) Then If TypeOf (hook) Is IMxApplication Then m_app = CType(hook, IApplication) m_enabled = True End If End If End Sub</H5>
3) 向上卷动代码窗口，找到OnClick 方法，添加如下代码以完成当前活动视图的放大动作：
<H5>Public Sub OnClick() Implements ESRI.ArcGIS.SystemUI.ICommand.OnClick '鼠标点击该命令按钮时，实现的功能 Dim mxDoc As IMxDocument = CType(m_app.Document, IMxDocument) Dim activeView As IActiveView = mxDoc.ActiveView Dim currExtent As IEnvelope = activeView.Extent currExtent.Expand(0.5D, 0.5D, True) activeView.Extent = currExtent activeView.Refresh() End Sub</H5>
4) 编辑代码块，以实现Category ，Caption ，Checked ，Enabled ， Helpfile ，HelpContextID ， Name ， Message ， 以及 Tooltip 等方法，实现该命令的一些返回信息。
<H5>Public ReadOnly Property Caption() As String Implements ICommand.Caption Get Return "放大工具" End Get End Property Public ReadOnly Property Category() As String Implements ICommand.Category Get Return "NetCmds" End Get End Property Public ReadOnly Property Checked() As Boolean Implements ICommand.Checked Get Return False End Get End Property Public ReadOnly Property Enabled() As Boolean Implements ICommand.Enabled Get Return m_enabled End Get End Property Public ReadOnly Property HelpContextID() As Integer Implements ICommand.HelpContextID Get Return 0 End Get End Property Public ReadOnly Property HelpFile() As String Implements ICommand.HelpFile Get End Get End Property Public ReadOnly Property Message() As String Implements ICommand.Message Get Return "当前视图放大一倍显示." End Get End Property Public ReadOnly Property Name() As String Implements ICommand.Name Get Return "NetCmds_放大工具" End Get End Property Public ReadOnly Property Tooltip() As String Implements ICommand.Tooltip Get Return "放大一倍" End Get End Property</H5>
<H4>2.7 完成工具的图标部份（Icommand::Bitmap）</H4>
现在需要添加一个已存在的位置文件到当前项目中，做为本命令按扭显示的图标，这里要添加对 System.Drawing 库的引用。
1) 在解决方案资源管理器窗口，右击VBNetCmds项目，然后点击添加，并选择添加现有项；（[图七]）
2) 在添加现有项对话框中，在文件类型部份的下接列表中选择图像文件，并定位到要添加的位置文件（本例中为ZoomIn.BMP），点击打开按钮，将该位图添加到项目中。（[图八]）
3) 在解决方案资源管理器窗口中，选择刚刚添加的ZoomIn.BMP项目，在下面的属性窗口中的生成操作条目的下接列表中选择嵌入的资源选项。 （[图九]）
4) 返回到该命令的代码窗口，添加如下的代码到类构结构中：
<H5>Public Sub New() MyBase.New() Dim res() As String = GetType(NetZoomIn).Assembly.GetManifestResourceNames() If (res.GetLength(0) > 0) Then m_bitmap = New _ Bitmap(GetType(NetZoomIn).Assembly.GetManifestResourceStream(res(0))) If Not (m_bitmap Is Nothing) Then m_bitmap.MakeTransparent(m_bitmap.GetPixel(1, 1)) m_hBitmap = m_bitmap.GetHbitmap() End If End If End Sub 注意：GetHbitmap 方法不受控的 Windows GDI 位图对象，这个对象必须使用特定的方法进行删除，因为 .net 垃圾收集器不能清除不受控的资源。可以在如下的两个步骤5) 及 6) 中完成删除操作。 </H5>
5) 向上卷动代码窗口，在类声明内部添加如下代码：
<H5>Public Class NetZoomIn Implements ICommand _ Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Boolean End Function </H5>
DllImport 表达式部份提供了对GDI32.DLL 库中的 DeleteObject 函数的访问声明。
6) 向下卷动代码窗口，在类结构的底部添加如下代码：
<H5>Protected Overrides Sub Finalize() If (m_hBitmap.ToInt32() <> 0) Then DeleteObject(m_hBitmap) End If End Sub 以上这段代码在垃圾收集器需要消毁NetZoomIn 类实例时被调用， 它重载了 System.Object. Finalize 方法。
7) 最后添加如下代码到Icommand::Bitmap方法中，并返回Bitmap名柄。</H5>
7) 最后添加如下代码到Icommand::Bitmap方法中，并返回Bitmap名柄。
<H5>Public ReadOnly Property Bitmap() As Integer Implements ICommand.Bitmap Get Return m_hBitmap.ToInt32() End Get End Property</H5>
<H4>2.8 声明你的类为Com</H4>
ArcGIS要求你的命令类为COM类，因此你创建的类必须声明为COM，可以为它创建一个可调用的Com封装。
如果你在项目开始时，使用COM类向导来创建你的类，那么VB.NET将会自动的做这些事情，而不用你在后期手动添加。

<H4>2.9 添加Com分类注册函数</H4>
这个工作可以借助Addins For .net 工具来完成，也可以手工方式添加代码。本示例实现的为IMxCommands 小类的注册 ，IMxCommands 的注册表标识GUID值为：{B56A7C42-83D4-11D2-A2E9-080009B6F22B} 。
手工方式添加： 
将如下所示代码添加到代码窗口类声明顶部，Com Guids Region 底部：
<H5>#Region "Component Category Registration" _ Public Shared Sub RegisterFunction(ByVal sKey As String) Dim fullKey As String = sKey.Remove(0, 18) ; "\Implemented Categories" Dim regKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(fullKey, True) If Not (regKey Is Nothing) Then regKey.CreateSubKey("{B56A7C42-83D4-11D2-A2E9-080009B6F22B}") End If End Sub _ Public Shared Sub UnregisterFunction(ByVal sKey As String) Dim fullKey As String = sKey.Remove(0, 18) ; "\Implemented Categories" Dim regKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(fullKey, True) If Not (regKey Is Nothing) Then regKey.DeleteSubKey("{B56A7C42-83D4-11D2-A2E9-080009B6F22B}") End If End Sub #End Region 通过Devkit Addin for .net 工具自动生成： </H5>
在VS.NET IDE 环境中，在主菜单中选择 工具-> ESRI ComponentCategoryRegistar ，打开 Component Category Registering 对话框，在下面的列表中选择 MxCommands ，使其前面的复选框处于选中状态，然后点击OK按钮，如下代码会自动添加到代码窗口中：
 

<H5>#Region "Component Category Registration" _ Public Shared Sub Reg(ByVal regKey As String) MxCommands.Register(regKey) End Sub _ Public Shared Sub Unreg(ByVal regKey As String) MxCommands.Unregister(regKey) End Sub #End Region
这段代码与上面手工添加的代码功能是一样的。但使用这个Addin 工具在工程的BIN目录中会生成两个批处理文件：Reg.Bat 及 UnReg.Bat ，用于手工注册或手工取消注册生成的DLL 文件。
Reg.Bat 文件内容为：
regasm VBNetCmds.dll
请将内容改为：
regasm VBNetCmds.dll /tlb: VBNetCmds.tlb /codebase
Unreg.Bat文件内容为：
regasm VBNetCmds.dll /u
regasm 为.net framework 提供的.net com 组件注册工具，位于
SYSTEMROOT:\WINDOWS\Microsoft.NET\Framework\v1.1.4322 目录中。请在Path 路径设置中加入该路径。 ？？这个路径要怎么添加？？</H5>
<H4>2.10编译项目：</H4>
在进行项目编译之前，使用Ctrl+Shift+S 保存项目文件所做的修改，然后在VS.NET IDE 环境中，运行 Ctrl+Shift+B 快捷键编译项目，或通过 菜单项 生成 -> 生成解决方案来完成。
如果编译成功，在结果窗口会显示以下类似信息：
否则，如果编译不通过，代码中有拼写错误或其它错误时，将会显示类似如下的信息：
双击出错项目描述部份，将直接来到错误出处，改正所有错误，直到出现生成成功为止。
<H4>2.11在ArcMap环境中使用</H4>
1) 打开ArcMap，点击菜单 Tools->Customize...，打开自定义对话框：
2) 在打开的Customize 对话框中，点击Commands 标签，在左侧的Categories 列表中找到NetCmds 分类，这时，我们刚刚做好的工具放大工具将会显示在右侧的Commands 列表中。
3) 拖动放大工具到指定的工具栏上，点击Close 按钮，关闭Customize 对话框。现在可以使用我们刚做的放大工具了。

喜欢0 评分0

举报回复

发帖回复

« 返回列表

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

返回顶部

在vb.net环境下开发ArcMap 定制组件，有点疑问！！

最新喜欢：