vba11-1.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

Public Sub NewToolbar()
  Dim pDocument As IDocument
  Dim pCommandBars As ICommandBars
  Dim pCommandBar As ICommandBar
  
  Set pDocument = ThisDocument
  Set pCommandBars = pDocument.CommandBars
  Set pCommandBar = pCommandBars.Create("MyToolbar", _
  esriCmdBarTypeToolbar)
  
  ' Add the ShowTime macro
  pCommandBar.CreateMacroItem "MyCommand", 0, _
 "Project.ThisDocument.ShowTime"
  pCommandBar.Dock esriDockRight
End Sub