FarPoint.CalcEngine Assembly > FarPoint.CalcEngine Namespace > CellExpression Class > CellExpression Constructor : CellExpression Constructor(Int32,Int32) |
'Usage Dim row As Integer Dim column As Integer Dim instance As New CellExpression(row, column)
//Spread for Windows Forms fpSpread1.ActiveSheet.AutoCalculation = false; fpSpread1.ActiveSheet.SetValue(1, 2, System.Convert.ToDouble("0.00")); fpSpread1.ActiveSheet.AddCustomName("Alpha", new FarPoint.CalcEngine.CellExpression(1, 2)); fpSpread1.ActiveSheet.SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)"); fpSpread1.ActiveSheet.SetText(4, 2, "0.00"); fpSpread1.ActiveSheet.AddCustomName("Omega", new FarPoint.CalcEngine.CellExpression(2, 2)); fpSpread1.ActiveSheet.SetFormula(5, 2, "IF(Omega>0, 0.5, 0)"); fpSpread1.ActiveSheet.AutoCalculation = true; fpSpread1.ActiveSheet.RecalculateAll(); FarPoint.CalcEngine.Expression expr = fpSpread1.ActiveSheet.GetCustomName("Alpha"); if (expr is FarPoint.CalcEngine.CellExpression) { FarPoint.CalcEngine.CellExpression cellExpr = ((FarPoint.CalcEngine.CellExpression)(expr)); MessageBox.Show("The expression is in column " + cellExpr.Column.ToString()); } //Spread for Web Forms FpSpread1.Sheets[0].AutoCalculation = false; FpSpread1.Sheets[0].SetValue(1, 2, System.Convert.ToDouble("0.00")); FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Web.Spread.Model.DefaultSheetDataModel(); dataModel = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel; dataModel.AddCustomName("Alpha", new FarPoint.CalcEngine.CellExpression(1, 2)); FpSpread1.Sheets[0].SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)"); FpSpread1.Sheets[0].SetText(4, 2, "0.00"); FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel1 = new FarPoint.Web.Spread.Model.DefaultSheetDataModel(); dataModel1 = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel; dataModel1.AddCustomName("Omega", new FarPoint.CalcEngine.CellExpression(2, 2)); FpSpread1.Sheets[0].SetFormula(5, 2, "IF(Omega>0, 0.5, 0)"); FpSpread1.Sheets[0].AutoCalculation = true; FpSpread1.Sheets[0].RecalculateAll(); FarPoint.CalcEngine.Expression expr = dataModel.GetCustomName("Alpha"); if (expr is FarPoint.CalcEngine.CellExpression) { FarPoint.CalcEngine.CellExpression cellExpr = ((FarPoint.CalcEngine.CellExpression)(expr)); TextBox1.Text = "The expression is in column " + cellExpr.Column.ToString(); }
'Spread for Windows Forms FpSpread1.ActiveSheet.AutoCalculation = False FpSpread1.ActiveSheet.SetValue(1, 2, CDbl("0.00")) FpSpread1.ActiveSheet.AddCustomName("Alpha", New FarPoint.CalcEngine.CellExpression(1, 2)) FpSpread1.ActiveSheet.SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)") FpSpread1.ActiveSheet.SetText(4, 2, "0.00") FpSpread1.ActiveSheet.AddCustomName("Omega", New FarPoint.CalcEngine.CellExpression(2, 2)) FpSpread1.ActiveSheet.SetFormula(5, 2, "IF(Omega>0, 0.5, 0)") FpSpread1.ActiveSheet.AutoCalculation = True FpSpread1.ActiveSheet.RecalculateAll() Dim expr As FarPoint.CalcEngine.Expression = FpSpread1.ActiveSheet.GetCustomName("Alpha") If TypeOf expr Is FarPoint.CalcEngine.CellExpression Then Dim cellExpr As FarPoint.CalcEngine.CellExpression = CType(expr, FarPoint.CalcEngine.CellExpression) MessageBox("The expression is in column " & cellExpr.Column.ToString) 'Spread for Web Forms FpSpread1.Sheets(0).Rows.Count = 5 FpSpread1.Sheets(0).Columns.Count = 5 FpSpread1.Sheets(0).AutoCalculation = False FpSpread1.Sheets(0).SetValue(1, 2, CDbl("0.00")) Dim dataModel As New FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = FpSpread1.ActiveSheetView.DataModel dataModel.AddCustomName("Alpha", New FarPoint.CalcEngine.CellExpression(1, 2)) FpSpread1.Sheets(0).SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)") FpSpread1.Sheets(0).SetText(4, 2, "0.00") Dim dataModel1 As New FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel1 = FpSpread1.ActiveSheetView.DataModel dataModel1.AddCustomName("Omega", New FarPoint.CalcEngine.CellExpression(2, 2)) FpSpread1.Sheets(0).SetFormula(5, 2, "IF(Omega>0, 0.5, 0)") FpSpread1.Sheets(0).AutoCalculation = True FpSpread1.Sheets(0).RecalculateAll() Dim expr As FarPoint.CalcEngine.Expression = dataModel.GetCustomName("Alpha") If TypeOf expr Is FarPoint.CalcEngine.CellExpression Then Dim cellExpr As FarPoint.CalcEngine.CellExpression = CType(expr, FarPoint.CalcEngine.CellExpression) TextBox1.Text = "The expression is in column " & cellExpr.Column.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