外接程序工具栏

虽然外接程序在 Visual Basic 中随处都可访问（在第四章中详细讨论），但可能将它们放在外接程序工具栏上更加方便。

外接程序工具栏是由 Visual Basic 作为所有的外接程序和向导的一种“一次购买（one-stop shopping）”提供的。可以将外接程序和向导作为便于访问的按钮放在这里。而且在单击按钮之前外接程序和向导并不加载。避免了进入外接程序管理器，单击外接程序框，然后再单击“确定”这些麻烦的操作。放置在外接程序工具栏上的外接程序以按钮形式出现。调用并加载外接程序，只需单击相应的按钮。非常方便！

注意   可以象放置外接程序一样，在外接程序工具栏上放置向导。

要启动外接程序工具栏，请在外接程序管理器中选择 "VB 外接程序工具栏"。在标准工具栏下面应看到一个小的工具栏。

左边第一个按钮（"+/-" 按钮）允许在工具栏上添加或者删除项。如果要添加项，请浏览外接程序，在“可用外接程序”列表中选择相应的框，然后单击“确定”。然后外接程序（或者向导）将出现在外接程序工具栏上。有关外接程序工具栏对话框的详细信息，请在 Visual Basic 文档中查找。

当然，还可以通过编程来控制外接程序工具栏，这是因为检查每台计算机来确定外接程序是否已经出现在它们相应的工具栏上是不切实际的。

外接程序工具栏对象模型有一个 Manager 对象，它包含两个方法：

• AddToAddInToolbar
  
  
• RemoveAddInFromToolbar

这两个方法允许通过编程方法在外接程序工具栏上添加或者删除按钮。

下面的代码示例显示了如何通过编程在工具栏上添加外接程序，并且确保下次 Visual Basic 启动时外接程序工具栏将被自动加载：

Sub Main()
   dim x as Object
   Set x=CreateObject("AddInToolbar.Manager")
      x.AddToAddInToolbar ("C:\VB\MyAdd.DLL", _  
      "MyAddIn.Connect", "MyAddIn Title" True, True)
End Sub

下面的代码示例显示了如何从工具栏上删除外接程序：

Sub Main()
   dim x as Object
   Set x=CreateObject("AddInToolbar.Manager")
   x.RemoveAddInFromToolbar sAddInName:="MyAddIn Title"
End Sub

外接程序工具栏的注册地点是 (HKEY_CURRENT_USER\Software\Microsoft\VBA\Microsoft Visual Basic\AddInToolbar)。