vb.net 2005 类事件的使用

Public Class serchClass
Public Event searchend(ByVal t As Integer, ByVal n As String)

public sub sub1()

RaiseEvent searchend(0, 1)

end sub

end class

在form 里

Dim WithEvents serchClass1 As New serchClass

Private Sub 开始批量查()
serchClass1.search()
End Sub

Private Sub 批量查事件(ByVal t As Integer, ByVal n As String) Handles serchClass1.searchend
MsgBox(t & n)
End Sub