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

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

如果有帮助，请告诉我。

Answer 2

这样的事情应该有效。您需要使用AddHandler添加在您致电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

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

2 个答案: