Imports Infragistics.CalcEngine
Imports Infragistics.Win.UltraWinCalcManager
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Suspend calculation while we are adding new items into the calc network
Me.UltraCalcManager1.SuspendCalc()
Dim calcSettings As CalcSettings
'Set CalcSettings properties on TextBox1
calcSettings = Me.UltraCalcManager1.GetCalcSettings(Me.textBox1)
calcSettings.PropertyName = "Text"
calcSettings.Alias = "Height"
calcSettings.ErrorValue = 1
'Set CalcSettings properties on TextBox2
calcSettings = Me.UltraCalcManager1.GetCalcSettings(Me.textBox2)
calcSettings.PropertyName = "Text"
calcSettings.Alias = "Width"
calcSettings.ErrorValue = 1
'Create a NamedReference to calulate the area.
Dim namedReference As NamedReference
namedReference = Me.UltraCalcManager1.NamedReferences.Add("Area", "[//Height] * [//Width]")
namedReference.ErrorValue = "Error"
'Everything is added, so resume
Me.UltraCalcManager1.ResumeCalc()
End Sub
Private Sub UltraCalcManager1_CalculationsCompleted(ByVal sender As Object, ByVal e As System.EventArgs) Handles UltraCalcManager1.CalculationsCompleted
If (Me.UltraCalcManager1.NamedReferences.Exists("Area")) Then
Me.textBox3.Text = Me.UltraCalcManager1.NamedReferences("Area").FormulaResult.Value.ToString()
End If
End Sub