Imports Infragistics.WebUI.UltraWebCalcManager

Partial Public Class WebForm2
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Me.WebNumericEditor1.Value = 1
            Me.WebNumericEditor2.Value = 2
            Me.WebNumericEditor3.Value = 3

            SetForumla(Me.WebNumericEditor3, "[WebNumericEditor1] + [WebNumericEditor2]")
        End If

    End Sub


    Private Sub SetForumla(ByVal control As Control, ByVal formula As String)

        ' To acces extender the CalcManager extender properties, call 
        ' the first get the GetCalcSettings method.

        Dim objCalcSettings As CalcSettings
        objCalcSettings = Me.UltraWebCalcManager1.GetCalcSettings(control)

        ' Set the Formula
        objCalcSettings.Formula = formula
    End Sub

    Protected Sub WebNumericEditor1_ValueChanged(ByVal sender As Object, ByVal e As Infragistics.Web.UI.EditorControls.TextEditorValueChangedEventArgs) Handles WebNumericEditor1.ValueChanged
        Me.UltraWebCalcManager1.ReCalc()
    End Sub
End Class