我想实现改变字体的功能按钮

收藏

代码如下，就是类似office的，一个下拉框，然后把系统字体库载入进去，点击可以改变字体。
不知道是啥问题，一直报错。发上来请教下高手。

private void toolStripComboBox1_DropDown(object sender, EventArgs e)
{
System.Drawing.Text.InstalledFontCollection fontCollection = new System.Drawing.Text.InstalledFontCollection();
foreach (System.Drawing.FontFamily fontFamily in fontCollection.Families)
{
toolStripComboBox1.Items.Add(fontFamily.Name);
}
}
private void toolStripComboBox1_SelectedIndexChanged(object sender, EventArgs e)
{
FarPoint.Win.Spread.Model.CellRange cr =fpSpread1.ActiveSheet.GetSelection(0);
if (toolStripComboBox1.Text != "")
{
for (int i = cr.Row; i < cr.Row + cr.RowCount; i++)
{
for (int j = cr.Column; j < cr.Column + cr.ColumnCount; j++)
{
fpSpread1.ActiveSheet.Cells[i, j].Font = new Font(toolStripComboBox1.Text, fpSpread1.ActiveSheet.Cells[i, j].Font.Size, fpSpread1.ActiveSheet.Cells[i, j].Font.Style);
}
}
}
}

复制代码

ZenosZeng · ZenosZeng

提示什么错误信息，建议你在fpSpread1.ActiveSheet.Cells[i, j].Font = new Font(toolStripComboBox1.Text, fpSpread1.ActiveSheet.Cells[i, j].Font.Size, fpSpread1.ActiveSheet.Cells[i, j].Font.Style);加断点查看各个属性的值是否正确

sheep · sheep

就是你说的这句这里出错的。。。错误提示如图上。

ZenosZeng · ZenosZeng

以下代码是否满足你的需求：

FarPoint.Win.Spread.Model.CellRange cr = fpSpread1.ActiveSheet.GetSelection(0);
Font font = new Font(toolStripComboBox1.Text, fpSpread1.Font.Size, fpSpread1.Font.Style);
if (toolStripComboBox1.Text != "")
{
for (int i = cr.Row; i < cr.Row + cr.RowCount; i++)
{
for (int j = cr.Column; j < cr.Column + cr.ColumnCount; j++)
{
if (fpSpread1.ActiveSheet.Cells[i, j].Font == null)
fpSpread1.ActiveSheet.Cells[i, j].Font = font;
else
fpSpread1.ActiveSheet.Cells[i, j].Font = new Font(toolStripComboBox1.Text, fpSpread1.ActiveSheet.Cells[i, j].Font.Size, fpSpread1.ActiveSheet.Cells[i, j].Font.Style);
}
}
}

复制代码

sheep · sheep

搞定了，谢谢(*^__^*)

ZenosZeng · ZenosZeng

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

我想实现改变字体的功能按钮

5 个回复

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人