FarPoint.CalcEngine Assembly > FarPoint.CalcEngine Namespace > CalcArray Class : GetValue Method |
'Declaration Public MustOverride Function GetValue( _ ByVal row As Integer, _ ByVal column As Integer _ ) As Object
object[,] knownY = {{2.0, 3.0, 9.0, 1.0, 8.0, 7.0, 5.0}}; object[,] knownX = {{6.0, 5.0, 11.0, 7.0, 5.0, 4.0, 4.0}}; FarPoint.CalcEngine.ArrayExpression arg1 = new FarPoint.CalcEngine.ArrayExpression(knownY); FarPoint.CalcEngine.ArrayExpression arg2 = new FarPoint.CalcEngine.ArrayExpression(knownX); FarPoint.CalcEngine.Expression[] args = {arg1, arg2}; FarPoint.CalcEngine.Expression func = new FarPoint.CalcEngine.FunctionExpression(FarPoint.CalcEngine.FunctionInfo.SlopeFunction,args); //Spread for Windows Forms ((FarPoint.Win.Spread.Model.IExpressionSupport)fpSpread1.ActiveSheet.Models.Data).SetExpression(0, 0, func); FarPoint.CalcEngine.CalcArray ca = arg1.ArrayValue; MessageBox.Show("The value in the cell is " + ca.GetValue(0, 0).ToString()); MessageBox.Show("The number of rows is " + ca.RowCount.ToString() + " and the number of columns is " + ca.ColumnCount.ToString()); //Spread for Web Forms ((FarPoint.Web.Spread.Model.IExpressionSupport)FpSpread1.Sheets[0].DataModel).SetExpression(0, 0, func); FarPoint.CalcEngine.CalcArray ca = arg1.ArrayValue; TextBox1.Text = "The value in the cell is " + ca.GetValue(0, 0).ToString(); TextBox2.Text = "The number of rows is " + ca.RowCount.ToString() + " and the number of columns is " + ca.ColumnCount.ToString();
Dim x As Object(,) = {{2.0, 3.0, 9.0, 1.0, 8.0, 7.0, 5.0}} Dim y As Object(,) = {{6.0, 5.0, 11.0, 7.0, 5.0, 4.0, 4.0}} Dim arg1 As New FarPoint.CalcEngine.ArrayExpression(x) Dim arg2 As New FarPoint.CalcEngine.ArrayExpression(y) Dim args() As FarPoint.CalcEngine.Expression = {arg1, arg2} Dim func As New FarPoint.CalcEngine.FunctionExpression(FarPoint.CalcEngine.FunctionInfo.SlopeFunction, args) 'Spread for Windows Forms CType(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.IExpressionSupport).SetExpression(0, 0, func) Dim ca As FarPoint.CalcEngine.CalcArray = arg1.ArrayValue MessageBox.Show("The value in the cell is " & ca.GetValue(0, 0)) MessageBox.Show("The number of rows is " & ca.RowCount & " and the number of columns is " & ca.ColumnCount) 'Spread for Web Forms CType(FpSpread1.Sheets(0).DataModel, FarPoint.Web.Spread.Model.IExpressionSupport).SetExpression(0, 0, func) Dim ca As FarPoint.CalcEngine.CalcArray = arg1.ArrayValue TextBox1.Text = "The value in the cell is " & ca.GetValue(0, 0) TextBox2.Text = "The number of rows is " & ca.RowCount & " and the number of columns is " & ca.ColumnCount
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8