AO 开发之 如何创建定制的Tool zz# GeoSpace - 地球与空间科学
d*e
1 楼
Tool既具有Button的功能，又具有与ArcMAP界面交互的功能，Button的功能代码必须写在
Icommand的OnClick事件中，而所有实现交互功能的代码必须写在Itool接口的各个事件中
。Itool接口的各个事件,用户可以在其中写入相关代码，表示用户与ArcMAP界面交互时一
旦触发某事件要实现的功能。
l 程序说明
程序在类模块中实现Icommand和Itool接口来创建自己的Tool.
l 代码
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后的MouseCurso
Icommand的OnClick事件中，而所有实现交互功能的代码必须写在Itool接口的各个事件中
。Itool接口的各个事件,用户可以在其中写入相关代码，表示用户与ArcMAP界面交互时一
旦触发某事件要实现的功能。
l 程序说明
程序在类模块中实现Icommand和Itool接口来创建自己的Tool.
l 代码
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后的MouseCurso