'Declaration Public Function New()
'Usage Dim instance As New EmptyCellType()
public EmptyCellType()
'Declaration Public Function New()
'Usage Dim instance As New EmptyCellType()
public EmptyCellType()
private void fpSpread1CellClick(object sender, FarPoint.Win.Spread.CellClickEventArgs e) { FarPoint.Win.Spread.CellType.ICellType ct; ct = e.View.Sheets[0].Cells[e.Row, e.Column].CellType; if(ct is FarPoint.Win.Spread.CellType.GeneralCellType) { FarPoint.Win.Spread.CellType.EmptyCellType empty = new FarPoint.Win.Spread.CellType.EmptyCellType(); empty.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.AllArrows; empty.StringTrim = StringTrimming.EllipsisCharacter; empty.TextOrientation = FarPoint.Win.TextOrientation.TextHorizontal; e.View.Sheets[0].Cells[e.Row, e.Column].CellType = empty; e.View.Sheets[0].Cells[e.Row, e.Column].Text = "This is an empty cell"; } }
Private Sub FpSpread1CellClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellClick Dim ct As FarPoint.Win.Spread.CellType.ICellType ct = e.View.Sheets(0).Cells(e.Row, e.Column).CellType If TypeOf ct Is FarPoint.Win.Spread.CellType.GeneralCellType Then Dim empty As New FarPoint.Win.Spread.CellType.EmptyCellType empty.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.AllArrows empty.StringTrim = StringTrimming.EllipsisCharacter empty.TextOrientation = FarPoint.Win.TextOrientation.TextHorizontal e.View.Sheets(0).Cells(e.Row, e.Column).CellType = empty e.View.Sheets(0).Cells(e.Row, e.Column).Text = "This is an empty cell" End If End Sub