在类中为Form动态增加的控件不响应事件，如何解决

在类中为Form动态增加的控件不响应事件，怎么解决？
在类中对Form作一些控件上的增减，并需要增加的控件都响应事件

VB code

''Class1.cls''定义Private frm As FormPrivate WithEvents lblAdvance As LabelPublic Sub InitData()    Set frm = Form1    Set lblAdvance = frm.Controls.Add("VB.Label", "lblAdvance")    lblAdvance.Move 4590, 1950, 780, 195    lblAdvance.BackStyle = 0 'Transport    lblAdvance.ForeColor = vbBlue    lblAdvance.FontUnderline = True    lblAdvance.MousePointer = vbCustom    lblAdvance.MouseIcon = LoadResPicture(101, vbResCursor) ''光标也没发生变化哦     lblAdvance.Caption = "高级模式"    lblAdvance.Visible = TrueEnd Sub''Label 单击事件Private Sub lblAdvance_Click()    MsgBox "Click"End Sub

这样动产生的事件，鼠标点击Label时没有反应，而且光标也没有变化，这个要怎么解决？

[解决办法]
你在哪里创建的 Class1 实例？
肯定过早地释放了该实例，应该和 Form1 的生命周期同步。

VB code

'Form1Option ExplicitPrivate c1 As Project1.Class1Private Sub Form_Load()    Set c1 = New Class1    c1.InitDataEnd SubPrivate Sub Form_Unload(Cancel As Integer)    Set c1 = NothingEnd Sub
[解决办法]
探讨


这段代码放到 Form 里面执行是完全正常的，放到类里面才会不行，这里的区别在哪里呢？

[解决办法]
但是如果你放在了全局的位置，就一定要像我那样，在UnLoad事件里将A设置为Nothing来清除对象
[解决办法]
你用了多个 Form1 实例？
加入下面两句调试，看输出
VB code
'Form1Private Sub Form_Load()    Debug.Print Now, "Form_Load()", Hex(Me.hWnd)    '''End Sub
[解决办法]
要控件响应事件，必须制定他的容器：
将
   Set lblAdvance = frm.Controls.Add("VB.Label", "lblAdvance")
改为
   Set lblAdvance = frm.Controls.Add("VB.Label", "lblAdvance",frm)

这样就响应时间了。
 

 

查看更多 下一篇