Arcengine课件

1、Arcengine课件定制并扩展控件Arcengine课件2课程课程 5 5uToolbarControl框架框架u创建定制命令，工具和扩展创建定制命令，工具和扩展uCustomize dialog（定制对话框）定制对话框）uToolbarMenus（工具栏菜单）工具栏菜单）Arcengine课件3定制和扩展类型定制和扩展类型u许多客户化定制是可使用的许多客户化定制是可使用的u在运行时准许增加或删除命令在运行时准许增加或删除命令u在工具栏上可定制保存且导入在工具栏上可定制保存且导入u在运行时建立和展示菜单在运行时建立和展示菜单u不同的扩展也可以执行不同的扩展也可以执行u创建定制命令，工具，菜单

2、和工具栏创建定制命令，工具，菜单和工具栏u定制扩展定制扩展MapControlToolbarTOCToolRead/WriteApplicationDataToolMenuArcengine课件4The ToolbarControl 框架框架uToolbarControluToolbarItemsuCommandPooluToolBarMenuuToolbarItemsuCommandPooluCustomizeDialogArcengine课件5ToolbarItemsu执行添加执行添加item到工具栏的类到工具栏的类u用于管理已经存在的用于管理已经存在的itemu新建项（新建项（items

3、） 类型类型uCommands, Tools, ToolControls和和ToolbarMenusArcengine课件6CommandPoolu对所有对所有 CommandItems 进行管理进行管理u仅有两个对象可能直接访问仅有两个对象可能直接访问pooluToolbarControluToolbarMenuu提供了一些低层接口项（提供了一些低层接口项（ items）uICommandPool:CreateduICommandPool:ExistsuICommandPoolEdit:CallOnCreate uICommandPoolEdit:Hooku开发工程师一般都不使用开发工程师一

4、般都不使用Arcengine课件7如何得到如何得到 CommandPool中的项（中的项（items）u方法方法 1: 1: 通过新建一个通过新建一个Command 对象（对象（object）的实例的实例uNew CommandItem 是创建的一个对象是创建的一个对象u不能共享不能共享u方法方法 2: 2: 通过通过Command 的的UID来取得对象命令来取得对象命令u如果如果 CommandItem不存在那么将被创建不存在那么将被创建u所有的引用都将共享这个实例所有的引用都将共享这个实例 Dim pUid As New esriSystem.UID pUid.Value = esriCo

5、ntrolCommands.ControlsMapZoomInTool ToolbarControl1.AddItem pUid, 0, -1, True, , esriCommandStyleIconAndText Dim command as ICommand = New esriControlCommands.ControlsMapZoomInTool ToolbarControl1.AddItem command, 0, -1, True, , esriCommandStyleIconAndTextArcengine课件8ToolbarControl 命令创建周期命令创建周期u每个每个

6、 item 添加到添加到 CommandPool的过程的过程Toolbar 初始化初始化组合成组合成CommandPoolCmd CmdIToolbarItemIToolbarItemCmd11IToolbarItemTool22IToolbarItemMenu33Items 加入加入Command, tool or menu 被创建被创建UpdateIntervalArcengine课件9ToolbarItems 和和 Commands共同起作用共同起作用uToolbarItems 包含包含 commandsuIToolbarItemuCommand: 提供访问提供访问commanduSty

7、le: 指定指定 command类型类型uUID: command的唯一识别的唯一识别IDDim toolbarItem As IToolbarItemFor i = 0 To AxToolbarControl1.Count - 1 toolbarItem = AxToolbarControl1.GetItem(i) Dim command as ICommand command = toolbarItem.Command MsgBox(command.Name & toolbarItem.Style & toolbarItem.UID.Value)NextArcengine课件10如何运行定

8、制命令（如何运行定制命令（commands）u框架提供可以创建定制命令（框架提供可以创建定制命令（commands）能力能力u如何无缝添加到如何无缝添加到ToolbarControlu导入一个导入一个 CommandItemu其外表以及行为和其他其外表以及行为和其他 items一样一样u执行任何执行任何ArcObjects 代码代码u步骤步骤u创建一个创建一个classu执行执行ICommand1.1.增加类（增加类（class） 到到 工具栏（工具栏（toolbar）Public Class ZoomToLayerClass Implements ICommandArcengine课件11定

9、制命令（定制命令（ commands）: 设置属性设置属性u当命令（当命令（command ）被创建，其属性是可以访问的被创建，其属性是可以访问的uICommanduNameuCaptionuCategoryuTooltipuMessageuBitmapuHelpContextuHelpFile Public ReadOnly Property Bitmap() As Integer Implements ESRI.ArcGIS.SystemUI.ICommand.Bitmap Getreturn m_bitmap End Get End Property Public ReadOnly Pr

10、operty Caption() As String Implements ESRI.ArcGIS.SystemUI.ICommand.Caption Getreturn Identify End Get End Property Public ReadOnly Property Category() As String Implements ESRI.ArcGIS.SystemUI.ICommand.Category Getreturn DAAE Commands End Get End PropertyPublic ReadOnly Property Name() As String Im

11、plements ESRI.ArcGIS.SystemUI.ICommand.Name Getreturn DAAECustomCommand_Identify End Get End PropertyArcengine课件12定制命令定制命令 commands: 访问钩子（访问钩子（ hook）对象对象u对于已经创建命令的对象将返回一个钩子（对于已经创建命令的对象将返回一个钩子（ hook） uHOOK有许多不同的对象（有许多不同的对象（ objects）uToolbarControl, MapControl, PageLayoutControl, u当被创建时加入当被创建时加入 comma

12、nduICommanduOnCreatePrivate Sub ICommand_OnCreate(ByVal hook As Object) If (TypeOf hook Is esriToolbarControl.IToolbarControl) Then Dim ToolBarCon As esriToolbarControl.IToolbarControl Set ToolBarCon = hook If (TypeOf ToolBarCon.Buddy is MapControl) ThenDim mapControl as IMapControl Set MapControl =

13、 ToolBarCon.BuddySet m_map = mapControl.Map End If ElseIf (TypeOf hook is IMapControl3) then Dim mapControl as IMapControl Set mapControl = hookSet m_map = mapControl.Map End IfEnd Sub Arcengine课件13定制命令（定制命令（ commands）: HookHelper 类类u提供了普通方法来访问内在对象（提供了普通方法来访问内在对象（internal objects）u简单代码（简单代码（Simplifi

14、es code ）uIHookHelperuActiveViewuFocusMapuHookuOperationStackuPageLayoutuGlobe 和和Scene 都拥有他们自身的钩子（都拥有他们自身的钩子（ hook） helper 类类Private m_hookHelper as IHookHelperPrivate m_map as IMapPrivate m_pageLayout as IPageLayoutPrivate Sub ICommand_OnCreate(ByVal hook As Object) Set m_hookHelper = New HookHelpe

15、r Set m_hookHelper.hook = hook Set m_map = m_hookHelper.FocusMap Set m_pageLayout = m_hookHelper.PageLayout End SubArcengine课件14定制命令（定制命令（ commands）: 有效性控制有效性控制u运用其属性设置命令（运用其属性设置命令（commands ）是否有效是否有效 uICommanduEnabled: 激活或不可用命令激活或不可用命令 uChecked: 设置按纽的检测状态设置按纽的检测状态uToolbarControl会经常调用他们的成员会经常调用他们的成员

16、uUpdateInterval: 定义工具栏的值定义工具栏的值Private Property Get ICommand_Enabled() As Boolean ICommand_Enabled = IIF(TypeOf m_pHookHelper.Hook Is MapControl, True, False)End Property Private Property Get ICommand_Checked() As Boolean ICommand_Checked = IIF(TypeOf m_pHookHelper.Hook Is MapControl, True, False)En

17、d Property Arcengine课件15定制命令定制命令: 基类（基类（Base classes）u定制命令的基类是可用的、有价值的定制命令的基类是可用的、有价值的u必要使用一些成员必要使用一些成员 ( (比如：比如： OnCreate)u.NET uESRI.ArcGIS.Utility.BaseClasses.BaseCommanduJavaPublic Class ZoomToLayerClass Inherits BaseCommand Public Sub New() MyBase.New() MyBase.m_caption = ZoomToLayer MyBase.m_c

18、ategory = DAAE Commands MyBase.m_message = Zoom To the extent of the layer MyBase.m_name = DaaeCustomCommands_ZoomToLayer MyBase.m_toolTip = ZoomToLayerEnd SubArcengine课件16实现定制工具实现定制工具u框架（框架（ framework ）提供了创建定制提供了创建定制工具的功能工具的功能uAdded seamlessly to ToolbarControlu以以CommandItems加载加载u与显示相结合与显示相结合u步骤步骤u

19、创建类（创建类（Create a class）u实现实现 ICommand 和和 IToolu增加类到增加类到toolbar中中Public Class ZoomToLayerClass Implements ICommand, IToolArcengine课件17定制工具定制工具 : 运行成员（运行成员（ members）uITooluOnMouseDownuOnMouseMoveuOnMouseUpuOnKeyDownuOnKeyUpuOnContextMenuuDeactivateuCursor Public Sub OnMouseDown(ByVal button As Integer

20、, ByVal shift As Integer, ByVal x As Integer, ByVal y As Integer) Implements ESRI.ArcGIS.SystemUI.ITool.OnMouseDown If button = 1 Then Dim point As IPoint point = MapControl1.ToMapPoint(x, y) StatusBar.Message(0) = point.X.ToString() & , & point.Y.ToString() End If End Sub Public Sub OnMouseMove(ByV

21、al button As Integer, ByVal shift As Integer, ByVal x As Integer, ByVal y As Integer) Implements ESRI.ArcGIS.SystemUI.ITool.OnMouseMoveStatusBar.Message(0) = OnMouseMove End Sub Public Sub OnMouseUp(ByVal button As Integer, ByVal shift As Integer, ByVal x As Integer, ByVal y As Integer) Implements E

22、SRI.ArcGIS.SystemUI.ITool.OnMouseUpStatusBar.Message(0) = OnMouseUp End SubArcengine课件18定制工具定制工具 :维护选择图层维护选择图层u一些工具需要访问在一些工具需要访问在TOC中的选择的图层中的选择的图层u当一个图层被选择时候当一个图层被选择时候, 在在 control中存储图层中存储图层u比如比如: : IMapControl3:CustomProperty Private Sub AxTOCControl1_OnMouseDown(ByVal sender As Object, ByVal e As E

23、SRI.ArcGIS.TOCControl.ITOCControlEvents_OnMouseDownEvent) Handles AxTOCControl1.OnMouseDown Try Dim map As IMap Dim layer As ILayer Dim other As Object Dim item As esriTOCControlItem Dim index As Object Dim tocControl As ITOCControl tocControl = AxTOCControl1.Object tocControl.HitTest(e.x, e.y, item

24、, map, layer, other, index) If item = esriTOCControlItem.esriTOCControlItemLayer Then AxMapControl1.CustomProperty = layer statusBar.Text = Layer: & layer.Name.Arcengine课件19定制工具定制工具:访问选择图层访问选择图层u定制工具通过控件（定制工具通过控件（control）来访问图层来访问图层 Public Overrides Sub OnCreate(ByVal hook As Object) Create an IHookH

25、elper object m_hookHelper = New HookHelper m_hookHelper.Hook = hook If TypeOf m_hookHelper.Hook Is MapControl Then m_mapControl3 = m_hookHelper.Hook ElseIf TypeOf m_hookHelper.Hook Is ToolbarControl Then Dim toolbarControl As IToolbarControl toolbarControl = m_hookHelper.Hook m_mapControl3 = toolbar

26、Control.Buddy End If End Sub Public Overrides Sub OnClick() Dim layer As ILayer layer = m_mapControl3.CustomProperty If (TypeOf layer Is IGeoDataset) Then Dim pGeoDataset As IGeoDataset pGeoDataset = layer m_hookHelper.ActiveView.Extent = pGeoDataset.Extent m_hookHelper.ActiveView.Refresh() End If E

27、nd SubArcengine课件20实现定制实现定制 的的COM 组件组件u框架也可以通过自己写的框架也可以通过自己写的COM 组件被扩展组件被扩展u类型类型uCommands, tools, menus, toolbars, 和扩展和扩展u一般步骤一般步骤u创建一个工程创建一个工程 (VB, VC+, .NET, )u定义库的类型并且定义类的名称定义库的类型并且定义类的名称u引用适当的引用适当的ArcGIS Engine 库库u实现用户界面实现用户界面u编译和注册编译和注册1.1.注册成一个组件类型（注册成一个组件类型（ component category）Arcengine课件21存储

28、定制存储定制COM componentsu所有定制所有定制COM组件都正确的组件都正确的ArcGIS Engine component category中注册中注册u是对于是对于CustomizeDialog的类的可用的的类的可用的uESRI Controls CommandsuESRI Controls MenusuESRI Controls Toolbarsu注册的方法注册的方法uCategories.exeuESRI Add-insuRegistration scripts (.reg)Arcengine课件22运行运行 COM 命令和工具组命令和工具组uESRI命令之后建模命令之后建模

29、u接口接口: : Icommand和和 IToolu库类型库类型: : esriSystemUIu组件分类组件分类wESRI Controls Commandsu另外有关的接口和对象另外有关的接口和对象uToolbarItemuIToolbarDef 和和 IMenuDefu其他方面详细资料和本地的类及其他方面详细资料和本地的类及COM类是一样的类是一样的Arcengine课件23双重双重 COM 命令命令u你可以创建你可以创建 COM 命令运用在命令运用在 ArcGIS Engine 和和 Desktopu那么需要运用那么需要运用HookHelper类来连接、取得这个钩子类来连接、取得这个钩

30、子u做做 Engine开发的机器上不能引用开发的机器上不能引用Desktop的类的类Private Sub ICommand_OnCreate(ByVal hook As Object) If TypeOf hook Is esriToolbarControl.IToolbarControl Then Dim ToolBarCon As esriToolbarControl.IToolbarControl Set ToolBarCon = hook If (TypeOf ToolBarCon.Buddy is MapControl) ThenDim mapControl as IMapCont

31、rol Set MapControl = ToolBarCon.BuddySet m_map = mapControl.Map End If ElseIf (TypeOf hook is IMxApplication) then Dim application as IApplication Set application = hook Dim mxDoc as IMxDocument Set mxDoc = application.Document Set m_map = mxDoc.FocusMap End IfEnd Sub Arcengine课件24运行运行COM工具栏和工具栏和 me

32、nusuESRI toolbars 和和 menus之后建模之后建模u接口接口: : IToolBarDef, IMenuDefu库的种类库的种类: : esriSystemUIu组件分类：组件分类：wESRI Controls MenuswESRI Controls Toolbarsu另外有关系的另外有关系的 接口和对象接口和对象uIMenuDef and IToolbarMenu uICommandPool, Icommand, and IToolArcengine课件25创建定制创建定制COM工具栏工具栏Implements IToolbarDefPrivate Property Get

33、 IToolbarDef_Caption() As String IToolbarDef_Caption = NavigationEnd PropertyPrivate Sub IToolbarDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriSystemUI.IItemDef) Select Case pos Commands for the menu Case 0 itemDef.ID = esriControlCommands.ControlsMapZoomInFixedCommand Case 1 itemDef.ID =

34、esriControlCommands.ControlsMapZoomOutFixedCommand Case 2 itemDef.ID = esriControlCommands.ControlsMapFullExtentCommand Case 3 itemDef.ID = MyLibrary.MyCommand End SelectEnd SubPrivate Property Get IToolbarDef_ItemCount() As Long IToolbarDef_ItemCount = 3End PropertyPrivate Property Get IToolbarDef_

35、Name() As String IToolbarDef_Name = NavigationEnd PropertyArcengine课件26创建定制创建定制COM菜单菜单Implements IMenuDefPrivate Property Get IMenuDef_Caption() As String IMenuDef_Caption = NavigationEnd PropertyPrivate Sub IMenuDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriSystemUI.IItemDef) Select Case

36、pos Commands for the menu Case 0 itemDef.ID = esriControlCommands.ControlsMapZoomInFixedCommand Case 1 itemDef.ID = esriControlCommands.ControlsMapZoomOutFixedCommand Case 2 itemDef.ID = esriControlCommands.ControlsMapFullExtentCommand Case 3 itemDef.ID = MyLibrary.MyCommand End SelectEnd SubPrivate

37、 Property Get IMenuDef_ItemCount() As Long IMenuDef_ItemCount = 3End PropertyPrivate Property Get IMenuDef_Name() As String IMenuDef_Name = NavigationEnd PropertyArcengine课件27(implements)实现实现 COM 扩展扩展u在软件组件之间的扩展之间能共享数据在软件组件之间的扩展之间能共享数据uESRI扩展模型扩展模型u接口接口: : IExtension, IExtensionConfigu引用库引用库: : esri

38、Systemu详细资料详细资料uExtensionManager 是一个单个、独立是一个单个、独立u任何一个组件进程任何一个组件进程Extension 类是可用的类是可用的u资源容易共享资源容易共享u比如比如: : ZoomExtensionPublic Class ZoomExtension Implements IExtension Implements IExtensionConfigArcengine课件28COM 扩展工具扩展工具: : IExtensionu名称名称: : 查找扩展查找扩展u启动启动: :通过程序初始化通过程序初始化 datauShutdown: （停止、结束）停止

39、、结束）Terminate Dim m_Form as Form Private ReadOnly Property IExtension_Name() As String Implements ESRI.ArcGIS.esriSystem.IExtension.Name Get Return Zoom Factor Extension End Get End Property Private Sub IExtension_Startup(ByRef initializationData As Object) Implements ESRI.ArcGIS.esriSystem.IExtensi

40、on.Startupm_Form = initializationData m_zoomFactor = 2m_extensionState = esriExtensionState.esriESDisabled End Sub Private Sub IExtension_Shutdown() Implements ESRI.ArcGIS.esriSystem.IExtension.Shutdown Not implemented End SubArcengine课件29COM 扩展接口扩展接口: : IExtensionConfiguIExtensionConfig: 控制控件状态控制控件

41、状态u定制界面用于数据进行访问定制界面用于数据进行访问u比如比如: : ZoomFactorImplements IExtensionConfigPrivate Property Let IExtensionConfig_State(ByVal RHS As esriSystem.esriExtensionState) m_extensionState = RHSEnd PropertyPrivate Property Get IExtensionConfig_State() As esriSystem.esriExtensionState IExtensionConfig_State = m

42、_extensionStateEnd Property Custom interface and property to get and set ZoomFactorPrivate Property Let IZoomExtension_ZoomFactor(ZoomFactor As Double) m_zoomFactor = ZoomFactorEnd PropertyPrivate Property Get IZoomExtension_ZoomFactor() As Double IZoomExtension_ZoomFactor = m_zoomFactorEnd Property

43、Arcengine课件30程序中访问扩展程序中访问扩展u所有程序需要手动加入扩展到所有程序需要手动加入扩展到 ExtensionManager 类类u开始启动参数开始启动参数uUID: GUID 扩展对象类扩展对象类uinitializationData: 所有对象都需要初始化这个扩展所有对象都需要初始化这个扩展u给扩展对象创建一个实例给扩展对象创建一个实例Private m_pExtensionManagerAdmin As IExtensionManagerAdminPrivate Sub Form1_Load(ByVal eventSender As System.Object, ByV

44、al eventArgs As System.EventArgs) Handles MyBase.Load m_pExtensionManagerAdmin = New ExtensionManager Dim pUID As New UID pUID.Value = ZoomFactorExtension.ZoomExtension m_pExtensionManagerAdmin.AddExtension(pUID, Form1) End SubArcengine课件31关于关于 CustomizeDialogu用户可创建非模态的对话框用户可创建非模态的对话框: : u在运行时可增加并删除

45、命令在在运行时可增加并删除命令在 toolbarcontrol 中中u浏览浏览ESRI已经存在已经存在commands, tools, 菜单菜单, , 和工具栏和工具栏u浏览定制的浏览定制的commands, tools, menus, 和和 toolbarsu拖放选项（拖放选项（ items）u右鍵删除右鍵删除u需要激活程序需要激活程序Arcengine课件32从组件种类导入选项（从组件种类导入选项（ items）u所有子项（所有子项（items）必须正确注册在必须正确注册在 categoryuTabs map to 组件种类（组件种类（ category）名称名称uCommands = E

46、SRI Controls CommanduToolsets = ESRI Controls ToolbarsuMenus = ESRI Controls Menusu通过文件增加通过文件增加u浏览浏览 COM DLLsu自动注册自动注册 DLLu更新组件种类更新组件种类 component categoriesArcengine课件33显示定制对话框（显示定制对话框（ customize dialog）u创建对话框创建对话框u接收事件（接收事件（Sink events）u设置状态（设置状态（Set state）Private WithEvents pCustDialogEvents As Cu

47、stomizeDialogPrivate pCustDialog As ICustomizeDialogPrivate Sub ToolbarControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long) If (button = vbRightButton) Then Set pCustDialog = New CustomizeDialog pCustDialog.SetDoubleClickDestination ToolbarControl1 pCustD

48、ialog.DialogTitle = Customize pCustDialog.StartDialog ToolbarControl1.hWnd Set pCustDialogEvents = pCustDialog End IfEnd SubPrivate Sub pCustDialogEvents_OnCloseDialog() ToolbarControl1.Customize = FalseEnd SubPrivate Sub pCustDialogEvents_OnStartDialog() ToolbarControl1.Customize = TrueEnd SubArcen

49、gine课件34保存保存 toolbar 项项u当程序关闭时它们都可以把所有在当程序关闭时它们都可以把所有在toolbar的项（的项（items）都都写入到文件中写入到文件中 u为用户保存当前状态为用户保存当前状态u对于不同的对于不同的 CommandItem, store the:uOrderuStyle uUIDPrivate Sub WriteText Write As String) Dim objStreamWriter As StreamWriter Dim i As Integer Dim toolbarItem As IToolbarItem objStreamWriter =

50、 New StreamWriter(Write) For i = 0 To AxToolbarControl1.Count - 1 toolbarItem = AxToolbarControl1.GetItem(i) If Not toolbarItem.UID Is Nothing Then objStreamWriter.WriteLine(toolbarItem.Style) objStreamWriter.WriteLine(toolbarItem.UID.Value) End If Next objStreamWriter.Close() End SubArcengine课件35读取

51、读取 toolbar 项（项（items）u当程序启动时自动读取所有项（当程序启动时自动读取所有项（items）从外部文件中从外部文件中u对于不同的对于不同的 CommandItem, 重建他们重建他们:uOrderuStyle uUIDPrivate Sub ReadText Read As String) Dim objStreamReader As StreamReader Dim strLine As String Dim strStyle As String objStreamReader = New StreamReader(Read) strStyle = objStreamRe

52、ader.ReadLine Do While Not strStyle Is Nothing If strStyle Then Read each item and apply the style strLine = objStreamReader.ReadLine AxToolbarControl1.AddItem(strLine, , -1, False, , CInt(strStyle) End If strStyle = objStreamReader.ReadLine Loop objStreamReader.Close() End SubArcengine课件36与与 Toolba

53、rMenus共同起作用共同起作用u运用运用ToolbarMenu to host commands and menusu二种方法创建二种方法创建u加入菜单到加入菜单到 ToolbarControlu手动移动命令手动移动命令u多样种类多样种类uPop-up menuuToolbar menuuSubmenuArcengine课件37在在MapControl 中显示中显示ToolbarMenusu新的新的 menus 要求一个钩子（要求一个钩子（hook）传递进来传递进来uHook 是存在是存在ToolbarControl 或任何其他或任何其他 controlPrivate m_pToolbarM

54、enu As IToolbarMenuPrivate Sub Form_Load() Create a MenuDef object Dim pMenuDef As esriSystemUI.IMenuDef Set pMenuDef = New NavigationMenu Set m_pToolbarMenu = New ToolbarMenu m_pToolbarMenu.AddItem pMenuDef m_pToolbarMenu.SetHook ToolbarControl1.Object End SubPrivate Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double) If button = vbRightButton Then Popup the menu m_pToolbarMenu.PopupMenu x, y, MapControl1.hWnd E