Public ReadOnly Property CurrentDesigner As AnnDesigner

Dim instance As AnnAutomation
Dim value As AnnDesigner
 
value = instance.CurrentDesigner

public AnnDesigner CurrentDesigner {get;}

public:
property AnnDesigner^ CurrentDesigner {
   AnnDesigner^ get();
}

Private Sub AnnAutomation_CurrentDesigner(ByVal automation As AnnAutomation)
   ' subscribe to the DesignerChanged event of the automation
   AddHandler automation.CurrentDesignerChanged, AddressOf automation_CurrentDesignerChanged
End Sub
Private Sub automation_CurrentDesignerChanged(ByVal sender As Object, ByVal e As EventArgs)
   ' check if the current designer is a run designer
   Dim automation As AnnAutomation = DirectCast(sender, AnnAutomation)
   If Not automation.CurrentDesigner Is Nothing AndAlso TypeOf automation.CurrentDesigner Is AnnRunDesigner Then
      Dim runDesigner As AnnRunDesigner = DirectCast(automation.CurrentDesigner, AnnRunDesigner)
      ' subscribe to this run designer Run event
      AddHandler runDesigner.Run, AddressOf runDesigner_Run
   End If
End Sub

Private Sub runDesigner_Run(ByVal sender As Object, ByVal e As AnnRunDesignerEventArgs)
   If e.OperationStatus = AnnDesignerOperationStatus.End Then
      Dim message As String = String.Format("Run object of type {0}, hyperlink = {1}", e.Object.GetType().Name, e.Object.Hyperlink)
      MessageBox.Show(message)
   End If
End Sub

private void AnnAutomation_CurrentDesigner(AnnAutomation automation)
{
   // subscribe to the DesignerChanged event of the automation
   automation.CurrentDesignerChanged += new EventHandler(automation_CurrentDesignerChanged);
}
private void automation_CurrentDesignerChanged(object sender, EventArgs e)
{
   // check if the current designer is a run designer
   AnnAutomation automation = sender as AnnAutomation;
   if(automation.CurrentDesigner != null && automation.CurrentDesigner is AnnRunDesigner)
   {
      AnnRunDesigner runDesigner = automation.CurrentDesigner as AnnRunDesigner;
      // subscribe to this run designer Run event
      runDesigner.Run += new EventHandler<AnnRunDesignerEventArgs>(runDesigner_Run);
   }
}

private void runDesigner_Run(object sender, AnnRunDesignerEventArgs e)
{
   if(e.OperationStatus == AnnDesignerOperationStatus.End)
   {
      string message = string.Format("Run object of type {0}, hyperlink = {1}", e.Object.GetType().Name, e.Object.Hyperlink);
      MessageBox.Show(message);
   }
}

private void AnnAutomation_CurrentDesigner(AnnAutomation automation)
{
   // subscribe to the DesignerChanged event of the automation
   automation.CurrentDesignerChanged += new EventHandler(automation_CurrentDesignerChanged);
}
private void automation_CurrentDesignerChanged(object sender, EventArgs e)
{
   // check if the current designer is a run designer
   AnnAutomation automation = sender as AnnAutomation;
   if(automation.CurrentDesigner != null && automation.CurrentDesigner is AnnRunDesigner)
   {
      AnnRunDesigner runDesigner = automation.CurrentDesigner as AnnRunDesigner;
      // subscribe to this run designer Run event
      runDesigner.Run += new EventHandler<AnnRunDesignerEventArgs>(runDesigner_Run);
   }
}

private void runDesigner_Run(object sender, AnnRunDesignerEventArgs e)
{
   if(e.OperationStatus == AnnDesignerOperationStatus.End)
   {
      string message = string.Format("Run object of type {0}, hyperlink = {1}", e.Object.GetType().Name, e.Object.Hyperlink);
      MessageBox.Show(message);
   }
}

Private Sub AnnAutomation_CurrentDesigner(ByVal automation As AnnAutomation)
   ' subscribe to the DesignerChanged event of the automation
   AddHandler automation.CurrentDesignerChanged, AddressOf automation_CurrentDesignerChanged
End Sub
Private Sub automation_CurrentDesignerChanged(ByVal sender As Object, ByVal e As EventArgs)
   ' check if the current designer is a run designer
   Dim automation As AnnAutomation = TryCast(sender, AnnAutomation)
   If Not automation.CurrentDesigner Is Nothing AndAlso TypeOf automation.CurrentDesigner Is AnnRunDesigner Then
      Dim runDesigner As AnnRunDesigner = TryCast(automation.CurrentDesigner, AnnRunDesigner)
      ' subscribe to this run designer Run event
      AddHandler runDesigner.Run, AddressOf runDesigner_Run
   End If
End Sub

Private Sub runDesigner_Run(ByVal sender As Object, ByVal e As AnnRunDesignerEventArgs)
   If e.OperationStatus = AnnDesignerOperationStatus.End Then
      Dim message As String = String.Format("Run object of type {0}, hyperlink = {1}", e.Object.GetType().Name, e.Object.Hyperlink)
      MessageBox.Show(message)
   End If
End Sub