16,554
社区成员
发帖
与我相关
我的任务
分享
Module Module1
Sub Main()
Dim a As New A
AddHandler a.TestE, Async Sub(s As Object, e As EventArgs, haha As String)
Await Task.Yield
Console.WriteLine("再来,事件执行____{0}", haha)
End Sub
a.go("触发事件啦")
Console.WriteLine("主程序执行完毕。按任意键结束.......")
Console.ReadKey()
End Sub
End Module
Class A
Public Event TestE(sender As Object, e As EventArgs, haha As String)
Sub go(msg As String)
RaiseEvent TestE(Me, Nothing, msg)
End Sub
End Class
Module Module1
Sub Main()
Dim a As New A
Dim b As New B
AddHandler a.TestE, AddressOf b.ee
a.go("触发事件啦")
Console.WriteLine("主程序执行完毕。按任意键结束.......")
Console.ReadKey()
End Sub
End Module
Class A
Public Event TestE(sender As Object, e As EventArgs, haha As String)
Sub go(msg As String)
RaiseEvent TestE(Me, Nothing, msg)
End Sub
End Class
Class B
Public Async Sub ee(sender As Object, e As EventArgs, haha As String)
Await Task.Yield
Console.WriteLine("事件执行____{0}", haha)
End Sub
End Class