[已解决]为什么窗体动态添加的控件不能相应类模块事件，求帮助

ocarinabs

本来想做一个自动生成commandbutton的，点击显示名称，不知为何不能用，求帮助

最佳答案

月排行榜 / 总排行榜

白开水的微笑

2015-4-27 12:51

这是一个新人常犯的错误。
要确保这个类模块定义的按钮在窗体存在期间生效，应该将其声明在窗体代码中，而不是initialize事件中。

另外，有3个按钮，就必须声明3个变量，一般的使用数组。

窗体代码如下

1. Dim ctlCB() As New CButtonEvent
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Dim nCtr As MSForms.CommandButton
   
5.     ReDim ctlCB(1 To 3)
   
6.     Dim i As Integer
   
7.     For i = 1 To 3
   
8.         Set nCtr = Me.Controls.Add("Forms.CommandButton.1", "cmdTest" & i)
   
9.         With nCtr
   
10.             .Caption = "CommandButton_" & i
    
11.             .Move 10, 30 + (i - 1) * 50, 80, 40
    
12.         End With
    
13.         Set ctlCB(i) = New CButtonEvent
    
14.         ctlCB(i).Init nCtr
    
15.     Next i
    
16.     UserForm1.Height = 4 * 55
    
17. End Sub

复制代码

跳转到最佳答案楼层

zpy2

用Dim withEvents试试

白开水的微笑

这是一个新人常犯的错误。
要确保这个类模块定义的按钮在窗体存在期间生效，应该将其声明在窗体代码中，而不是initialize事件中。

另外，有3个按钮，就必须声明3个变量，一般的使用数组。

窗体代码如下

1. Dim ctlCB() As New CButtonEvent
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Dim nCtr As MSForms.CommandButton
   
5.     ReDim ctlCB(1 To 3)
   
6.     Dim i As Integer
   
7.     For i = 1 To 3
   
8.         Set nCtr = Me.Controls.Add("Forms.CommandButton.1", "cmdTest" & i)
   
9.         With nCtr
   
10.             .Caption = "CommandButton_" & i
    
11.             .Move 10, 30 + (i - 1) * 50, 80, 40
    
12.         End With
    
13.         Set ctlCB(i) = New CButtonEvent
    
14.         ctlCB(i).Init nCtr
    
15.     Next i
    
16.     UserForm1.Height = 4 * 55
    
17. End Sub

复制代码

ocarinabs

白开水的微笑 发表于 2015-4-27 12:51
这是一个新人常犯的错误。
要确保这个类模块定义的按钮在窗体存在期间生效，应该将其声明在窗体代码中，而 ...

谢谢老师指导。一下就理解了，那也可以使用collection先申明对吧

白开水的微笑

ocarinabs 发表于 2015-4-27 13:01
谢谢老师指导。一下就理解了，那也可以使用collection先申明对吧

Collection也可以，反正只要保证这个对象变量在整个窗体存续期间都存在即可。
数组么访问起来方便些。

ocarinabs

白开水的微笑 发表于 2015-4-27 13:14
Collection也可以，反正只要保证这个对象变量在整个窗体存续期间都存在即可。
数组么访问起来方便些。

太感谢了，华丽解决了我的问题