PeekCompletedEventHandler Delegate
Assembly: System.Messaging (in system.messaging.dll)
'Declaration Public Delegate Sub PeekCompletedEventHandler ( _ sender As Object, _ e As PeekCompletedEventArgs _ ) 'Usage Dim instance As New PeekCompletedEventHandler(AddressOf HandlerMethod)
/** @delegate */ public delegate void PeekCompletedEventHandler ( Object sender, PeekCompletedEventArgs e )
JScript supports the use of delegates, but not the declaration of new ones.
Parameters
- sender
The source of the event, the MessageQueue.
- e
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() _ {GetType([String])}) ' Add an event handler for the PeekCompleted event. AddHandler myQueue.PeekCompleted, AddressOf _ MyPeekCompleted ' Begin the asynchronous peek operation. myQueue.BeginPeek() ' Do other work on the current thread. Return 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. mq.BeginPeek() Return End Sub 'MyPeekCompleted End Class 'MyNewQueue
package MyProject;
import System.*;
import System.Messaging.*;
/// <summary>
/// Provides a container class for the example.
/// </summary>
public class MyNewQueue
{
//**************************************************
// Provides an entry point into the application.
//
// This example performs asynchronous peek operation
// processing.
//**************************************************
public static void main(String[] args)
{
// Create an instance of MessageQueue. Set its formatter.
MessageQueue myQueue = new MessageQueue(".\\myQueue");
myQueue.set_Formatter(new XmlMessageFormatter(new Type[]
{ String.class.ToType() }));
// Add an event handler for the PeekCompleted event.
myQueue.add_PeekCompleted(new PeekCompletedEventHandler(MyPeekCompleted));
// Begin the asynchronous peek operation.
myQueue.BeginPeek();
// Do other work on the current thread.
return;
} //main
//**************************************************
// Provides an event handler for the PeekCompleted
// event.
//**************************************************
private static void MyPeekCompleted(Object source,
PeekCompletedEventArgs asyncResult)
{
// Connect to the queue.
MessageQueue mq = (MessageQueue)source;
// End the asynchronous peek operation.
Message m = mq.EndPeek(asyncResult.get_AsyncResult());
// Display message information on the screen.
Console.WriteLine("Message: " + (String)(m.get_Body()));
// Restart the asynchronous peek operation.
mq.BeginPeek();
return;
} //MyPeekCompleted
} //MyNewQueue
Windows 98, Windows 2000 SP4, Windows CE, Windows Millennium Edition, Windows Mobile for Pocket PC, Windows Mobile for Smartphone, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.