为控件添加 AboutBox

在 ActiveX 控件的“属性”窗口的顶部，一般都有一个带有椭圆形按钮的 About 属性。单击该按钮会弹出一个 About 框，用来标识控件及其开发者。

使用 Visual Basic 制作这些 About 框非常容易。可以为控件部件（.ocx 文件）中的每个控件设置单独的 About 框，或者使部件中的所有控件共享同一个 About 框。

要在控件部件中添加 About 框，请按照以下步骤执行：

1. 在 ActiveX 控件工程中添加一个窗体作为 About 框，并赋予它相应的文本和控件。将该窗体命名为 dlgAbout。
   
   
2. 在工程的任意控件的代码窗口中添加如下子过程：

   Public Sub ShowAboutBox()
   dlgAbout.Show vbModal
   Unload dlgAbout
   Set dlgAbout = Nothing
   End Sub
   

   重点 卸载 About 框并把它置成 Nothing，从而释放它所占用的内存。这是对控件使用者应有的礼貌。

3. 在“工具”菜单上，单击“过程属性”来打开“过程属性”对话框。如果“名称”框中还没有选定 ShowAboutBox 过程，单击下拉列表并选定该过程。
   
   
4. 单击“高级”来扩展“过程属性”对话框。
   
   
5. 在“过程标识符”框中，选定“AboutBox”，为 ShowAboutBox 过程提供正确的标识符。
   
   
6. 对工程中的每个控件重复步骤 2 到 5。

注意 About 框窗体的名称，及显示它的方法的名称可以任意选取。在上面过程中我们使用 dlgAbout 和 ShowAboutBox，并不是非此不可的。

如果希望每个控件有各自独立的 About 框，那么只需简单生成相应的窗体，并在每个控件的 ShowAboutBox 方法中显示各自的窗体就可以了。

当然，每往工程中添加一个窗体都会增加其大小。用单个 dlgAbout 窗体也可以达到同样的效果，但是需要为它设置一个属性，例如 ControlID。该属性负责标识需要为哪个控件显示 dlgAbout。在每个控件的 ShowAboutBox 方法中，需要在显示 dlgAbout 之前先设置 ControlID 属性。而在 dlgAbout 的 Load 事件中需要编写程序，用来改变 About 框上的文本和位图。

详细信息 在窗体中添加属性和方法在《程序员指南》的“用对象编程”中讨论。