高手来!有个问题很奇怪,大家能帮我看看是为什么吗?

hpjacky 2003-01-16 06:48:43
新建一个工程,加入三个form,一个module,一个class
form1和form2上放一个Button.

分别加入代码如下:
'Form1

Option Explicit
Private Sub Command1_Click()
m_frmcommon.showform
End Sub

'form2
Option Explicit
Private mc As New Class1
Public Event sd()

Private Sub Command1_Click()
RaiseEvent sd
End Sub

'form3
Option Explicit

Dim con As New Collection

Public Sub showform()
Dim cs As New Class1
cs.LK
con.Add cs '就是这一句
End Sub

'module1
Option Explicit

Public m_frmcommon As New Form3

'class1

Option Explicit

Private WithEvents m_frm As Form2
Public Sub LK()

Set m_frm = New Form2
Load m_frm
m_frm.Hide
m_frm.Command1.Caption = "sdf"
m_frm.Show
End Sub

Private Sub m_frm_sd()
MsgBox "sdf"
End Sub

Public Property Set Frm(New_d As Form)
Set m_frm = New_d
End Property


在代码中有一句(con.Add cs )如果没有的话,class1类就不会响应form2中所定义的事件。这是为什么?
...全文
5 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
minajo21 2003-01-17
同意楼上
回复
Un1 2003-01-16
不加的话在 Public Sub showform() 结束时 cs 就被释放掉了。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告