CurrentDesigner Property

Visual Basic
C#
WinRT C#
WinRT JavaScript
C++

public AnnDesigner CurrentDesigner {get;}

'Declaration
 
Public ReadOnly Property CurrentDesigner As AnnDesigner

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

public AnnDesigner CurrentDesigner {get;}

 get_CurrentDesigner();

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

Property Value

The current working AnnDesigner derived object

At any given time, the AnnAutomation can have a working AnnDesigner derived object as follows:

Designer Base Class	Notes
null (Nothing in Visual Basic)	(Design and Run user mode) no designer is currently active.
AnnDrawDesigner	(Design user mode) The AnnAutomation is currently drawing or about to draw a new object
AnnEditDesigner	(Design user mode) One or more objects are currently being edited or are about to be edited
AnnRunDesigner	(Run user mode) An object is currently being run or about to be run

This property allows you to hook into the current designer and change or monitor its status while it is running. For example, you can determine if CurrentDesigner is an AnnDrawDesigner derived class and subscribe to the Draw event and so forth.

Visual Basic
C#
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

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

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

Reference

AnnAutomation Class
AnnAutomation Members