vba11-2.txt

一个基于ARCGIS的VBA开发代码,本人用它做过很多VBA开发,非常不错!

Public Sub NewMenu()
  ' Find the Main menu bar.
  Dim pMainMenuBar As ICommandBar
  Set pMainMenuBar = ThisDocument.CommandBars. _
  Find(ArcID.MainMenu)
    
  ' Create the new menu called "MyMenu"
  ' on the MainMenuBar.
  Dim pNewMenu As ICommandBar
  Set pNewMenu = pMainMenuBar.CreateMenu("MyMenu")
    
  ' Add a built in command to the new menu.
  pNewMenu.Add ArcID.File_AddData
    
  ' Add your VBA macro to the new menu.
  pNewMenu.CreateMacroItem "MyCommand", 0, _
  "Project.ThisDocument.ShowTime"
End Sub