dotConnect for Mailchimp Documentation
Devart.Common Namespace / MonitorEventHandler Delegate
The source of the event.
The MonitorEventArgs object that contains the event data.
ExampleExample

MonitorEventHandler Delegate
Represents the method that will handle the TraceEvent event of the DbMonitor class.
Syntax
'Declaration
 
Public Delegate Sub MonitorEventHandler( _
   ByVal sender As Object, _
   ByVal e As MonitorEventArgs _
) 
 

Parameters

sender
The source of the event.
e
The MonitorEventArgs object that contains the event data.
Remarks
When you create a MonitorEventArgs 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" in the .NET Framework SDK documentation.
Example
The following sample shows how to enable and disable monitoring of database activity in your application.
static void OnEvent(object sender, MonitorEventArgs e)
{
  if (e.TracePoint==MonitorTracePoint.BeforeEvent)
  {
    Console.WriteLine("Description: " + e.Description);
    Console.WriteLine(" Extra info: " + e.ExtraInfo);
  }
}


[MTAThread]
static void Main(string[] args)
{
  MailChimpConnection mailchimpConn = new MailChimpConnection(
      "api key=8b10fe893c9732d12befe0b7d846ffcb-us10;");
  MailChimpMonitor mailchimpMonitor = new MailChimpMonitor();
  mailchimpMonitor.TraceEvent += new MonitorEventHandler(OnEvent);
  mailchimpMonitor.IsActive = true;
  MailChimpCommand mailchimpCommand = new MailChimpCommand("select count(*) from Folders",mailchimpConn);
  mailchimpConn.Open();
  Console.WriteLine(mailchimpCommand.ExecuteScalar());
  mailchimpConn.Close();
  mailchimpMonitor.TraceEvent -= new MonitorEventHandler(OnEvent);
  Console.ReadLine();
}
Sub OnEvent(ByVal sender As Object, ByVal e As MonitorEventArgs)
  If e.TracePoint = MonitorTracePoint.BeforeEvent Then
    Console.WriteLine("Description: " & e.Description)
    Console.WriteLine(" Extra info: " & e.ExtraInfo)
  End If
End Sub

<MTAThread()> _
Sub Main()
  Dim mailchimpConn As MailChimpConnection = New MailChimpConnection( _
      "api key=8b10fe893c9732d12befe0b7d846ffcb-us10;")
  Dim mailchimpMonitor As MailChimpMonitor = New MailChimpMonitor
  AddHandler mailchimpMonitor.TraceEvent, AddressOf OnEvent
  mailchimpMonitor.IsActive = True
  Dim mailchimpCommand As MailChimpCommand = New MailChimpCommand("select count(*) from Folders", mailchimpConn)
  mailchimpConn.Open()
  Console.WriteLine(mailchimpCommand.ExecuteScalar())
  mailchimpConn.Close()
  RemoveHandler mailchimpMonitor.TraceEvent, AddressOf OnEvent
  Console.ReadLine()
End Sub
Requirements

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also