vb.net - 编写一个程序，使用事件仅打印 6 到 16 之间的偶数

Question

如您所见，我是编程新手。我需要添加一个事件。我们正在了解事件，真的没有任何帮助，我已经尝试使用互联网几个小时。我只是想学习。提前谢谢。

Module Modulel

Public Event PrintThis(ByVal val as Integer)

SubMain()

Dim number as Integer = 6
While number <= 16
// PRINT Goes here .. ??? Not sure if right or code
number = number + 2
End While

Answer 1

像这样的东西应该工作。当您调用RaiseEvent时，您需要使用AddHandler添加将响应您的事件的方法。

Module Module1
    Public Event PrintThis(ByVal val As Integer)
    Sub Main()

        AddHandler PrintThis, AddressOf PrintThisMethod
        Dim number As Integer = 6
        While number <= 16
            RaiseEvent PrintThis(number)
            number = number + 2
        End While
        Console.ReadLine()
    End Sub

    Private Sub PrintThisMethod(val As Integer)
        Console.WriteLine(val)
    End Sub

End Module

Answer 2

下面的链接将使您清楚地了解事件。 http://www.simple-talk.com/dotnet/.net-framework/custom-events-in-vb.net-2005/。

如果有帮助，请告诉我。