动态添加的窗体控件怎么写入代码

财知道

大侠们，在已有的空窗体动态加入若干控件后，怎么样给各个控件写了事件代码啊？比如点击“关闭窗体”，则给控件CommandButton3写了代码“Private Sub CommandButton3_Click()      Unload Me   End Sub”并能有效执行；点击“模式窗体”，则可以转变窗体显示模式，点checkbox2则可以调出系统填充颜色对话框等。我现在遇到的问题是动态创建了这些代码，不知道怎么写事件代码才能让控件有效，请求帮助！

财知道

手动将代码写入窗体相关事件无效,Private Sub CommandButton3_Click()      Unload Me   End Sub

大灰狼1976

你附件里的窗体太复杂，做个最简单的示例给你吧。

ggmmlol

我以前有个帖子可供参考：动态添加控件入门https://club.excelhome.net/forum.php?mod=viewthread&tid=1573924

财知道

大灰狼1976 发表于 2024-8-15 21:47
你附件里的窗体太复杂，做个最简单的示例给你吧。

追问：如果是多个commandbutton控件呢，如何做到分别控制不同的事件啊？

大灰狼1976

如果用同一个事件，可以使用类，如果都是不同的事件，就多设几个实例呗

财知道

大灰狼1976 发表于 2024-8-16 14:35
如果用同一个事件，可以使用类，如果都是不同的事件，就多设几个实例呗

我就是对这个类头痛，转不过弯，麻烦你做个实例给我行吗？

大灰狼1976

财知道 发表于 2024-8-16 15:16
我就是对这个类头痛，转不过弯，麻烦你做个实例给我行吗？

今天外出，没时间做，你可以看下其他帖子，动态控件的

财知道

大灰狼1976 发表于 2024-8-16 15:19
今天外出，没时间做，你可以看下其他帖子，动态控件的

等你回来。我看了不少，学不会。我想实现的是类似这样功能：
Private Sub CommandButton1_Click()
      事件1（如：Unload Me）
End Sub
Private Sub CommandButton2_Click()
      事件2（如：Hide Me)   
End Sub
Private Sub CommandButton3_Click()
      事件3（如：保存文件)   
End Sub

大灰狼1976

财知道 发表于 2024-8-16 16:11
等你回来。我看了不少，学不会。我想实现的是类似这样功能：
Private Sub CommandButton1_Click()
...

好的吧，今天不回家，没带电脑，明天看看