AFPlugIn.CreateFormInstance Method

Public Function CreateFormInstance ( 
	type As Type,
	plugIn As Object,
	readOnly As Boolean
) As Form

Dim instance As AFPlugIn
Dim type As Type
Dim plugIn As Object
Dim readOnly As Boolean
Dim returnValue As Form

returnValue = instance.CreateFormInstance(type, 
	plugIn, readOnly)

public:
Form^ CreateFormInstance(
	Type^ type, 
	Object^ plugIn, 
	bool readOnly
)

member CreateFormInstance : 
        type : Type * 
        plugIn : Object * 
        readOnly : bool -> Form 

' This example demonstrates how to create a model analysis and display the
' configuration dialog for the Analysis Rule And Time Rule plugins.
' Note: This example assumes that there is a database called "Chocolate Milk Tutorial"
' containing a Model named "ChocolateMilkModel", and the default ConfigString
' for an "Imbalance" analysis rule is set

' Get the Database
Dim myPISystems As New PISystems
Dim myPISystem As PISystem = myPISystems.DefaultPISystem
Dim myDB As AFDatabase = myPISystem.Databases("Chocolate Milk Tutorial")

' Set the Model
Dim myModel As AFModel = CType(myDB.Elements("ChocolateMilkModel"), AFModel)

' Add a ModelAnalysis to the model
Dim myAnalysis As New AFAnalysis(myDB, "MyModelAnalysis")
myAnalysis.Description = "This is a model analysis example"
myAnalysis.Target = myModel

' Set the Analysis Rule and Time Rule
myAnalysis.AnalysisRulePlugIn = myPISystem.AnalysisRulePlugIns("Imbalance")
myAnalysis.TimeRulePlugIn = myPISystem.TimeRulePlugIns("Periodic")

' Display the Time Rule Configuration Dialog
Dim plugin As AFPlugIn = myAnalysis.TimeRulePlugIn
Dim timeRule As AFTimeRule = myAnalysis.TimeRule
If Not plugin Is Nothing Then
    Using configDlg As Form = plugin.CreateFormInstance(timeRule.EditorType, timeRule, False)
        If Not configDlg Is Nothing Then
            configDlg.ShowDialog()
        End If
    End Using
End If

' Display the Analysis Rule Configuration Dialog
plugin = myAnalysis.TimeRulePlugIn
Dim analysisRule As AFAnalysisRule = myAnalysis.AnalysisRule
If Not plugin Is Nothing Then
    Using configDlg As Form = plugin.CreateFormInstance(analysisRule.EditorType, analysisRule, False)
        If Not configDlg Is Nothing Then
            configDlg.ShowDialog()
        End If
    End Using
End If

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.