NIM063076 for ArcGIS for Desktop

Bug-ID-Nummer	NIM063076
Eingereicht	November 24, 2010
Zuletzt geändert	June 5, 2024
Gilt für	ArcGIS for Desktop
Gefunden in Version	10.0
Programmsprache	VBA
Betriebssystem	Windows OS
Betriebssystemversion	XP
Status	Will Not Be Addressed

Zusätzliche Informationen

VBA is no longer supported. Please use .NET instead

Workaround

Add built-in commands using the reference to ICommandBar returned by ICommandBars.Create() instead of ICommandBars.Find(). In other words, follow the sample code in the following link: http://resources.esri.com/help/9.3/ArcGISDesktop/ArcObjects/esriFramework/ICommandBar_Example.htm If there is a need to first create a custom toolbar (for example, in the OpenDocument event of the MxDocument) and add built-in commands to that custom toolbar at a later time in the same ArcMap session, in a different sub procedure or function, use a module-level or global-level variable to use the reference to the custom toolbar returned by the Create() method and so one does not need to depend on the failing Find() method. See sample in this document VBA module: '***** Declare a module-level variable with the Private keyword ************** '** Alternatively, declare a global-level variable with the Public keyword *** '** Both module-level variables declared in this module called ThisDocument*** '** and global-level variables declared anywhere in the Project are ********** '** accessible by any statement in this module ******************************* Private m_pNewBar As ICommandBar 'Public g_pNewBar As ICommandBar Sub CreateBar1st() Dim pCmdBars As ICommandBars Set pCmdBars = ThisDocument.CommandBars 'Dim pNewBar As ICommandBar > no longer needed; declared as module-level ' ** Since the toolbar below is created and referenced by a module-level * ' ** variable, it will persist throughout the ArcMap session because the * ' ** ThisDocument module is linked to the .mxd file. ********************* Set m_pNewBar = pCmdBars.Create("MyBar", esriCmdBarTypeToolbar) End Sub Public Sub AddCommands2nd() '*** This procedure will attempt to add built-in commands *** '*** to a custom toolbar created previously during the ****** '*** same runtime (ArcMap session) using the Create() method* '*** Run this as a macro after CreateBar1st() has run.******* m_pNewBar.Add ArcID.File_AddData m_pNewBar.Add ArcID.PanZoom_FullExtent End Sub Private Function MxDocument_OpenDocument() As Boolean Call CreateBar1st End Function