Dim tcell As New FarPoint.Web.Spread.TextCellType()
Dim Str As String
Str="This is a test for a TextCellType. Its size has been set to 20 and text should wrap to multiple lines."
tcell.AllowWrap=True
tcell.Size=90
FpSpread1.ActiveSheetView.Cells(0,0).CellType=tcell
FpSpread1.ActiveSheetView.SetValue(0,0,Str)
FpSpread1.Sheets(0).Columns(0).Width=120
FpSpread1.Sheets(0).Rows(0).Height=120
FarPoint.Web.Spread.TextCellType tcell=new FarPoint.Web.Spread.TextCellType();
string Str;
Str="This is a test for a TextCellType. The size has been set to 20 and text should wrap to multiple lines.";
tcell.AllowWrap=True;
tcell.Size=90;
FpSpread1.ActiveSheetView.Cells[0,0].CellType=tcell;
FpSpread1.ActiveSheetView.SetValue(0,0,Str);
FpSpread1.Sheets[0].Columns[0].Width=120;
FpSpread1.Sheets[0].Rows[0].Height=120;