向类中添加事件

现在，假定已经用 Stegosaur、Triceratops 和 Tyrannosaur 类创建了一个恐龙模拟。最后要完成的是，想让 Tyrannosaur 咆哮，并且当它这样做的时候，想让这个模拟中的其它每只恐龙都突然警觉起来。

如果 Tyrannosaur 类有一个 Roar 事件，就可以在所有其它恐龙类中处理该事件。本节主题讨论的就是，在类模块中事件的声明和处理。

注意   不要在家里试验这些，至少不要用许多恐龙来作试验。若是用事件将每只恐龙跟其它每一只连接起来，可能会使得恐龙非常之慢，以至于哺乳类对象将统治这个模拟。

有人说属性和方法属于入端接口，因为它们是从对象外面调用的。相对而言，事件被叫做出端接口，因为它们是在对象里边产生，在其它地方处理。

下面讨论的主题，是用实例来描述声明、产生和处理对象的过程。

• 事件的声明与引发   跟过程一样，事件（以及它们的参数）也必须首先声明，为了让声明的事件出现，对象必须引发它。
  
  
• 处理对象的事件   对象所引发的事件，可以被其它对象用变量来处理，这些变量是用 WithEvents 关键字来声明的。
  
  
• WithEvents 与窗体上控件事件的比较   与 WithEvents 变量相关联的事件过程，和与窗体上的控件相关联的事件过程，比较它们之间的相似之处和不同之处。
  
  
• 将事件添加到窗体   将自定义事件添加到窗体的简短步骤示例。
  
  
• 事件的声明、引发以及处理总结   对于在类中使用事件的处理过程的总结。

详细信息   随专业版和企业版一起提供的《部件工具指南》中的“创建 ActiveX 部件”，讨论了设计自己的软件部件时事件的使用问题。

关于处理恐龙问题的更好办法的讨论，请参阅本章后面的“多态”。