没有合适的资源？快使用搜索试试~ 我知道了~

首页ARCGIS VBA开发编程基础教程

ARCGIS VBA开发编程基础教程

ARCGIS

二次开发

需积分: 20 8 下载量 108 浏览量更新于2024-07-19 1 收藏 3.97MB PDF 举报

身份认证购VIP最低享 7 折!

30元优惠券

试读

240页

ARCGIS VBA 编程基础知识点总结 ARCGIS VBA 编程基础是指使用 VBA 语言开发 ARCGIS 程序的基础知识，涵盖了从开发环境到 GeoDataBase 的各种操作。下面是对该主题的详细知识点总结： **开发环境** * 如何在 ArcMap 的 VBA 环境中编程 * 如何在 VB 环境中利用 ArcObjects 组件开发 ActiveX DLL * 如何在 ArcMap 中加载利用 ArcObjects 组件开发的 ActiveX DLL **用户界面** * 如何创建定制的按钮 (Button) * 如何创建定制的工具 (Tool) * 如何创建定制的工具条 (ToolBar) * 如何创建定制的 MultiItem * 如何创建定制的菜单 (Menu) * 如何创建定制的 ToolControl * 如何创建定制的可停靠窗口 (DockableWindow) * 如何创建、使用定制的 Extension * 如何使用状态条 (StatusBar) 与进度条 (ProgressBar) * 如何使用 ArcGIS 的对话框 * 如何调用 ArcMap 中现有的功能 * 如何创建放大镜 (虫眼) **GeoDataBase** * 如何加载 Shape 文件 * 如何在 ArcMap 中加入 Text 和 dBASE 文件 * 如何连接 GeoDataBase 文件 * 如何连接 Coverage 文件 * 如何连接栅格文件 * 如何创建 Shape 文件 * 如何创建 DBF 文件 * 如何创建 GeoDataBase 文件 * 如何创建 Coverage 文件 * 如何建立文件连接 (Join/Link) * 如何浏览纪录 (属性查询) * 如何编辑记录 * 如何增加记录 * 如何删除记录 * 如何纪录排序 (ITableSort) * 如何添加字段 * 如何删除字段 ARCGIS VBA 编程基础知识点涵盖了从开发环境到 GeoDataBase 的各种操作，为零基础的学习者提供了完整的学习资源。

资源详情

资源推荐

-16-

 程序说明

程序在类模块中实现 Icommand 接口来创建自己的按钮(Button)

 代码

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

-17-

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

Private Property Get ICommand_Tooltip() As String

ICommand_Tooltip = " Create Button "

End Property

1.2.2. 如何创建定制的 Tool

本例要实现的是如何创建定制的 Tool

 要点

用户在类模块中实现 Icommand（参见 1.2.1）和 ITool 接口。ITool 接口包

括 mouse move, mouse button press/release, keyboard key press/release,

double-click 以及 right click 等事件、Cursor 属性和 Refresh 方法。

Tool 既具有 Button 的功能，又具有与 ArcMAP 界面交互的功能，Button 的

功能代码必须写在 Icommand 的 OnClick 事件中，而所有实现交互功能的代码必

须写在 Itool 接口的各个事件中。Itool 接口的各个事件,用户可以在其中写入

相关代码，表示用户与 ArcMAP 界面交互时一旦触发某事件要实现的功能。

 程序说明

程序在类模块中实现 Icommand 和 Itool 接口来创建自己的 Tool.

 代码

Option Explicit

'实现 Icommand 和 Itool 接口

Implements ICommand

Implements ITool

Dim m_pApplication As IApplication

Dim m_pBitmap As IPictureDisp

Dim m_pCursor As IpictureDisp

Private Sub Class_Initialize()

Set m_pBitmap = LoadResPicture(101, 0)

'从.RES 文件中调入 ID 为 102 的图片作为按下 Tool 后的 MouseCursor

Set m_pCursor = LoadResPicture(102, 2)

End Sub

Private Property Get ICommand_Bitmap() As esriCore.OLE_HANDLE

ICommand_Bitmap = m_pBitmap

-18-

End Property

Private Property Get ICommand_Caption() As String

ICommand_Caption = "MyTool"

End Property

Private Property Get ICommand_Category() As String

ICommand_Category = "MyCustomTools"

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

ICommand_Message = "This is my custom tool"

End Property

Private Property Get ICommand_Name() As String

ICommand_Name = "MyCustomTool_MyTool"

End Property

Private Sub ICommand_OnClick()

'加入按下按钮时实现的功能代码

MsgBox "Clicked on my command"

End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)

'获取 ArcMAP 的 Application 实例

Set m_pApplication = hook

End Sub

Private Property Get ICommand_Tooltip() As String

ICommand_Tooltip = "MyTool"

End Property

Private Property Get ITool_Cursor() As esriCore.OLE_HANDLE

ITool_Cursor = m_pCursor

End Property

Private Function ITool_Deactivate() As Boolean

'如果 ITool_Deactivate 设为 False，则 Tool 不可用

ITool_Deactivate = True

End Function

-19-

Private Function ITool_OnContextMenu(ByVal X As Long, ByVal Y As Long) As Boolean

'在这里可以加入用户代码，点击 Mouse 右键时显示一个定制的 context menu

End Function

Private Sub ITool_OnDblClick()

'在这里加入 Mouse 双击时的功能代码

End Sub

Private Sub ITool_OnKeyDown(ByVal keyCode As Long, ByVal Shift As Long)

End Sub

Private Sub ITool_OnKeyUp(ByVal keyCode As Long, ByVal Shift As Long)

End Sub

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

ByVal X As Long, ByVal Y As Long)

'加入 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

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

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

IToolBarDef 接口。IToolBarDef 接口包括 Caption、ItemCount 及 Name 三个属

性和 GetItemInfo 方法。

 要点

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

-20-

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 "。必须注意，这里“定制功能类名称”

是工程中实现的一个功能类名称，“工程名称”即为当前工程的名称（不是 DLL

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

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

 程序说明

程序在类模块中实现 IToolBarDef 接口来创建自己的工具条(ToolBar)。

 代码

Option Explicit

Implements IToolBarDef

Private Property Get IToolBarDef_Caption() As String

IToolBarDef_Caption = "CustomToolBar"

End Property

Private Sub IToolBarDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As _

esriCore.IItemDef)

'这里假设在当前工程(工程名称为 ToolBarDef)中定义了一个类模块(名为 ClsBar)，

'它实现了 Icommand 接口(可参照 1.2.1)

Select Case pos

Case 0

'用户自定义条目

itemDef.ID = "ToolBarDef.ClsBar"

itemDef.Group = False

Case 1

'系统条目

itemDef.ID = "esriCore.AddDataCommand"

itemDef.Group = False

End Select

End Sub

Private Property Get IToolBarDef_ItemCount() As Long

IToolBarDef_ItemCount = 2

End Property

剩余239页未读，继续阅读

粉丝: 0
资源: 2

上传资源快速赚钱

我的内容管理展开

我的资源快来上传第一个资源

我的收益

登录查看自己的收益

我的积分登录查看自己的积分

我的C币登录后查看C币余额

我的收藏

我的下载

下载帮助

ARCGIS VBA开发编程基础教程

arcgis开发（VBA）

ARCGIS-vba编程基础

ARCGIS+VBA

ArcGIS中用VBA定制开发的方法和过程

arcgis python编程案例

基于arcgis的python编程秘随书数据

vba调用ArcGIS中已有工具的方法

面向arcgis的python脚本编程

arcgis和vs开发

vba arcgis 点击显示属性

arcgis python 推荐书籍

arcgispro和arcgis区别

arcgis基础教程视频

《面向arcgis的python脚本编程》练习数据及练习题

在ArcGIS操作环境,应用ＶＢＡ编写程序放大缩小ＵＩ控件

arcgis 的python 编程，查询栅格的有效面积

arcgis10.8能用arcgis server10.4吗

ArcGIS基础数据处理与制图课程

arcgisvba创建UIbutton工具，实现循环地调转到Wind点图层中中每一个点到地图窗口中心，每隔1秒钟跳转一次。

arcgispro学习资料

最新资源