Repository.Control.AddXfmeaControl

Member of: SynthesisAPI.Repository

Adds a new Xfmea control to the current project. Returns a Boolean value; when true, indicates a successful save.

Syntax

.Control.AddXfmeaControl(control)

Parameters

control

Required. The cXfmeaControl object that represents the control to be added.

Example

This example creates a new Xfmea control resource, and then saves it in the first available project in a Synthesis repository.

VBA

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
 
 'Create a new control. The following example creates a control with the description "MyNewControl." 
  Dim NewControl As New cXfmeaControl
  NewControl.ControlDescription = "MyNewControl"

 'Add the new control to project #1. 
  MyRepository.Project.SetCurrentProject(1)   
  Call MyRepository.Control.AddXfmeaControl(NewControl)

VB.NET

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
 
 'Create a new control. The following example creates a control with the description "MyNewControl." 
  Dim NewControl As New cXfmeaControl ("MyNewControl")

 'Add the new control to project #1. 
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Control.AddXfmeaControl(NewControl)