FarPoint.CalcEngine Assembly > FarPoint.CalcEngine Namespace > DoubleExpression Class : DoubleExpression Constructor |
//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.DoubleValue.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.DoubleValue.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.DoubleValue.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.DoubleValue.ToString() End If
Target Platforms: Windows 7, Windows 8, Windows Vista, Windows Server 2000, Windows 2000 Professional, Windows XP Professional, Windows NT 4.0 Workstation, SP6, Windows NT 4.0 Server, SP6