Expand Minimize

ReceiveCompletedEventHandler Delegate

Represents the method that will handle the ReceiveCompleted event of a MessageQueue.

Namespace:  System.Messaging
Assembly:  System.Messaging (in System.Messaging.dll)

Public Delegate Sub ReceiveCompletedEventHandler ( _
	sender As Object, _
	e As ReceiveCompletedEventArgs _


Type: System.Object

The source of the event, the MessageQueue.

Type: System.Messaging.ReceiveCompletedEventArgs

A ReceiveCompletedEventArgs that contains the event data.

When you create a ReceiveCompletedEventHandler delegate, you identify the method that will handle the event. To associate the event with your event handler, add an instance of the delegate to the event. The event handler is called whenever the event occurs, unless you remove the delegate. For more information about event-handler delegates, see Events and Delegates.

The following code example illustrates how to create an event delegate (ReceiveCompletedEventHandler) for the event handler (MyReceiveCompleted) and associate it with the MessageQueue.ReceiveCompleted event. The event handler receives a message from a queue, and writes its label to the screen.

Imports System
Imports System.Messaging

Public Class MyNewQueue

        ' Provides an entry point into the application. 
        ' This example performs asynchronous receive operation 
        ' processing. 

        Public Shared Sub Main()

            ' Create an instance of MessageQueue. Set its formatter. 
            Dim myQueue As New MessageQueue(".\myQueue")
            myQueue.Formatter = New XmlMessageFormatter(New Type() _

            ' Add an event handler for the ReceiveCompleted event. 
            AddHandler myQueue.ReceiveCompleted, AddressOf _

            ' Begin the asynchronous receive operation.

            ' Do other work on the current thread. 


        End Sub 'Main

        ' Provides an event handler for the ReceiveCompleted 
        ' event. 

        Private Shared Sub MyReceiveCompleted(ByVal [source] As _
            [Object], ByVal asyncResult As ReceiveCompletedEventArgs)

            ' Connect to the queue. 
            Dim mq As MessageQueue = CType([source], MessageQueue)

            ' End the asynchronous Receive operation. 
            Dim m As Message = mq.EndReceive(asyncResult.AsyncResult)

            ' Display message information on the screen.
            Console.WriteLine(("Message: " + CStr(m.Body)))

            ' Restart the asynchronous Receive operation.


        End Sub 'MyReceiveCompleted

End Class 'MyNewQueue

.NET Framework

Supported in: 4.6, 4.5, 4, 3.5, 3.0, 2.0, 1.1

.NET Framework Client Profile

Supported in: 4, 3.5 SP1
Was this page helpful?
(1500 characters remaining)
Thank you for your feedback
© 2015 Microsoft