'Declaration Public Function New()
'Usage Dim instance As New RichTextCellType()
public RichTextCellType()
'Declaration Public Function New()
'Usage Dim instance As New RichTextCellType()
public RichTextCellType()
FarPoint.Win.Spread.CellType.RichTextCellType rtf = new FarPoint.Win.Spread.CellType.RichTextCellType(); rtf.WordWrap = true; rtf.Multiline = true; rtf.AllowArrowKeysMoveActiveCell = FarPoint.Win.Spread.FlagArrowKeys.All; fpSpread1.ActiveSheet.Cells[1, 1].CellType = rtf; fpSpread1.ActiveSheet.Cells[1, 1].Value = @"{\rtf1\ansi\ansicpg1252\deff0\deflang1033 {\fonttbl{\f0\fscript\fprq2\fcharset0 Comic Sans MS;} {\f1\froman\fprq2\fcharset0 Times New Roman;} {\f2\fswiss\fcharset0 Arial;}}{\colortbl ;\red128 \green0\blue128;\red0\green255\blue255;\red255\green0\ blue0;\red0\green255\blue0;\red0\green0\blue255;} \viewkind4\uc1\pard\cf1\b\f0\fs24 Testing\cf2\b0\fs28 \cf3 \f1\fs40 1... \cf4\i 2... \cf5\ul\i0 3...\cf0\f2\fs20\par}";
Dim rtb As New FarPoint.Win.Spread.CellType.RichTextCellType rtb.Multiline = True rtb.WordWrap = True rtb.AllowArrowKeysMoveActiveCell = FarPoint.Win.Spread.FlagArrowKeys.All fpSpread1.ActiveSheet.Cells(1, 1).CellType = rtb fpSpread1.ActiveSheet.Cells(1, 1).Value = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033" + _ "{\fonttbl{\f0\fscript\fprq2\fcharset0 Comic Sans MS;}" + _ "{\f1\froman\fprq2\fcharset0 Times New Roman;}" + _ "{\f2\fswiss\fcharset0 Arial;}}" + _ "{\colortbl ;\red128\green0\blue128;\red0\green255\blue255;" + _ "\red255\green0\blue0;" + _ "\red0\green255\blue0;\red0\green0\blue255;}" + _ "\viewkind4\uc1\pard\cf1\b\f0\fs24 Testing\cf2\b0\fs28" + _ " \cf3\f1\fs40 1... \cf4\i 2... \cf5\ul\i0 3...\cf0\f2\fs20\par" + _ "}"