使用扩展模型实验

一旦对扩展模型比较熟悉了，就可以使用包含在其中的各种属性、方法和事件来做实验。以下是这样做的一种方法。

1. 启动 Visual Basic 并在“新工程”对话框中选择“外接程序”作为属性类型。
   
   
2. 在Visual Basic “工程”窗口中，双击“连接”类模型浏览其代码。
   
   
3. 使用“编辑”菜单中的“查找”搜索 OnConnection。这样做就将光标定位在 IDTExtensibility_OnConnection 过程。
   
   
4. 在过程中有一条3行或4行的注释，建议下列语句是放置测试代码断点的好地方，将断点确定在建议行上。
   
   
5. 将光标定位在“立即”窗口，输入 AddToIni，然后按下回车执行过程。 (AddToIni 是 Addin.Bas 模块中的一个过程。)
   
   
6. 按下 F5 键，将 Addin 置于“运行”模式。
   
   
7. 启动 Visual Basic 的另一个实例，从初始对话框中选择缺省 (Standard Exe) ，然后从 Add-Ins 菜单中选择 “外接程序管理器”。
   
   
8. 在“可用外接程序”列表中选中“我的外接程序”，按下“外接程序管理器”对话框中的“确定”。则在 Visual Basic 的第一个实例中调用 IDTExtensibility_OnConnection，并在第4步中设置的断点处将执行挂起。
   
   
9. 使用“调试”菜单中的“单步执行”执行：

   Debug.Print VBInst.FullName
   
   注意当前Visual Basic实例的路径和名称印在“立即”窗口中。
   10．现在可以使用 VBInst 作为示例代码的对象。只需在执行“立即”窗口中的示例行之前，用 Visual Basic 对象VBInst代替虚对象 Application.VBE即可。

例如，可以将示例：

 Print Application.VBE.VBProjects(1).VBComponents.Count

修改为：

 Print VBInst.VBProjects(1).VBComponents.Count

在“立即”窗口中后面的行上按下回车时，则在下一行显示出 Visual Basic 部件的号码。

现在可以用“立即”窗口中的各种方法和属性做实验了。