次のサンプル コードは、ユーザーが SPREADのセルに数式を入力することを許可します。
FarPoint.Win.Spread.FpSpread fpSpread1 = new FarPoint.Win.Spread.FpSpread();
FarPoint.Win.Spread.SheetView shv = new FarPoint.Win.Spread.SheetView();
DialogResult dlg;
fpSpread1.Location = new Point(10, 10);
fpSpread1.Height = 200;
fpSpread1.Width = 400;
Controls.Add(fpSpread1);
fpSpread1.Sheets.Add(shv);
fpSpread1.ActiveSheet.Cells[0, 0].CellType = new FarPoint.Win.Spread.CellType.NumberCellType();
fpSpread1.ActiveSheet.Cells[1, 0].CellType = new FarPoint.Win.Spread.CellType.NumberCellType();
fpSpread1.ActiveSheet.Cells[1, 2].CellType = new FarPoint.Win.Spread.CellType.NumberCellType();
fpSpread1.ActiveSheet.SetValue(0, 0, 20);
fpSpread1.ActiveSheet.SetValue(1, 0, 20);
dlg = MessageBox.Show("Without going into edit mode, type =SUM(A1,A2) in the second row of the third column.", "AllowUserFormulas",
MessageBoxButtons.OKCancel);
if (dlg == DialogResult.OK)
{
fpSpread1.AllowUserFormulas = true;
}
Dim fpSpread1 As New FarPoint.Win.Spread.FpSpread()
Dim shv As New FarPoint.Win.Spread.SheetView()
Dim dlg As DialogResult
fpSpread1.Location = New Point(10, 10)
fpSpread1.Height = 200
fpSpread1.Width = 400
Controls.Add(fpSpread1)
fpSpread1.Sheets.Add(shv)
fpSpread1.ActiveSheet.Cells(0, 0).CellType = New FarPoint.Win.Spread.CellType.NumberCellType()
fpSpread1.ActiveSheet.Cells(1, 0).CellType = New FarPoint.Win.Spread.CellType.NumberCellType()
fpSpread1.ActiveSheet.Cells(1, 2).CellType = New FarPoint.Win.Spread.CellType.NumberCellType()
fpSpread1.ActiveSheet.SetValue(0, 0, 20)
fpSpread1.ActiveSheet.SetValue(1, 0, 20)
dlg = MessageBox.Show("Without going into edit mode, type =SUM(A1,A2) in the second row of the third column.", "AllowUserFormulas",
MessageBoxButtons.OKCancel)
If dlg = DialogResult.OK Then
fpSpread1.AllowUserFormulas = True
End If