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

Question

I am new to programming as you can see. I need to add an event. We are learning about events and there is really no help and I have tried using the internet for hours. I just want to learn. Thanks ahead of time.

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

Below link will give you clear understanding of Events. http://www.simple-talk.com/dotnet/.net-framework/custom-events-in-vb.net-2005/ .

Please let me know if it helps.

Answer 2

Something like this should work. You need to use AddHandler to add the Method that will respond to your event when you call RaiseEvent .

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