帮我看看,Class类事件咱怎么也无法触发,搞不懂到底哪出问题了.

[sky9705]

我在一个写Class时,需要Class内部触发一个事件外面接收,可是我试了N次,就是无法触发外部函数
大家帮我看看,一个Form ,一个Class
Class代码很简单,一个循环,代码如下

'-----------------------------------------------------------
'Name: clsTest
'声明事件

Public Event DoMything( nNum As Integer)

Public Sub TestEvent(nNum as integer)
Dim i As Integer
For i = 1 To nNum
If i > 10 Then
RaiseEvent DoMything(i)
End If
debug.Print i
Next
End Sub

'-------------------------------------------------------------
'Name FrmTest
'Event 测试窗体

'定义事件类

Private WithEvents oEle As clsTest

Private Sub Form_Load()
Set oEle = New clsTest

End Sub
Private Sub Form_Unload(Cancel As Integer)
Set oEle = Nothing
End Sub

Private Sub DoMything(nNum As Integer)

MsgBox "超过了啦:" & nNum

End Sub

Private Sub Command1_Click()
oEle.TestEvent 11 '调用类函数,将触发类事件DoMything,可是就是没有触发
End Sub

'---------------------------------------------

各位大大,救命哪,代码就几行,我描了不下十遍

[sky9705]

我后面也找出来了....
学艺不精啊
..........

[NewPeople]

Private Sub oEle_DoMything(nNum As Integer)

MsgBox "超过了啦:" & nNum

End Sub

应该可以了