此示例完成一些更有趣的事情。只要脚本调用 Picture 对象的 MakeSegment 函数，Picture 对象就会引发其 CreatedSegment 事件，向事件处理程序传递对新的 Segment 的引用。该脚本的 MyPicture_CreatedSegment 子例程捕获事件并随机地设置其颜色。
图 1 显示结果（我对事件处理程序进行了注释，使所有分段为黑色，这样，此处的显示效果可能会好一些）。
小结
虽然在 VB.NET 中编写脚本不如在 VB6 中简单，但是它确实为您提供了一些新功能。它允许您编写 VB.NET 代码，而不是使用发展受限的 VBScript 语言，允许脚本代码捕获事件，并提供更加 完善的错误信息（如果脚本还不算完美的话）。
您必须确定这些好处是否能够证明，在独立的 DLL 中定义可编写脚本的类、构建 IVsaSite 类以及使用其RootMoniker、RootNamespace、引用和其他特色来初始化 VSA 引擎所带来的麻烦是值得的。
如果您认为不值得，则您仍然可以在 VB.NET 中使用 Microsoft 脚本控件。由于某种原因，使用 VBScript 来控制 VB.NET 应用程序似乎还不太令人满意。另一方面，您的用户可能已经了解 VBScript。而且如果他们属于典型的 VBA/VBScript Office 宏编程类型，则他们不会因为您让他们学习 VB.NET 而表示感谢。
Download 410ROD.ZIP
有关 Hardcore Visual Basic 和 Pinnacle Publishing 的详细信息，请访问其网站 http://www.pinpub.com/
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
