如何实现Excel中的缩小字体填充效果

收藏

单元格中数据太长，我想缩小字体，填充到这个单元格

回复 · 315834729

另外想问个问题，我用代码添加一行后，如何跟上一行一样的边框线

bd.jpg (39.9 KB, 下载次数: 331)

ZenosZeng · ZenosZeng

回复 1楼315834729的帖子

请参考以下代码：

private void Form1_Load(object sender, EventArgs e)
{
CTextCellType ctc = new CTextCellType();
fpSpread1.ActiveSheet.Columns[0].CellType = ctc;
}
private class CTextCellType : FarPoint.Win.Spread.CellType.TextCellType
{
public override void PaintCell(Graphics g, Rectangle r, FarPoint.Win.Spread.Appearance appearance, object value, bool isSelected, bool isLocked, float zoomFactor)
{
if (value != null)
{
Font font = appearance.Font;
while (g.MeasureString(value.ToString(),font).Width >= r.Width && font.Size >= 5)
{
font = new Font(font.FontFamily, font.Size - 0.5f, font.Style);
}
appearance.Font = font;
}
base.PaintCell(g, r, appearance, value, isSelected, isLocked, zoomFactor);
}
}

复制代码

ZenosZeng · ZenosZeng

回复 2楼315834729的帖子

请尝试一下代码：

复制代码

回复 · 315834729

缩小字体填充那个代码我试了不行，if (value != null)
value 一直是null

ZenosZeng · ZenosZeng

那你的数据是怎么设置给spread的呢，能否发给demo给我们调试一下。

回复 · 315834729

2.6M传不上来，传个小的吧

回复 · 315834729

farpoint5.rar (996 Bytes, 下载次数: 426)

回复 · 315834729

是不是版本的问题，我得版本5.0.3522.2008

ZenosZeng · ZenosZeng

我使用该代码在5.2.3522.2008中测试可以正常运行,附件是我的工程,你在发送附件时,可以把obj和bin目录删除

WindowsFormsApplication1.zip (13.78 KB, 下载次数: 1381)

		自动登录	找回密码
密码			立即注册

[已处理] 如何实现Excel中的缩小字体填充效果