<Serializable()>Public Class generic
Inherits FarPoint.Web.Spread.GeneralCellType
Public Overrides Function GetEditorControl(ByVal id As String,ByVal parent As TableCell,ByVal style As FarPoint.Web.Spread.Appearance,ByVal margin As FarPoint.Web.Spread.Inset,ByVal val As Object,ByVal ul As Boolean)As System.Web.UI.Control
Return MyBase.GetEditorControl(id,parent,style,margin,val,ul)
End Function
Public Overrides Function PaintCell(ByVal id As String,ByVal parent As TableCell,ByVal style As FarPoint.Web.Spread.Appearance,ByVal margin As FarPoint.Web.Spread.Inset,ByVal val As Object,ByVal ul As Boolean)As System.Web.UI.Control
Return MyBase.PaintCell(id,parent,style,margin,val,ul)
End Function
End Class
Private SubPage_Load(ByVal sender As System.Object,ByVal e AsSystem.EventArgs)Handles MyBase.Load
Dim gencell As New generic()
FpSpread1.ActiveSheetView.Cells(0,0).CellType=gencell
FpSpread1.ActiveSheetView.SetValue(0,0,"Thisisatesttoseeifthetextwrapsinthecell")
FpSpread1.ActiveSheetView.Rows(0).Height=180
End Sub