Export (0) Print
Expand All
Expand Minimize

PeekCompletedEventHandler Delegate

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

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

Public Delegate Sub PeekCompletedEventHandler ( _
	sender As Object, _
	e As PeekCompletedEventArgs _


Type: System.Object

The source of the event, the MessageQueue.

Type: System.Messaging.PeekCompletedEventArgs

A PeekCompletedEventArgs that contains the event data.

When you create a PeekCompletedEventHandler 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 example illustrates how to create an event delegate (PeekCompletedEventHandler) for the event handler (MyPeekCompleted) and associate it with the MessageQueue.PeekCompleted event. The event handler peeks a message and writes its label to the screen.

Imports System
Imports System.Messaging

' Provides a container class for the example. 
Public Class MyNewQueue

        ' Provides an entry point into the application. 
        ' This example performs asynchronous peek 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 PeekCompleted event. 
            AddHandler myQueue.PeekCompleted, AddressOf _

            ' Begin the asynchronous peek operation.

            ' Do other work on the current thread. 
        End Sub 'Main

        ' Provides an event handler for the PeekCompleted 
        ' event. 

        Private Shared Sub MyPeekCompleted(ByVal [source] As _
            [Object], ByVal asyncResult As PeekCompletedEventArgs)

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

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

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

            ' Restart the asynchronous peek operation.


        End Sub 'MyPeekCompleted

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
© 2015 Microsoft