Public MustOverride ReadOnly Property ColumnCount As Integer

Dim instance As CalcArray
Dim value As Integer
 
value = instance.ColumnCount

public abstract int ColumnCount {get;}

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