请看,这是类模块class6的代码:
Private WithEvents mform6 As form6
Public Property Get form6() As form6
Set form6 = mform6
End Property
Public Property Set form6(ByVal newform6 As form6)
Set mform6 = newform6
End Property
Private Sub mform6_gong()
MsgBox "this is a event", vbOKOnly, "message"
End Sub
这是窗口form6的代码:
Public Event gong()
Private mc1 As Class6
Private Sub formload()
Set mc1 = New Class6
Set mc1.form6 = Me
End Sub
Private Sub command1_click()
Set form6 = Nothing
End
End Sub
Private Sub Command2_Click()
RaiseEvent gong
End Sub
请问,为什么这个程序运行后不会出现msgbox所显示的字符呢
是按动command2以后,不出现信息
