Setting the Cell Types of the Register

To set cell types, for each custom cell type, you have to create a cell type object, set the properties for it, and then assign that object to the CellType property for a cell or range of cells.

1. Set the cell type for the Check # column by adding the following code below the code you have already added:

   Example

   // Create Check # column of number cells.
   FarPoint.Win.Spread.CellType.NumberCellType objNumCell = new FarPoint.Win.Spread.CellType.NumberCellType();
   objNumCell.DecimalPlaces = 0;
   objNumCell.MinimumValue = 1;
   objNumCell.MaximumValue = 9999;
   objNumCell.ShowSeparator = false;
   fpSpread1.Sheets[0].Columns[0].CellType = objNumCell;

   ' Create Check # column of number cells.
   Dim objNumCell As New FarPoint.Win.Spread.CellType.NumberCellType()
   objNumCell.DecimalPlaces = 0
   objNumCell.MinimumValue = 1
   objNumCell.MaximumValue = 9999
   objNumCell.ShowSeparator = False
   fpSpread1.Sheets(0).Columns(0).CellType = objNumCell

2. Set the cell type for the Date column by adding the following code below the code you have already added:

   Example

   // Create Date column of date-time cells.
   FarPoint.Win.Spread.CellType.DateTimeCellType objDateCell = new FarPoint.Win.Spread.CellType.DateTimeCellType();
   objDateCell.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.ShortDate;
   fpSpread1.Sheets[0].Columns[1].CellType = objDateCell;

   ' Create Date column of date-time cells.
   Dim objDateCell As New FarPoint.Win.Spread.CellType.DateTimeCellType()
   objDateCell.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.ShortDate
   fpSpread1.Sheets(0).Columns(1).CellType = objDateCell

3. Set the cell type for the Description column by adding the following code below the code you have already added:

   Example

   // Create Description column of text cells.
   FarPoint.Win.Spread.CellType.TextCellType objTextCell = new FarPoint.Win.Spread.CellType.TextCellType();
   objTextCell.MaxLength = 100;
   fpSpread1.Sheets[0].Columns[2].CellType = objTextCell;

   ' Create Description column of text cells.
   Dim objTextCell As New FarPoint.Win.Spread.CellType.TextCellType()
   objTextCell.MaxLength = 100
   fpSpread1.Sheets(0).Columns(2).CellType = objTextCell

4. Set the cell type for the Tax? and Cleared? columns by adding the following code below the code you have already added:

   Example

   /// Create Tax? and Cleared? columns of check box cells.
   FarPoint.Win.Spread.CellType.CheckBoxCellType objCheckCell = new FarPoint.Win.Spread.CellType.CheckBoxCellType();
   objCheckCell.ThreeState = false;
   fpSpread1.Sheets[0].Columns[3].CellType = objCheckCell;
   fpSpread1.Sheets[0].Columns[4].CellType = objCheckCell;

   ' Create Tax? and Cleared? columns of check box cells.
   Dim objCheckCell As New FarPoint.Win.Spread.CellType.CheckBoxCellType()
   objCheckCell.ThreeState = False
   fpSpread1.Sheets(0).Columns(3).CellType = objCheckCell
   fpSpread1.Sheets(0).Columns(4).CellType = objCheckCell

5. Set the cell type for the Debit, Credit, and Balance columns by adding the following code below the code you have already added:

   Example

   // Create the Debit, Credit, and Balance columns of currency cells.
   FarPoint.Win.Spread.CellType.CurrencyCellType objCurrCell = new FarPoint.Win.Spread.CellType.CurrencyCellType();
   objCurrCell.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes;
   objCurrCell.NegativeRed = true;
   objCurrCell.FixedPoint = true;
   fpSpread1.Sheets[0].Columns[5].CellType = objCurrCell;
   fpSpread1.Sheets[0].Columns[6].CellType = objCurrCell;
   fpSpread1.Sheets[0].Columns[7].CellType = objCurrCell;

   ' Create the Debit, Credit, and Balance columns of currency cells.
   Dim objCurrCell As New FarPoint.Win.Spread.CellType.CurrencyCellType()
   objCurrCell.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes
   objCurrCell.NegativeRed = True
   objCurrCell.FixedPoint = True
   fpSpread1.Sheets(0).Columns(5).CellType = objCurrCell
   fpSpread1.Sheets(0).Columns(6).CellType = objCurrCell
   fpSpread1.Sheets(0).Columns(7).CellType = objCurrCell

6. Save your project, then click the Start button in the toolbar to run your project.

7. Your form should look similar to the following picture.

Go to Adding Formulas to Calculate Balances to continue the tutorial.