ArcGIS VB开发全攻略：从基础到高级操作

需积分: 35 117 浏览量更新于2024-07-29 收藏 1.28MB PDF 举报

"《ArcGIS开发宝典(VB).pdf》是一本详尽的指南，专为ArcGIS（地理信息系统）的Visual Basic (VB) 开发者设计。该书分为两大部分，深入讲解了ArcGIS环境下的编程技巧和用户界面定制。在基础篇中，首先介绍了开发环境的配置，包括如何在ArcMap的VBA环境中编写代码，以及如何利用ArcObjects组件开发ActiveX DLL，以便于在VB环境中扩展ArcGIS的功能。开发者可以学习如何将这些自定义的ActiveX DLL加载到ArcMap中，并通过ArcObjects控件来创建exe程序，实现更丰富的交互操作。用户界面部分是核心内容，涵盖了定制各类工具的创建，如按钮、工具栏、多选项、菜单、工具控制、可停靠窗口和扩展等。开发者能够学习如何利用这些元素构建个性化的用户界面，提高工作效率。此外，书中还详细指导了如何使用状态条、进度条、对话框，以及如何调用ArcMap内置的功能，例如放大镜或虫眼功能。对于GeoDatabase的处理，作者提供了全面的教程，包括加载Shape文件、Text和dBASE文件，连接各种类型的数据库（如Shape、Coverage和栅格文件），以及创建和管理这些文件。此外，还包括了数据的浏览、编辑（如添加、删除和排序记录）、字段操作（添加、删除）和空间查询等高级操作。《ArcGIS开发宝典(VB).pdf》不仅为新手提供入门指南，也适合经验丰富的开发者提升技能，无论是对ArcGIS环境下的VB开发者，还是希望通过ArcGIS进行GIS应用开发的人士，都是不可或缺的参考资料。"

Option Explicit

' 实现 Icommand 接口

Implements ICommand

Dim m_pPicture as Picture

Dim m_pApplication As IApplication

Private Sub Class_Initialize()

' 调入 .RES 文件中 ID 为 101 的 BitMap 作为该按钮的显示图片

Set m_pPicture = LoadResPicture(101, vbResBitmap)

End Sub

Private Property Get ICommand_Bitmap() As esriCore.OLE_HANDLE

ICommand_Bitmap = m_pPicture

End Property

Private Property Get ICommand_Caption() As String

ICommand_Caption = "Create Button"

End Property

Private Property Get ICommand_Category() As String

ICommand_Category = " Create Button "

End Property

Private Property Get ICommand_Checked() As Boolean

End Property

Private Property Get ICommand_Enabled() As Boolean

ICommand_Enabled = True

End Property

Private Property Get ICommand_HelpContextID() As Long

End Property

Private Property Get ICommand_HelpFile() As String

End Property

Private Property Get ICommand_Message() As String

End Property

Private Property Get ICommand_Name() As String

ICommand_Name = " CreateButton "

End Property

Private Sub ICommand_OnClick()

' 加入按下按钮时实现的功能代码。在这里，

' 按钮按下时显示 ArcMap 的 Document 的 Tittle

Dim pDocument As IDocument

Set pDocument = m_pApplication.Document

MsgBox pDocument.Title

End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)

' 获取 ArcMap 的 Application 实例 

Set m_pApplication = hook

End Sub

1.2.3. 如何创建定制的工具条 (Tool Bar)

本例要实现的是如何创建定制的工具条 (Tool Bar) 。就必须在类模块中实现

IToolBarDef

接口。

IToolBarDef 接口包括 Caption

、

ItemCount 及 Name 三个属性和

GetItemInfo 方法。



要点

通过在类模块中实现 IToolBarDef 接口。 IToolBarDef 接口包括 Caption 、

ItemCount 及 Name 三个属性和 GetItemInfo 方法。

· ItemCount 属性表示 ToolBar 显示的条目 (Button 、 Tool 或其它控件 ) 数。

· GetItemInfo 方法定义工具条上各条目的 CLSID ，其中，参数

pos

表示条

目在 ToolBar 中的位置，

itemDef

是定义相应位置的条目的 IItemDef 对象。

· 工具条条目的 CLSID 分为两种：

1 、系统 CLSID ，代表 ArcGIS 的一个功能，其引用方式为 "esriCore. 命令名称

" ，如 "esriCore.AddDataCommand" 、 "esriCore.FileSaveCommand" 等。

2 、用户定制 CLSID ，表示用户自己定义的功能。其引用方式为 " 工程名称 .

定制功能类名称 " ，如 " ToolBarDef.ClsBar " 。必须注意，这里 “ 定制功能类名称

”

是工程中实现的一个功能类名称，

“ 工程名称

”

即为当前工程的名称（不是 D LL

文件名，也不是工具条的名称），每次新建一个工程时，系统默认的工程名在

某些情况下无法使用（在中文版的 VB 中是一个乱字符），必须改名后方能用

。

' 加入 Mouse 单击时的功能代码

If Button = 1 Then

Dim pPoint As IPoint

Dim pMxApplication As IMxApplication

Set pMxApplication = m_pApp

Set pPoint=pMxApplication.Display.DisplayTransformation.ToMapPoint(X, Y)

m_pApplication.StatusBar.Message(0) = Str(pPoint.X) & "," & Str(pPoint.Y)

End If

End Sub

Private Sub ITool_OnMouseMove(ByVal Button As Long, ByVal Shift As Long, _

ByVal X As Long, ByVal Y As Long)

' 加入 Mouse 移动时的功能代码

m_pApplication.StatusBar.Message(0) = "ITool_OnMouseMove"

End Sub

Private Sub ITool_OnMouseUp(ByVal Button As Long, ByVal Shift As Long, _

ByVal X As Long, ByVal Y As Long)

' 加入释放 Mouse 时的功能代码

m_pApplication.StatusBar.Message(0) = "ITool_OnMouseUp"

End Sub

Private Sub ITool_Refresh(ByVal hDC As esriCore.OLE_HANDLE)

End Sub

剩余222页未读，继续阅读

jimsunsudan

粉丝: 1
资源: 7

ArcGIS VB开发全攻略：从基础到高级操作

ArcGIS Engine 10 开发手册.pdf

ArcGIS开发宝典 VB篇

ArcgisEngine开发原理.pdf

ArcGISServer开发Flyingis.pdf

ArcGIS实例开发借鉴.pdf

ArcGIS Engine 开发指南.pdf

C#_ArcGis入门开发教程.pdf

ArcGIS Engine 10 开发.pdf

ArcGIS 桌面定制开发.pdf

ArcGISEngine应用开发.pdf

最新资源