Question

How to use event that raise sub procedures in VB.NET

Answer 1

Module Module1

    Delegate Sub EventHandler()
    Event runAll As EventHandler

    Sub Main()

        AddHandler runAll, New EventHandler(AddressOf print1)
        AddHandler runAll, New EventHandler(AddressOf print2)
        AddHandler runAll, New EventHandler(AddressOf print2)
        AddHandler runAll, New EventHandler(AddressOf print3)

        RaiseEvent runAll()

    End Sub

    Sub print1()
        Console.WriteLine("Sub print1()")
    End Sub

    Sub print2()
        Console.WriteLine("Sub print2()")
    End Sub

    Sub print3()
        Console.WriteLine("Sub print3()")
    End Sub

End Module


' run:
' 
' Sub print1()
' Sub print2()
' Sub print2()
' Sub print3()

 

70+ SQL courses for beginners and professionals