FarPoint.CalcEngine Assembly > FarPoint.CalcEngine Namespace > DoubleExpression Class : Value Property |
'Declaration Public ReadOnly Property Value As Object
'Usage Dim instance As DoubleExpression Dim value As Object value = instance.Value
public object Value {get;}
//Spread for Windows Forms FarPoint.CalcEngine.DoubleExpression de = new FarPoint.CalcEngine.DoubleExpression(55.0); fpSpread1.ActiveSheet.AddCustomName("Alpha", de); fpSpread1.ActiveSheet.SetFormula(0, 0, "Alpha * 10"); FarPoint.CalcEngine.Expression expr = fpSpread1.ActiveSheet.GetCustomName("Alpha"); if (expr is FarPoint.CalcEngine.DoubleExpression) { FarPoint.CalcEngine.DoubleExpression ex = ((FarPoint.CalcEngine.DoubleExpression)(expr)); MessageBox.Show("The double value is " + ex.Value.ToString()); } //Spread for Web Forms FarPoint.CalcEngine.DoubleExpression de = new FarPoint.CalcEngine.DoubleExpression(55.0); FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Web.Spread.Model.DefaultSheetDataModel(); dataModel = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel; dataModel.AddCustomName("Alpha", de); FpSpread1.Sheets[0].SetFormula(0, 0, "Alpha * 10"); FarPoint.CalcEngine.Expression expr = dataModel.GetCustomName("Alpha"); if (expr is FarPoint.CalcEngine.DoubleExpression) { FarPoint.CalcEngine.DoubleExpression ex = ((FarPoint.CalcEngine.DoubleExpression)(expr)); TextBox1.Text = "The double value is " + ex.Value.ToString(); }
'Spread for Windows Forms Dim de As New FarPoint.CalcEngine.DoubleExpression(55.0) FpSpread1.ActiveSheet.AddCustomName("Alpha", de) FpSpread1.ActiveSheet.SetFormula(0, 0, "Alpha * 10") Dim expr As FarPoint.CalcEngine.Expression = FpSpread1.ActiveSheet.GetCustomName("Alpha") If TypeOf expr Is FarPoint.CalcEngine.DoubleExpression Then Dim ex As FarPoint.CalcEngine.DoubleExpression = CType(expr, FarPoint.CalcEngine.DoubleExpression) MessageBox.Show("The double value is " & ex.Value.ToString()) End If 'Spread for Web Forms Dim de As New FarPoint.CalcEngine.DoubleExpression(55.0) Dim dataModel As New FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = FpSpread1.ActiveSheetView.DataModel dataModel.AddCustomName("Alpha", de) FpSpread1.Sheets(0).SetFormula(0, 0, "Alpha * 10") Dim expr As FarPoint.CalcEngine.Expression = dataModel.GetCustomName("Alpha") If TypeOf expr Is FarPoint.CalcEngine.DoubleExpression Then Dim ex As FarPoint.CalcEngine.DoubleExpression = CType(expr, FarPoint.CalcEngine.DoubleExpression) TextBox1.Text = "The double value is " & ex.Value.ToString() End If
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8