' Add or remove an event handler through reflection,' and return True if successful'' Examples:' ' add an event handler for Button1's Click event' AddRemoveEventHandler(Button1, "Click", New EventHandler(AddressOf ' OnButton1Click))' ' remove an event handler for Button1's Click event' AddRemoveEventHandler(Button1, "Click", New EventHandler(AddressOf ' OnButton1Click), False)Function AddRemoveEventHandler(ByVal obj As Object, ByVal eventName As String, _ ByVal eventHandler As [Delegate]) As Boolean Return AddRemoveEventHandler(obj, eventName, eventHandler, True)End FunctionFunction AddRemoveEventHandler(ByVal obj As Object, ByVal eventName As String, _ ByVal eventHandler As [Delegate], ByVal addEventHandler As Boolean) As _ Boolean Dim type As Type = obj.GetType() ' get the EventInfo object, exit if not found Dim evInfo As System.Reflection.EventInfo = type.GetEvent(eventName) If evInfo Is Nothing Then Return False Try If addEventHandler Then evInfo.AddEventHandler(obj, eventHandler) Else evInfo.RemoveEventHandler(obj, eventHandler) End If Return True Catch Return False End TryEnd Function
Top Careers at Microsoft
February 3, 2023
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job
