向窗体添加事件.docxVIP

向窗体添加事件 下面的循序渐进的过程显示了如何给窗体创建自定义事件。要试用此练习，可打开一个新的  “标准  EXE”工 程，并按如下面步骤去做： 要将事件添加到  Form1  中，请按照以下步骤执行： 1. 在“工程 ”菜单上，选择 “添加类模块 ”，将类模块添加到工程中。 将下面的代码放置到  Class1  的“声 明”部分： Public Property Get Form1() As Form1 Set Form1 = mForm1 End Property 5. Public Property Set Form1(ByVal NewForm1 As Form1) Set mForm1 = NewForm1 End Property 如果使用过程视图，则不能同时查看属性过程。单击代码窗口左下角的 “全模块视图 ”按钮，转换 到全模块视图。单击过程视图旁边的 “过程视图 ”按钮，可以返回过程视图。（将鼠标在各个按钮上移动一下，看看哪个是哪个。） 将下面的代码添加到 Form1 的“声明 ”部分： Event Gong Private mc1 As Class1 因为已经创建了 Class1 ，所以创建 Class1 类型的变量是可能的。这个过程要在 Form1 和 Class1 之间切换几次，因为在模块中的操作步骤，需要首先给另一个模块添加代码。 返回