回复 3楼lucklyme的帖子
lucklyme 你好,
改变部分字体可以使用 RichTextCellType 来实现,代码如下:
C#
- C# Copy Code
- FarPoint.Win.Spread.CellType.RichTextCellType rtf = new FarPoint.Win.Spread.CellType.RichTextCellType();
- rtf.WordWrap = true;
- rtf.Multiline = true;
- fpSpread1.ActiveSheet.Cells[0, 0].CellType = rtf;
- fpSpread1.ActiveSheet.Columns[0].Width = 300;
- fpSpread1.ActiveSheet.Rows[0].Height = 150;
- fpSpread1.ActiveSheet.Cells[0, 0].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}";
复制代码
VB:
- Dim rtf As New FarPoint.Win.Spread.CellType.RichTextCellType()
- rtf.WordWrap = True
- rtf.Multiline = True
- FpSpread1.ActiveSheet.Cells(0, 0).CellType = rtf
- FpSpread1.ActiveSheet.Columns(0).Width = 300
- FpSpread1.ActiveSheet.Rows(0).Height = 150
- FpSpread1.ActiveSheet.Cells(0, 0).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" + _
- "}"
复制代码 |